Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 2 Word-Dateien zusammenfügen

2 Word-Dateien zusammenfügen
HansP
Hallo! Im Kern wäre das eine Frage für ein Word-Forum, aber das Ganze muss über Excel laufen...
Ich füge in 2 Word-Dateien Daten aus einer Excel-Tabelle ein. Klappt prima. Nun muss ich aber, die beiden Word-Dateien zu einer zusammenfügen. Ich aus organisatorischen Gründen, kann ich die beiden Word-Vorlagen nicht zu einer Vorlage zusammenführen.
Wie kann ich aus Excel heraus Word-Vorlage A aufrufen, den kompletten Inhalt kopieren, und in Word-Vorlage B einfügen? Der Inhalt von B darf aber nicht überschrieben werden, sondern Inhalt A muss vor Inhalt B. Es ist auch möglich in Vorlage A noch eine Textmarke einzufügen, und die mit dem Inhalt von B zu füllen?
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: 2 Word-Dateien zusammenfügen
03.07.2009 15:47:16
fcs
Hallo Hans,
wenn du deine beiden Word-Dokumente sauber als Objekte in Excel führst, dann sollte folgende Prozedur die Inhalte im Dokument A zusammenführen.
Die Zuweisung der beiden Word-Dokumente muss du natürlich anpassen.
Gruß
Franz

Sub Makro3()
' Makro3 Makro
Dim docA As Word.Document, docB As Word.Document
Dim rngDocA As Word.Range, rngdocB As Word.Range
Set docA = Documents("Test Datei A.doc")
Set docB = Documents("TestDatei B.doc")
With docA
'Zeilenschaltung am Ende einfügen
Set rngDocA = .Range(0, .Range.End)
rngDocA.InsertAfter (vbCr)
'Seitenwechsel am Ende einfügen
Set rngDocA = .Range(.Range.End - 1, .Range.End)
rngDocA.InsertBreak (wdPageBreak)
'Einfüge-Range am Dokumentende für Datei B setzen
Set rngDocA = .Range(.Range.End - 1, .Range.End)
End With
With docB
Set rngdocB = .Range(0, .Range.End)
End With
rngdocB.Copy
rngDocA.Paste
End Sub


Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige