Microsoft Office Word er et tekstbehandlingsprogram inkluderet i Microsoft Office-pakken. Microsoft Visual Basic for Applications eller VBA , er en computer programmeringssprog der almindeligvis anvendes til at automatisere rutineopgaver. At lære at videregive data mellem Word-dokumenter ved hjælp af VBA er nyttig, når du har brug for løbende at fusionere Word-dokumenter manuelt. I et par trin, du kan lære at skrive VBA-kode til at åbne to Word-dokumenter og overføre data mellem dem . Instruktioner
1

Åbn Microsoft Office Word , skriv " disse data er i firstDoc " og gem i "C: \\ " som " . FirstDoc.doc " Luk dokumentet . Tilføj et nyt dokument , skriv " Disse data er i secondDoc " og gem i "C: \\ " som " . SecondDoc.doc " Luk dokumentet.
2

Åbn Microsoft Office Word , skal du vælge "Udvikler " fanen og klik på " Visual Basic ". Klik på " Indsæt" menuen og vælg derefter " Modul ". Kopier og indsæt følgende kode i dit modul til at udveksle tekst mellem " firstDoc.doc " og " secondDoc.doc . "
3

Private Sub passDataBetweenWordDocs ()

Dim wrd1App Som Word.Application

Dim wrd2App Som Word.Application

Set wrd1App = CreateObject ( " Word.Application " )

Set wrd2App = CreateObject ( " Word.Application " )

wrd1App.Visible = Sand

wrd2App.Visible = Sand

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 Text: = " Denne tekst blev gået fra secondDoc : "& Tekst : = " Denne tekst blev videregivet fra firstDoc : " & sTextDoc1

wrd2App.Selection.TypeParagraph

End Sub
4

Run dig subroutine ved at trykke på " F5 . "