Indiscutivelmente, o Word 2010 é o melhor editor de texto disponível. Além de oferecer ferramentas básicas de edição e estilos de gráficos, ele também oferece a opção de personalizar o documento da maneira que você desejar. Oculto por padrão, o Word 2010 oferece a opção de adicionar diferentes funções, como, por exemplo, inserir algumas linhas de código para mesclar documentos do Word sem precisar usar nenhum aplicativo de terceiros dedicado. Nesta publicação, inseriremos algumas linhas de código para mesclar todo o conteúdo de documentos que residem na mesma pasta e exibi-los em uma nova pasta.
Para começar, você precisa colocá-los na mesma pasta, certificando-se de que todos pertençam à mesma versão do Word, seja Doc ou Docx. Como você pode ver na captura de tela abaixo, abrimos dois documentos que serão mesclados.

Agora abra qualquer documento do Word e salve-o como um documento com capacidade para macro. Para isso, vá ao menu Arquivo e clique em Salvar como.

Uma caixa de diálogo será exibida. Em Salvar como tipo, clique em Modelo habilitado para macro do Word e clique em Salvar.

Usaremos o editor VB, então primeiro precisamos tornar a aba "Desenvolvedor" visível na janela do Word. Caso não encontre a aba "Desenvolvedor" , acesse o menu "Arquivo" , clique em "Opções" e, no painel esquerdo, clique em "Personalizar Faixa de Opções" . No painel direito, marque a caixa de seleção "Desenvolvedor ". Clique em "OK" para exibir a aba "Desenvolvedor" na faixa de opções.

Agora navegue até a aba Desenvolvedor e clique em Visual Basic.

Você chegará à caixa de diálogo do Editor VB. Na barra lateral esquerda, clique duas vezes em ThisDocument para abrir a janela de edição VB. Você verá a janela de código no lado direito. Agora insira estas linhas de código nela.
Observação: Não se esqueça de alterar o caminho da pasta onde os documentos estão armazenados e a versão dos documentos do Word nestas linhas de código. Para facilitar, adicionamos essa precaução também antes dos códigos.
Sub MergeDocs()
Dim rng como intervalo
Dim MainDoc como documento
Dim strFile como String
Const strFolder = “C:\Usuários\Usman Javaid\Desktop\Documentos do Word\” ||| (Altere o caminho onde seus documentos estão armazenados)
Defina MainDoc = Documents.Add
strFile = Dir$(strFolder & “*.docx”) ||| (Altere a extensão do arquivo para .doc caso esteja lidando com a versão Word 97-03)
Faça até que strFile = “”
Defina rng = MainDoc.Range
rng.Collapse wdCollapseEnd
rng.InsertFile strFolder e strFile
strArquivo = Dir$()
Laço
Fim do Sub

Agora pressione Ctrl+S para salvar a macro recém-adicionada e fechar o editor VB. Navegue até a aba Desenvolvedor e clique em Macros.
Na caixa de diálogo Macros , selecione a macro MergeDocs e clique em Executar .

Se você tiver especificado o caminho e a versão corretamente, todos os documentos serão mesclados e abertos em um novo documento.

Você também pode conferir nossos guias revisados anteriormente sobre Retornar à última linha editada no Word 2010 e usar Mala Direta no Word 2010 .
[via gaebler ]