Cómo pasar datos entre documentos de Word con VBA

Microsoft Office Word es un procesador de textos incluido en la suite de Microsoft Office. Microsoft Visual Basic para Aplicaciones o VBA es un lenguaje de programación utilizado para automatizar tareas rutinarias. Aprender cómo pasar datos entre documentos de Word utilizando VBA es útil cuando se necesita combinar continuamente documentos de Word manualmente. En pocos pasos se puede aprender a escribir código VBA para abrir dos documentos de Word y transferir datos entre ellos. Instrucciones
1

Abra Microsoft Office Word , escriba " estos datos son en firstDoc " y guardar en "C: \\ " como " . FirstDoc.doc " Cierre el documento . Añadir un nuevo documento , escriba " Estos datos están en la secondDoc " y guardar en "C: \\ " como " . SecondDoc.doc " Cierre el documento.
2

Abra Microsoft Office Word , seleccione la ficha " desarrolladores" y haga clic en "Visual Basic ". Haga clic en el menú "Insertar " y luego seleccione "Módulo ". Copie y pegue el siguiente código en el módulo de intercambiar texto entre " firstDoc.doc " y " secondDoc.doc . "
3

passDataBetweenWordDocs Private Sub ( ) guía

Dim wrd1App Como Word.Application

wrd2App As Word.Application

Set wrd1App = CreateObject ( " Word.Application " )

Set wrd2App = CreateObject ( " Word.Application " )

wrd1App.Visible = True

wrd2App.Visible = True

Set wordFirstDoc = wrd1App.Documents.Open ("C: \\ firstDoc.doc " )

Set wordSecondDoc = wrd2App.Documents.Open ("C: \\ secondDoc.doc " )

wrd1App.Selection.Expand wdLine

sTextDoc1 = wrd1App.Selection.Text
< p> wrd2App.Selection.Expand wdLine

sTextDoc2 = wrd2App.Selection.Text

wrd1App.Selection.TypeParagraph

wrd1App.Selection.TypeText texto : = " Este texto fue pasado de secondDoc : "& Texto: = " Este texto se transmite de firstDoc :" & sTextDoc1

wrd2App.Selection.TypeParagraph

End Sub
4

de ejecutar subrutina con la tecla " F5 . "