Microsoft Office Word er et tekstbehandlingsprogram inkludert i Microsoft Office-pakken. Microsoft Visual Basic for Applications , eller VBA er et programmeringsspråk som vanligvis brukes til å automatisere rutineoppgaver . Lære å overføre data mellom Word- dokumenter ved hjelp av VBA er nyttig når du trenger å kontinuerlig flette Word-dokumenter manuelt. I noen få trinn kan du lære å skrive VBA -kode for å åpne to Word-dokumenter og overføre data mellom dem . Instruksjoner
en

Åpne Microsoft Office Word , type " disse dataene er i firstDoc " og lagre i "C : \\ " som " . FirstDoc.doc " Lukk dokumentet . Legg til et nytt dokument, type " Disse dataene er i secondDoc " og lagre i "C : \\ " som " . SecondDoc.doc " Lukk dokumentet .
2

Åpne Microsoft Office Word , velg " Developer " og klikk " Visual Basic. " Klikk på " Insert"-menyen og velg deretter " Module ". Kopier og lim inn følgende kode i modulen for å utveksle tekst mellom " 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 = sant

wrd2App.Visible = sant

Sett 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 tekst: = " Denne teksten var gått fra secondDoc : "& Tekst: = " Denne teksten ble vedtatt fra firstDoc :" & sTextDoc1

wrd2App.Selection.TypeParagraph

End Sub
4

Kjør deg subrutine ved å trykke " F5 ».