Microsoft Office Word är ett ordbehandlingsprogram som ingår i Microsoft Office-paketet . Microsoft Visual Basic for Applications , eller VBA , är en dator programmeringsspråk som vanligen används för att automatisera rutinuppgifter . Att lära sig att skicka data mellan Word dokument med VBA är användbart när du behöver för att kontinuerligt sammanfoga Word-dokument manuellt . I några steg du kan lära dig att skriva VBA-kod för att öppna två Word-dokument och överföra data mellan dem . Instruktioner
1
Öppna Microsoft Office Word , typ " dessa data är i firstDoc " och spara i " C : \\ " som " . FirstDoc.doc " Stäng dokumentet . Lägg till ett nytt dokument , typ " Dessa data är i secondDoc " och spara i " C : \\ " som " . SecondDoc.doc " Stäng dokumentet .
2
Öppna Microsoft Office Word , välj " Utvecklare " fliken och klicka på " Visual Basic . " Klicka på " Infoga " -menyn och välj sedan " Modul . " Kopiera och klistra in följande kod på din modul för att utbyta text mellan " firstDoc.doc " och " secondDoc.doc . "
3
Private Sub passDataBetweenWordDocs ( ) katalog
Dim wrd1App Som Word.Application
Dim wrd2App Som Word.Application
Set wrd1App = CreateObject ( " Word.Application " ) katalog
Set wrd2App = CreateObject ( " Word.Application " ) katalog
wrd1App.Visible = Sant
wrd2App.Visible = Sant
Set wordFirstDoc = wrd1App.Documents.Open ( " C : \\ firstDoc.doc " ) katalog
Set wordSecondDoc = wrd2App.Documents.Open ( " C : \\ secondDoc.doc " ) katalog
wrd1App.Selection.Expand wdLine
sTextDoc1 = wrd1App.Selection.Text
wrd2App.Selection.Expand wdLine
sTextDoc2 = wrd2App.Selection.Text
wrd1App.Selection.TypeParagraph
wrd1App.Selection.TypeText text : = " Denna text var gått från secondDoc : " & Text : = " Denna text har gått från firstDoc : " & sTextDoc1
wrd2App.Selection.TypeParagraph
End Sub
4
Kör du subrutinen genom att trycka " F5 . " Addera
