1
Abrir Microsoft Office 2007 , haga clic en la pestaña " desarrolladores" y seleccione "Visual Basic " . Haga clic en " Herramientas" , seleccione "Referencias " y marque " Word 12.0 biblioteca de objetos de Microsoft Select. " OK "
2
Escriba lo siguiente para crear una función : .
Privado Función insertTextToWord ()
Pulse " Intro "
3
Escriba lo siguiente para crear sus variables: .
wrdApp As Word.Application
< p> wrdDoc As Word.Document
4
Escriba lo siguiente para abrir Word y agregar un nuevo documento :
Set wrdApp = CreateObject ( " Word.Application " )
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Add
5
Escriba el siguiente para agregar texto al documento :
wrdApp .
Selection.TypeText texto: . = " . Este es un texto de Excel se inserta en un nuevo documento de Word "
Selection.TypeParagraph
extremo con
< p > Ejecute su función.