Microsoft Office Word is een tekstverwerkingsprogramma opgenomen in de Microsoft Office suite . Microsoft Visual Basic for Applications , of VBA is een programmeertaal gebruikt om routinetaken te automatiseren . Leren hoe u gegevens tussen Word- documenten met behulp van VBA voorbij is handig wanneer u nodig hebt om Word-documenten manueel continu samenvoegen . In een paar stappen kunt u leren hoe u VBA-code om twee Word- documenten te openen en de gegevens tussen deze over te schrijven . Instructies
Open Microsoft Office Word , type 1 " Deze data is in firstDoc " en opslaan in " C : \\ " als " . FirstDoc.doc " Sluit het document . Voeg een nieuw document , type " Deze data is in de secondDoc " en opslaan in " C : \\ " als " . SecondDoc.doc " Sluit het document .
Open Microsoft Office Word 2 , selecteert u het tabblad " Developer " en klik op " Visual Basic . " Klik op het menu "Invoegen" en selecteer vervolgens " Module . " Kopieer en plak de volgende code in uw module om tekst wisselen tussen " firstDoc.doc " en " secondDoc.doc . "
Private Sub passDataBetweenWordDocs ( 3 ) op Twitter Dim wrd1App Zoals Word.Application Dim wrd2App
Zoals Word.Application Set wrd1App = CreateObject
( " Word.Application " ) op Twitter Set wrd2App = CreateObject ( " Word.Application " ) = True
wrd2App.Visible = True
Stel wordFirstDoc = wrd1App.Documents.Open (
wrd1App.Visible " C : \\ firstDoc.doc " ) op Twitter Set wordSecondDoc = wrd2App.Documents.Open ( " C : \\ secondDoc.doc " ) wrd1App.Selection.Expand wdLine
sTextDoc1 = wrd1App.Selection.Text
wrd2App.Selection.Expand wdLine sTextDoc2
wrd1App.Selection.TypeParagraph wrd1App.Selection.TypeText tekst
= wrd2App.Selection.Text
: = " Deze tekst was doorgegeven van secondDoc : " & Tekst : = " Deze tekst werd doorgegeven van firstDoc : " & sTextDoc1 wrd2App.Selection.TypeParagraph End Sub
4
Run je subroutine door op " F5 . "
|
