Juntar documentos do word

Veja como é possível juntar documentos do word a partir de uma pasta!!!!

Crie um novo documento em branco, crie uma macro e coloque o código abaixo. Após executar, você terá todos os documentos da pasta especificada em pastaDocs no seu novo documento.

Legal, não é?

Private Sub juntarDocs()

'

' juntarDocs Macro

'

Dim nomeArquivo As String

Dim r As Range

Dim doc As Document

Const pastaDocs = "J:\"

Set doc = ActiveDocument

nomeArquivo = Dir$(pastaDocs & "\*.doc")

Do

Set r = doc.Bookmarks("\EndOfDoc").Range

If r.End > 0 Then

r.InsertBreak wdSectionBreakNextPage

r.Collapse wdCollapseEnd

End If

r.InsertFile (pastaDocs & "\" & nomeArquivo)

nomeArquivo = Dir$()

Loop Until nomeArquivo = ""

End Sub