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
6 comentarios
Escriba un comentario →