Imprimir página | Cerrar ventana

error de compilación

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=85408
Fecha de impresión: 29/Marzo/2024 a las 05:43


Tema: error de compilación
Publicado por: Kublai
Asunto: error de compilación
Fecha de publicación: 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




Respuestas:
Publicado por: jilo
Fecha de publicación: 19/Julio/2020 a las 09:12
Hola

Activa la referencia Microsoft Word xx.0 Object Library


-------------
Espero te sirva !!!!!!
Iñaki


Publicado por: Kublai
Fecha de publicación: 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



Imprimir página | Cerrar ventana