error de compilación |
Responder |
Autor | |
Kublai
Habitual Unido: 11/Julio/2020 Localización: Murcia Estado: Sin conexión Puntos: 162 |
Tema: error de compilación Enviado: 19/Julio/2020 a las 08:59 |
Hola a todos.
Llevo muy poco tiempo intentando programar en VBA y estoy muy verde... Quiero hacer una combinación de correspondencia con word desde access, y encontré por ahí este código, en el que sólo he cambiado los nombres y rutas de los archivos. Al intentar rularlo me da un "error de compilación": me señala la primera instrucción y me dice "no se ha definido el tipo definido por el usuario". Qué es lo que he hecho mal?. Gracias de antemano. Pego el código: Sub lanzaword() Dim AppWord As Word.Application Dim DocWord As Word.Document Dim m_Provider As String ' Lanzamiento de Word Set AppWord = New Word.Application AppWord.Visible = True ' Apertura de la carta modelo Set DocWord = AppWord.Documents.Open(CurrentProject.Path & "\Certificado.docx") ' Provider = Base Access Clientes.mdb m_Provider = "Microsoft.ACE.OLEDB.15.0;Password="""";User ID=Admin;" _ & "Data Source=" & CurrentProject.Path & "\PRUEBAS DE PROGRAMACION.accdb; " _ & "Mode=Read;" ' Preparación del mailing para los pedidos no pagados With DocWord.MailMerge .OpenDataSource Name:= _ CurrentProject.Path & "\PRUEBAS DE PROGRAMACION.accdb", ConfirmConversions:=False, _ ReadOnly:=False, LinkToSource:=True, AddToRecentFiles:=False, _ Connection:=" & m_Provider & ", _ SQLStatement:="SELECT * FROM `CopiadeDietas`" .Destination = wdSendToNewDocument .SuppressBlankLines = True With .DataSource .FirstRecord = wdDefaultFirstRecord .LastRecord = wdDefaultLastRecord End With ' Lanzamiento del mailing .Execute End With End Sub |
|
jilo
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Colaborador Unido: 19/Diciembre/2004 Localización: TAFALLA Estado: Sin conexión Puntos: 959 |
Enviado: 19/Julio/2020 a las 09:12 |
Hola Activa la referencia Microsoft Word xx.0 Object Library
|
|
Espero te sirva !!!!!!
Iñaki |
|
Kublai
Habitual Unido: 11/Julio/2020 Localización: Murcia Estado: Sin conexión Puntos: 162 |
Enviado: 19/Julio/2020 a las 09:48 |
Muchas gracias. Ya la he activado.
Ahora me da otro error: Microsoft Word Error: El usuario 'Admin' de la máquina 'DESKTOP 6MF8TDO' ha situado la base de datos en un estado que impide que sea abierta o bloqueada
|
|
Responder | |
Tweet
|
Ir al foro | Permisos de foro Usted No puede publicar nuevos temas en este foro Usted No puede responder a temas en este foro Usted No puede borrar sus mensajes en este foro Usted No puede editar sus mensajes en este foro Usted No puede crear encuestas en este foro Usted No puede votar en encuestas en este foro |