Zusammenführen von Word-Dokumenten in VBA

Zusammenführen von Microsoft Word Zeit Dokumente mit Visual Basic für Applikationen (VBA) können Sie sparen beim Arbeiten mit verschiedenen Dokumenten. Microsoft Word ist ein Textverarbeitungsprogramm, das kommt mit der Suite Microsoft Office (MS Office). VBA wird verwendet, wenn Sie automatisieren Routineaufgaben um ein Ergebnis zu erzielen müssen. VBA kann in die MS Office-Anwendungen verwendet werden. Einen Code können Sie Text in eine von mehreren Dokumenten kopieren.

Anweisungen

1 Starten Sie Microsoft Word 2007. Wählen Sie die Registerkarte "Entwicklertools" und klicken Sie auf "Visual Basic." Mit der rechten Maustaste "Microsoft Word-Objekte," auf "Einfügen" und wählen Sie "Module".

2 Geben Sie Folgendes ein, um eine neue Sub zu erstellen:

Sub mergeTwoDocs()

Drücken Sie "Enter."

3 Geben Sie Folgendes ein, um zum Speichern von Daten verwendeten Variablen erstellen:

Dim wDoc As Word.Document

Dim ParagraphText As String

Dim ParagraphRange als Word.Range

Dim ParagraphCount As Long

4 Geben Sie Folgendes ein, um die Variable "WordApplication" definieren:

Set WordApplication = CreateObject("Word.Application")

Geben Sie Folgendes ein, um die "erste" Dokument zusammenführen zu öffnen:

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

Geben Sie Folgendes ein, um den rufen der Sub "ReadDocument" und das "erste" Document-Objekt als Parameter zu senden:

Aufruf readDocument(wDoc)

5 Geben Sie Folgendes ein, um das "zweite" Dokument zusammenführen zu öffnen:

Set wDoc = wordApplication.Documents.Open ("C:\This ist Text aus dem zweiten document.doc")

Geben Sie Folgendes ein, um den rufen der Sub "ReadDocument" und das "zweite" Document-Objekt als Parameter zu senden:

Aufruf readDocument(wDoc)

6 Geben Sie Folgendes ein, um der Sub "ReadDocument" zu erstellen, die liest jeder Word-Dokumentobjekt übergeben und fügen Sie den Inhalt in das aktuelle Dokument:

Private Sub ReadDocument (WrdDoc As Object)

With wrdDoc

For paragraphCount = 1 To .Paragraphs.Count

Set paragraphRange = .Range(Start:=.Paragraphs(paragraphCount).Range.Start, _

End:=.Paragraphs(paragraphCount).Range.End)

paragraphText = paragraphRange.Text

Selection.TypeText Text:=paragraphText

Selection.TypeParagraph

Next paragraphCount

.Close

End With

EndSub