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 ()
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 ":
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 )
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
Siguiente paragraphCount
. Close to
extremo con
End Sub