Microsoft Office Word è un'applicazione di elaborazione testi inclusa nella suite Microsoft Office. Microsoft Visual Basic per applicazioni o VBA, è un linguaggio di programmazione comunemente utilizzato per automatizzare operazioni di routine. Imparare a passare dati tra documenti di Word utilizzando VBA è utile quando è necessario continuamente unire manualmente i documenti Word. In pochi passi si può imparare a scrivere codice VBA per aprire due documenti di Word e trasferire dati tra di loro.
Istruzioni
1
Aprire Microsoft Office Word, digitare "i dati sono in firstDoc" e salvare in "C:\" come "firstDoc.doc." Chiudere il documento. Aggiungere un nuovo documento, digitare "i dati sono nella secondDoc" e salvare in "C:\" come "secondDoc.doc." Chiudere il documento.
2
Aprire Microsoft Office Word, selezionare la scheda "Sviluppo" e fare clic su "Visual Basic". Fare clic sul menu "Inserisci" quindi selezionare "Modulo". Copiare e incollare il codice riportato di seguito il modulo per lo scambio di testo tra "firstDoc.doc" e "secondDoc.doc."
3
Private Sub passDataBetweenWordDocs()
Dim wrd1App As Word. Application
Dim wrd2App As Word. Application
Set wrd1App = CreateObject
Set wrd2App = CreateObject
wrd1App.Visible = True
wrd2App.Visible = True
Impostare wordFirstDoc = wrd1App.Documents.Open("C:\firstDoc.doc")
Impostare 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 Text: = "questo testo è stato passato da secondDoc:" & sTextDoc2
wrd1App.Selection.TypeParagraph
wrd2App.Selection.TypeParagraph
wrd2App.Selection.TypeText Text: = "questo testo è stato passato da firstDoc:" & sTextDoc1
wrd2App.Selection.TypeParagraph
End Sub
4
Si esegue la subroutine premendo "F5".