Macro para crear un documento de Word desde Excel

Macro para crear un documento de Word desde Excel

   04 septiembre       Luis Reyes

---

En muchas ocasiones necesitamos que Excel cree un archivo Word, y esto lo podemos hacer fácilmente con una macro:

Para que la macro funcione hay que seguir los siguientes pasos:
1. Abrir el editor Visual Basic para Aplicaciones (VBA).
2. Insertar un módulo.
3. Pegar el siguiente código:

Sub Crear_word()
'Declaración de las variables
Dim objWord As Object
Dim objDoc As Object
Dim objSelection As Object

'Se establece el objeto (word)
   Set objWord = CreateObject("Word.Application")
   Set objDoc = objWord.Documents.Add
 
   objWord.Visible = True 'se muestra la aplicación
 
   Set objSelection = objWord.Selection

   objSelection.TypeText ("Creando un archivo word con El Blog de Luis Reyes") 'se introduce el texto
 
End Sub

Descargar el Archivo