Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado

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

| 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 

6 comentarios

  1. Te felicito por tu site, Fernando. Estoy en Excel school con Chandoo.org (India) y definitivamente tengo un strong intermédiate level, espero seguir tu programa Advanced Excel (Macros) antes que se acabe este año.

  2. Me parece muy interesante esta macro, la pregunta es se podria copiar tambien graficos de la misma forma a word?

  3. Muchas gracias estaba intentando de otras formas y no podía, pero tu al grano, gracias

  4. buenos días

    Quería saber puedo introducir varios textos al generar el documento en word de tal manera que no queden uno en frente del otro, sino cada texto en un renglón diferente en word

  5. Magnífico Aporte Gracias

  6. Funciona a la perfección
    Muchas gracias por compartir

Deja una respuesta

Los campos requeridos estan marcados con *.