Cómo combinar documentos de Word en VBA

La fusión de documentos de Microsoft Word utilizando Visual Basic para Aplicaciones (VBA) le puede ahorrar tiempo cuando se trabaja con diferentes documentos. Microsoft Word es un procesador de texto que viene con la suite de Microsoft Office (MS Office). VBA se utiliza cuando se necesita para automatizar tareas rutinarias para crear un resultado. VBA se puede utilizar en cualquiera de las aplicaciones MS Office. Se puede utilizar un código para copiar el texto de varios documentos en uno solo.

Instrucciones

1 Inicie Microsoft Word 2007. Seleccione la pestaña "desarrolladores" y haga clic en "Visual Basic". Haga clic en "Objetos de Microsoft Word", haga clic en "Insertar" y seleccione "Módulo".

2 Escribe lo siguiente para crear un nuevo sub:

mergeTwoDocs sub ()

Presione ENTRAR."

3 Escribe lo siguiente para crear variables que se utilizan para almacenar datos:

wDoc tenue Como Word.Document

Dim como secuencia paragraphText

Dim paragraphRange Como Word.Range

Dim paragraphCount As Long

4 Escriba lo siguiente para definir su "wordApplication" variables:

Establecer wordApplication = CreateObject ( "Word.Application")

Escriba lo siguiente para abrir el "primer" documento para combinar:

Establecer wDoc = wordApplication.Documents.Open ( "C: \ Este es el texto de la primera document.doc")

Escriba lo siguiente para ir al sub "readDocument" y enviar el "primer" objeto de documento como un parámetro:

Llame readDocument (wDoc)

5 Escriba lo siguiente para abrir el "segundo" documento para combinar:

Establecer wDoc = wordApplication.Documents.Open ( "C: \ Este es el texto de la segunda document.doc")

Escriba lo siguiente para ir al sub "readDocument" y enviar el "segundo" objeto de documento como un parámetro:

Llame readDocument (wDoc)

6 Escriba lo siguiente para crear el sub "readDocument" que leerá cualquier objeto documento de Word en el pasado y añadir el contenido al documento actual:

Private Sub readDocument (wrdDoc como objeto)

With wrdDoc

Para paragraphCount = 1 Para .Paragraphs.Count

Establecer paragraphRange = .Range (Inicio:. = Los párrafos (paragraphCount) .Range.Start, _

Fin:. = Los párrafos (paragraphCount) .Range.End)

paragraphText = paragraphRange.Text

Selection.TypeText texto: = paragraphText

Selection.TypeParagraph

Siguiente paragraphCount

.Cerca

Terminar con

End Sub