Как объединить файлы .doc?

Question

У меня есть 500+ doc-файлов, которые мне нужно объединить в один файл. Как это сделать? Я пробовал вставить --> из текстового файла, но он объединяет только первые 50 из них. Есть идеи?

Answer 1

Если пользовательский интерфейс не срабатывает, я бы предложил макрос. Можете ли вы перечислить имена файлов в документе Word, один абзац одно имя? Тогда следующий макрос заменит имена файлов содержимым файла:

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

Замените c:\tmp\на свой путь.