Combinación de documentos de Microsoft Word utilizando Visual Basic para Aplicaciones ( VBA) pueden ahorrarle tiempo al trabajar con diferentes documentos. Microsoft Word es un procesador de texto que viene con el Microsoft Office (MS Office) suite. VBA se utiliza cuando se necesita para automatizar las tareas rutinarias para crear un resultado . VBA se puede utilizar en cualquiera de las aplicaciones de MS Office . 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
2

Escriba lo siguiente para crear un nuevo sub " Módulo ". :

Sub mergeTwoDocs () < br >

Pulse " Enter".
3

Escriba el siguiente para crear variables utilizadas para el almacenamiento de datos :

wDoc Dim As
Word.Document

paragraphText dévil como secuencia

paragraphRange As Word.Range

paragraphCount Dim As Long
4

Escriba lo siguiente para definir la variable " wordApplication ": < br >

Set wordApplication = CreateObject ( " Word.Application " )

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

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

Escriba lo siguiente para llamar a los" sub " y enviar el " readDocument primer objeto documento " como parámetro :

call readDocument ( wDoc )
5

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

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

Escriba lo siguiente para llamar a los" sub " y enviar el " readDocument segundo objeto de documento " como parámetro :

call readDocument ( wDoc )
< br > 6

Escriba lo siguiente para crear las sub " readDocument " que van a leer cualquier documento objeto palabra pasado y agregar el contenido al documento actual :

Private Sub readDocument ( wrdDoc As Object )

wrdDoc

Para paragraphCount = 1 Para Paragraphs.Count

Set paragraphRange = Range ( inicio: . . . = párrafos ( paragraphCount ) Range.Start ,
_ < . p > Fin : . . = párrafos ( paragraphCount ) Range.End )

paragraphText = paragraphRange.Text

Selection.TypeText Texto: = paragraphText

Selection.TypeParagraph < br >

Siguiente paragraphCount

. Close to

extremo con

End Sub