Microsoft Office Word è un programma di elaborazione testi incluso nella suite Microsoft Office. Microsoft Visual Basic, Applications, o VBA, è un linguaggio di programmazione comunemente usato per automatizzare le attività di routine. Imparare a passare i dati tra i documenti di Word che utilizzano VBA è utile quando è necessario unire continuamente documenti Word manualmente. In pochi passi si può imparare a scrivere codice VBA per aprire due documenti di Word e di trasferire i dati tra di loro.

istruzione

1 Aprire Microsoft Office Word, digitare "questi dati sono in firstDoc" e salvare in "C: \" come "firstDoc.doc." Chiudere il documento. Aggiungere un nuovo documento, digitare "Questi dati sono in secondDoc" e salvare in "C: \" come "secondDoc.doc." Chiudere il documento.

2 Aprire Microsoft Office Word, selezionare la scheda "Sviluppatore" e fare clic su "Visual Basic". Fare clic sul menu "Inserisci" e selezionare "Modulo". Copia e incolla il seguente codice nel modulo di testo scambio tra "firstDoc.doc" e "secondDoc.doc."

3 passDataBetweenWordDocs Private Sub ()

Dim wrd1App Come Word.Application

Dim wrd2App Come 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

wrd2App.Selection.Expand wdLine

sTextDoc2 = wrd2App.Selection.Text

wrd1App.Selection.TypeParagraph

wrd1App.Selection.TypeText Testo: = "Questo testo è stato approvato da secondDoc:" & sTextDoc2

wrd1App.Selection.TypeParagraph

wrd2App.Selection.TypeParagraph

wrd2App.Selection.TypeText Testo: = "Questo testo è stato approvato da firstDoc:" & sTextDoc1

wrd2App.Selection.TypeParagraph

End Sub

4 Familiare vi subroutine premendo il tasto "F5".