Wie füge ich .doc-Dateien zusammen?

Question

Ich habe über 500 Dokumentdateien, die ich in einer Datei zusammenführen muss. Wie mache ich das? Ich habe versucht, aus einer Textdatei einzufügen -->, aber es werden nur die ersten 50 zusammengeführt. Irgendwelche Ideen?

Answer 1

Wenn die Benutzeroberfläche versagt, würde ich ein Makro vorschlagen. Können Sie Ihre Dateinamen im Word-Dokument auflisten, ein Absatz, ein Name? Dann ersetzt das folgende Makro die Dateinamen durch den Dateiinhalt:

Sub Include()
    With ActiveDocument
        For i = .Paragraphs.Count To 1 Step -1
            Set oRange = .Paragraphs(i).Range
            sFname = oRange.Text
            sFname = Left(sFname, Len(sFname) - 1)
            sFname = "c:\tmp\" & sFname
            oRange.InsertFile FileName:=sFname
        Next
    End With
End Sub

Ersetzen Sie es c:\tmp\durch Ihren Pfad.