Imprimir página | Cerrar ventana

Sencilla exportación a word

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=85527
Fecha de impresión: 28/Marzo/2024 a las 10:45


Tema: Sencilla exportación a word
Publicado por: juanr
Asunto: Sencilla exportación a word
Fecha de publicación: 07/Octubre/2020 a las 16:26
Primero de todo comentaros que todo y que utilizo accesss desde años, en programación justo empiezo desde 0 patatero por lo que cualquier barbaridad que pueda decir sería generada totalmente por mi incapacidad. Desde ya os pido disculpas.
Problemilla:
Hasta ahora exportaba un registro de un formularia en plan "bruto" a word con:

Private Sub Comando46_Click()

Dim docword As Word.Document

Dim rgncurrent As Word.range


Set appWord = CreateObject("Word.Application.8")

Set docword = appWord.Documents.Add()

appWord.Visible = True
Set rngcurrent = docword.content

With rngcurrent

    .insertafter "ID: " & Id & vbCrLf
    .insertafter "Cadastre " & Ref_Cadastral & vbCrLf
    .insertafter "Observaciones: " & vbCrLf & Observacions
    .listformat.applybulletdefault
End With

End Sub

Ahora  me han instalado access 365 y me da un error de compilación.
Creo que tiene algo que ver con la microsoft 9.0 object library???
Como lo soluciono?? o algun ejemplo sencillo para practicar y aplicar???
Gracias

( Por cierto, el código de arriba es du una de las eminencias que hay en el Access en castellano, no me recuerdo si es del Buho o del Sancha, gracias eternas y para los otros maestros ya que siempre me ha servido su trabajo para cumplir mis pequeñas necesidades) 



Respuestas:
Publicado por: xavi
Fecha de publicación: 07/Octubre/2020 a las 16:56
Hola juanr y bienvenido al foro,

Para empezar moveré el mensaje al foro adecuado (a mi entender Access y VBA) porque si una cosa está clara es que no se trata de una duda resuelta.

En segundo lugar comentar que la versión 9.0 de las librerías de Office me parece que corresponde a Office 2000. Es altamente probable que ese sea el problema. Intenta referenciar a la que tengas actualmente en el ordenador (debería ser 16.0) y probar.

Remarcar que el cambio de la 11 (Office 2003) a la 12 (Office 2007) creo recordar que fue bastante importante. Si tu base de datos es muy antigua a lo mejor necesitas convertirla a un formato mas moderno.

Recuerda: los experimentos, con gaseosa.

Un saludo


-------------
Xavi, un minyó de Terrassa

http://www.llodax.com" rel="nofollow - Mi web


Publicado por: juanr
Fecha de publicación: 07/Octubre/2020 a las 19:01
Gracias Xavi,
Con las prisas me he desubicado de foro.  El caso es que he probado con otras librerías que deberían ser las correspondientes al MO 365 pero nanai de la china :( 


Publicado por: xavi
Fecha de publicación: 07/Octubre/2020 a las 19:05
¿Cuál es el error que devuelve?



-------------
Xavi, un minyó de Terrassa

http://www.llodax.com" rel="nofollow - Mi web


Publicado por: juanr
Fecha de publicación: 08/Octubre/2020 a las 08:46
En la linea Dim docword As Word Document
Error de compilación  No se ha definido el tipo definido por el usuario


Publicado por: fcoval
Fecha de publicación: 08/Octubre/2020 a las 08:53
Has probado a definirlo como objeto, tal que así estas dos líneas:

Dim docword As Object
Dim rgncurrent As Object


Publicado por: juanr
Fecha de publicación: 08/Octubre/2020 a las 10:09
Pues tal cual, funciona  a la primera!!

Muchas gracias fcoval y gracias también a Xavi, el administrador


Publicado por: xavi
Fecha de publicación: 08/Octubre/2020 a las 10:53
Por el tema de las referencias, puedes mirar este link:  http://www.llodax.com/smf/index.php?topic=183.0" rel="nofollow - http://www.llodax.com/smf/index.php?topic=183.0

Un saludo


-------------
Xavi, un minyó de Terrassa

http://www.llodax.com" rel="nofollow - Mi web



Imprimir página | Cerrar ventana