Zusammenführen Microsoft Word-Dokumente mithilfe von Visual Basic für Applikationen (VBA) können Sie Zeit sparen bei der Arbeit mit verschiedenen Dokumenten . Microsoft Word ist ein Textverarbeitungsprogramm , das mit dem Microsoft Office (MS Office )-Suite kommt . VBA wird verwendet, wenn Sie Routineaufgaben zu automatisieren , um ein Ergebnis zu erstellen müssen . VBA kann in einem der MS -Office-Anwendungen verwendet werden. Sie können einen Code, um Text aus mehreren Dokumenten in einem kopieren. Anleitung
1

Starten Sie Microsoft Word 2007. Wählen Sie die Registerkarte "Entwicklertools" und klicken Sie auf " Visual Basic ". Der rechten Maustaste auf " Microsoft Word Objekte", klicken Sie auf " Einfügen" und wählen
2

Geben Sie den folgenden , um eine neue zu erstellen sub " -Modul . ":

Sub mergeTwoDocs () < br >

Press "Enter".
3

Geben Sie den folgenden Variablen zum Speichern von Daten verwendet erstellen :

Dim wDoc Wie Word.Document
< p > Dim paragraphText As String Dim

paragraphRange Wie Word.Range

Dim paragraphCount As Long
4

Geben Sie den folgenden zu Ihrem " wordApplication " Variable zu definieren :

Set wordApplication = CreateObject (" Word.Application " )

Geben Sie den folgenden , um die "erste" Dokument öffnen zu fusionieren :

Set wDoc = wordApplication.Documents.Open ( " C: \\ Dies ist ein Text aus der ersten document.doc " )

Geben Sie den folgenden , um den Anruf " readDocument "sub und senden Sie die " erste " Dokument -Objekt als Parameter :

rufen readDocument ( wDoc )
5

Geben Sie den folgenden , um die "zweite" Dokument öffnen zu fusionieren :

Set wDoc = wordApplication.Documents.Open ( "C: \\ Dies ist ein Text aus der zweiten document.doc " )

Geben Sie den folgenden , um den Anruf " readDocument "sub und senden Sie die " zweite " Dokument -Objekt als Parameter :

rufen readDocument ( wDoc )
< br > 6

Geben Sie den folgenden , um die " readDocument " sub , die jedes Wort Dokument -Objekt übergeben wird eingelesen erstellen und den Inhalt in das aktuelle Dokument :

private Sub readDocument ( wrdDoc As Object )

wrdDoc

paragraphCount = 1 To Paragraphs.Count

Set paragraphRange = Range ( Start: . . . = Absätze ( paragraphCount ) Range.Start , _
< . p> Ende: . . = Absätze ( paragraphCount ) Range.End )

paragraphText = paragraphRange.Text

Selection.TypeText Text: = paragraphText

Selection.TypeParagraph
Weiter

paragraphCount

. Close to

End With End Sub