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

Question

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

Answer 1

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

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\ вашим путем.