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
