Como faço para mesclar arquivos .doc?

Question

Tenho mais de 500 arquivos de documentos que preciso mesclar em um arquivo. Como faço isso? Eu tentei inserir -> de um arquivo de texto, mas ele mescla apenas como os primeiros 50 deles. Alguma ideia?

Answer 1

Se a interface do usuário falhar, sugiro uma macro. Você pode listar os nomes dos arquivos no documento do Word, um parágrafo, um nome? Em seguida, a macro a seguir substituirá os nomes dos arquivos pelo conteúdo do arquivo:

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

Substitua c:\tmp\pelo seu caminho.