Exportar de informe access a word

Hola. Quería saber como podría exportar un informe de access a un word mediante código VBA o convertirlo a ese formato o algo parecido.
Muchas gracias

1 respuesta

1
Respuesta de
Hola Sastreconde
Te envío parte de una función que uso para generar un contrato. Yo tengo un archivo modelo en el que hay que intercalar textos como Apellido y nombre, DNI, Domicilio, etc.
Desde mi formulario Access tomo la información que deseo intercalar al contrato. En el contrato modelo están señalados con nombres entre numerales (##) los sitios del documento donde esta eltexto a intercalar. En el código que te paso dejé solamente el esqueleto para que veas cómo se declaran las variables, cómo se abre un documento, como se guarda, como se busca dentro del documento, cómo se reemplaza el texto buscado y como se intercala texto en el cursor (con esto último podrías escribir todo un documento de cabo a rabo) y finalmente cómo se guarda y se termina la ejecución de Word.
Suerte y espero que me cuentes cómo te fue. Marciana
Public Function GeneraContrato()
'**********************************************************************
'Declarar objetos para usar Word
'**********************************************************************
Dim Word As New Word.Application
Dim Contrato As Word.Document
Dim myRange As Range
Dim NombreArchivo As String
'**********************************************************************
'Hace visible o no Word según se desee y abre un documento existente
'**********************************************************************
Word.Visible = False
Set Contrato = Word.Documents.Open(Filename:="C:\Contrato.doc", ReadOnly:=False)
'**********************************************************************
'Define todo el documento
'**********************************************************************
Set myRange = Word.ActiveDocument.Content
'**********************************************************************
'Busca en todo el documento el texto #Destino# para reemplazarlo por el contenido de la variable Destino
'**********************************************************************
With myRange.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "#Destino#"
.Replacement.Text = Destino
.Execute Replace:=wdReplaceAll
End With
'**********************************************************************
'escribe el texto en el lugar del cursor o sobre una selecciòn si existiera
'**********************************************************************
Selection.typeText Text:="acà el texto para el documento Word"
'**********************************************************************
'Formatos de texto pone el texto en azul
'**********************************************************************
Selection.font.Color=wdColorBlue
'**********************************************************************
'Guarda el documento en otro archivo (si no usar .Save) cierra y libera espacio en memoria
'**********************************************************************
NombreArchivo = "C:\Carpeta\NombreArchivo.doc"
Contrato.SaveAs NombreArchivo
Contrato.Close False
Set Contrato = Nothing
Word.Quit
End Function
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje