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 . "