Cómo crear un archivo en word desde vba - excel

05/05/2012 por Editor | 6 comentarios

Para crear un archivo en Word desde el editor de visual basic:

1.- Se tiene que entrar a Herramientas y hacer clic en REFERENCIAS y finalmente activar Microsoft Word.

2.- Escribir el siguiente código:

Public Sub pruebaword1()
Dim objWord As Word.Application
Dim cadena As String

cadena = "Texto que quieres crear en un archivo de word "
cadena = cadena & "texto de una celda en excel que quieres añadir en word(A1): " & ThisWorkbook.Worksheets("Hoja1").Range("A1").Value
cadena = cadena & "texto de otra celda que quieras añadir(B1): " & ThisWorkbook.Worksheets("Hoja1").Range("B1").Value

Set objWord = CreateObject("Word.Application")

objWord.Documents.Add
objWord.ActiveDocument.Content.FormattedText.Text = cadena
objWord.ActiveDocument.SaveAs "c:\pruebaword1"
objWord.Quit True
Set objWord = Nothing
End Sub

*nombre con el que quieres guardar el archivo de word

Ejemplo:

Crear un archivo en word que contenga el siguiente texto:

Estos son dos valores muy importantes de la persona: honestidad y otro no menos importante: el amor

* honestidad (celda A1)

*el amor (celda B1)

Ejemplo de archivo en word con VBA

Resultado de la ejecución de un archivo en word con VBA

Elaborado por: Kathia Ordoñez