** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Sencilla exportación a word
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoSencilla exportación a word

 Responder Responder
Autor
Mensaje
juanr Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 07/Octubre/2020
Localización: andorra
Estado: Sin conexión
Puntos: 9
Enlace directo a este mensaje Tema: Sencilla exportación a word
    Enviado: 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) 


Editado por juanr - 07/Octubre/2020 a las 16:29
Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 14720
Enlace directo a este mensaje Enviado: 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

Mi web
Arriba
juanr Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 07/Octubre/2020
Localización: andorra
Estado: Sin conexión
Puntos: 9
Enlace directo a este mensaje Enviado: 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 :( 
Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 14720
Enlace directo a este mensaje Enviado: 07/Octubre/2020 a las 19:05
¿Cuál es el error que devuelve?

Xavi, un minyó de Terrassa

Mi web
Arriba
juanr Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 07/Octubre/2020
Localización: andorra
Estado: Sin conexión
Puntos: 9
Enlace directo a este mensaje Enviado: 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
Arriba
fcoval Ver desplegable
Asiduo
Asiduo


Unido: 19/Enero/2013
Estado: Sin conexión
Puntos: 225
Enlace directo a este mensaje Enviado: 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
Arriba
juanr Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 07/Octubre/2020
Localización: andorra
Estado: Sin conexión
Puntos: 9
Enlace directo a este mensaje Enviado: 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
Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 14720
Enlace directo a este mensaje Enviado: 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

Un saludo
Xavi, un minyó de Terrassa

Mi web
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable