Cómo pasar datos entre documentos de Word con VBA

Microsoft Office Word es un procesador de textos incluido en el paquete 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 de forma continua documentos de Word de forma manual. En unos pocos pasos se puede aprender cómo escribir código VBA para abrir dos documentos de Word y transferir datos entre ellos.

Instrucciones

1 Abra Microsoft Office Word, tipo "esta información se encuentra 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 pestaña "desarrolladores" y haga clic en "Visual Basic". Haga clic en el menú "Insertar" y luego seleccione "Módulo". Copia y pega el código siguiente en el módulo de texto intercambio entre "firstDoc.doc" y "secondDoc.doc."

3 passDataBetweenWordDocs Private Sub ()

Dim wrd1App Como Word.Application

Dim wrd2App Como Word.Application

Establecer wrd1App = CreateObject ( "Word.Application")

Establecer wrd2App = CreateObject ( "Word.Application")

wrd1App.Visible = True

wrd2App.Visible = True

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

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

wrd1App.Selection.Expand wdLine

sTextDoc1 = wrd1App.Selection.Text

wrd2App.Selection.Expand wdLine

sTextDoc2 = wrd2App.Selection.Text

wrd1App.Selection.TypeParagraph

wrd1App.Selection.TypeText texto: = "Este texto se transmite de secondDoc:" & sTextDoc2

wrd1App.Selection.TypeParagraph

wrd2App.Selection.TypeParagraph

wrd2App.Selection.TypeText texto: = "Este texto se transmite de firstDoc:" & sTextDoc1

wrd2App.Selection.TypeParagraph

End Sub

4 Ejecutar subrutina que pulsando la tecla "F5".