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

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