Mesclando documentos do Microsoft Word usando o Visual Basic for Applications (VBA) você pode economizar tempo ao trabalhar com diferentes documentos. Microsoft Word é um aplicativo de processamento de texto que vem com a suíte Microsoft Office (MS Office). VBA é usado quando você precisa para automatizar tarefas de rotina para criar um resultado . VBA pode ser usado em qualquer das aplicações MS Office . Você pode usar um código para copiar o texto de vários documentos em um só. Instruções
1

Inicie o Microsoft Word 2007. Selecione a guia "Desenvolvedor" e clique em " Visual Basic ". Botão direito do mouse "Objetos do Microsoft Word ", clique em "Inserir" e selecionar
2

Digite o seguinte para criar um novo sub " Módulo ". :

Sub mergeTwoDocs () < br >

Pressione " Enter".
3

Digite o seguinte para criar variáveis ​​usadas para armazenar dados :

Dim wDoc Como Word.Document

Dim paragraphText as String Dim

paragraphRange Como Word.Range

Dim paragraphCount as Long
4

Digite o seguinte para definir sua variável " wordApplication " : < br > Definir

wordApplication = CreateObject (" Word.Application " )

Digite o seguinte para abrir o "primeiro" documento para mesclar :

Set wDoc = wordApplication.Documents.Open ( " C: \\ Este é um texto do primeiro document.doc " )

Digite o seguinte para chamar o " " sub e enviar o " readDocument primeiro " objeto de documento como um parâmetro:

chame readDocument ( wDoc )
5

Digite o seguinte para abrir o "segundo" documento para mesclar :

Set wDoc = wordApplication.Documents.Open ( "C: \\ Este é um texto do segundo document.doc " )

Digite o seguinte para chamar o " " sub e enviar o " readDocument segundo " objeto de documento como um parâmetro:

chame readDocument ( wDoc )
< br > 6

Digite o seguinte para criar o " readDocument " sub que vai ler qualquer objeto original da palavra passou e adicionar o conteúdo para o documento atual :

Private Sub readDocument ( wrdDoc as Object )

Com wrdDoc

Para paragraphCount = 1 To Paragraphs.Count

Definir paragraphRange = Range (Start : . . . . = Os parágrafos ( paragraphCount ) Range.Start , _

Final : . = Os parágrafos ( paragraphCount ) Range.End )

paragraphText = paragraphRange.Text

Selection.TypeText Texto: . = paragraphText

Selection.TypeParagraph < br >

Próxima paragraphCount

. Fechar

End With

Sub End