Microsoft Office Word ist ein Textverarbeitungsprogramm in der Microsoft Office-Suite enthalten. Microsoft Visual Basic für Applikationen oder VBA ist eine Programmiersprache häufig verwendet, um Routineaufgaben zu automatisieren . Lernen, wie man Daten zwischen Word-Dokumente mit VBA übergeben ist nützlich, wenn Sie kontinuierlich ineinander übergehen Word-Dokumente müssen manuell . In wenigen Schritten können Sie lernen, wie Sie VBA-Code , um zwei Word-Dokumente öffnen und Übertragen von Daten zwischen ihnen zu schreiben. Anleitung
1

Öffnen Sie Microsoft Office Word , Typ " diese Daten in FirstDoc " und speichern Sie in "C: \\ " as " . FirstDoc.doc " Schließen Sie das Dokument . Fügen Sie ein neues Dokument , Typ " Diese Daten sind in der secondDoc " und speichern Sie in "C: \\ " as " . SecondDoc.doc " Schließen Sie das Dokument .
2

Öffnen Sie Microsoft Office Word , wählen Sie die Registerkarte "Entwicklertools" und klicken Sie auf " Visual Basic ". Klicken Sie auf das Menü "Einfügen" und wählen Sie dann "Module ". Kopieren Sie den folgenden Code in das Modul , um Text zwischen " firstDoc.doc " und austauschen " secondDoc.doc . "
3

Private Sub passDataBetweenWordDocs () Dim

wrd1App Wie Word.Application

Dim wrd2App Wie Word.Application

Set wrd1App = CreateObject (" Word.Application " )

Set wrd2App = CreateObject (" Word.Application " )

wrd1App.Visible = True

wrd2App.Visible = True

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: = " Dieser Text war bestanden aus secondDoc : "& Text: = " Dieser Text wurde von FirstDoc übergeben :" & sTextDoc1

wrd2App.Selection.TypeParagraph

End Sub
4

Führen Sie Subroutine mit der Taste " F5 . "