Gewusst wie: übergeben von Daten zwischen Word-Dokumente mit VBA
Microsoft Office Word ist ein Textverarbeitungsprogramm, das in der Microsoft Office-Suite enthalten. Microsoft Visual Basic für Anwendungen oder VBA, ist ein Computer-Programmiersprache, die häufig verwendet, um Routineaufgaben zu automatisieren. Gewusst wie: übergeben von Daten zwischen Word-Dokumente mit VBA lernen ist nützlich, wenn ständig die Word-Dokumente manuell zusammenführen müssen. In wenigen Schritten erfahren Sie, wie Sie VBA-Code um zwei Word-Dokumente zu öffnen und die Übertragung von Daten zwischen ihnen zu schreiben.
Anweisungen
1 Öffnen Sie Microsoft Office Word, geben Sie "diese Daten sind in FirstDoc" und "C:\" Speichern unter "firstDoc.doc." Schließen Sie das Dokument. Fügen Sie ein neues Dokument, geben Sie "diese Daten sind in der SecondDoc" und "C:\" Speichern unter "secondDoc.doc." Schließen Sie das Dokument.
2 Öffnen Sie Microsoft Office Word zu, wählen Sie die Registerkarte "Entwicklertools" und klicken Sie auf "Visual Basic." Klicken Sie im Menü "Einfügen" und wählen Sie "Module". Kopieren Sie und fügen Sie den folgenden Code in das Modul zum Austausch von Text zwischen "firstDoc.doc" und "secondDoc.doc."
3 Private Sub passDataBetweenWordDocs()
Dim wrd1App als "Word.Application"
Dim wrd2App als "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
wrd2App.Selection.Expand wdLine
sTextDoc2 = wrd2App.Selection.Text
wrd1App.Selection.TypeParagraph
wrd1App.Selection.TypeText Text: = "dieser Text wurde von SecondDoc übergeben:" & sTextDoc2
wrd1App.Selection.TypeParagraph
wrd2App.Selection.TypeParagraph
wrd2App.Selection.TypeText Text: = "dieser Text wurde von FirstDoc übergeben:" & sTextDoc1
wrd2App.Selection.TypeParagraph
EndSub
4 Führen Sie die Unterroutine mit "F5".