Come unire documenti di Word in VBA

Unione di documenti di Microsoft Word utilizzando Visual Basic, Applications Edition (VBA ) consente di risparmiare tempo quando si lavora con documenti diversi. Microsoft Word è un programma di elaborazione testi che viene fornito con il Microsoft Office ( MS Office ) privato. VBA viene utilizzata quando è necessario per automatizzare le attività di routine per creare un risultato. VBA può essere utilizzato in una delle applicazioni di MS Office . È possibile utilizzare un codice per copiare il testo da più documenti in uno solo. Istruzioni
1

Avviare Microsoft Word 2007. Selezionare la scheda "Sviluppatore " e cliccare su " Visual Basic ". Destro del mouse su " Oggetti parola di Microsoft ", fare clic su "Inserisci" e selezionare
2

Digitare quanto segue per creare un nuovo sub "Modulo ". :

Sub mergeTwoDocs ( )

premere "Invio ".
3

digitare quanto segue per creare le variabili utilizzate per la memorizzazione dei dati :

Dim wDoc Come
Word.Document

Dim paragraphText As String Dim

paragraphRange Come Word.Range

Dim paragraphCount As Long
4

digitare quanto segue per definire la variabile " wordApplication " :

wordApplication = CreateObject ( " Word.Application " ) per

digitare quanto segue per aprire il " primo " documento per unire :

wDoc = wordApplication.Documents.Open ( " C : \\ Questo è il testo del primo document.doc " ) per

digitare quanto segue per chiamare i" sub " e inviare il" readDocument primo " oggetto documento come parametro :

chiama readDocument ( wDoc ) economici 5

digitare quanto segue per aprire il "secondo" documento per unire :

wDoc = wordApplication.Documents.Open ( " C : \\ Questo è il testo della secondo document.doc " ) per

digitare quanto segue per chiamare i" sub " e inviare il" readDocument secondo oggetto documento " come parametro :

chiama readDocument ( wDoc ) per
6

Digitare quanto segue per creare i sub " readDocument " che leggerà qualsiasi oggetto documento di Word in passato e aggiungere il contenuto al documento corrente :

private Sub readDocument ( wrdDoc As Object ) per

Con wrdDoc

paragraphCount = 1 Per Paragraphs.Count

paragraphRange = Range ( Inizio: . . . = paragrafi ( paragraphCount ) Range.Start ,
_ < . p> Fine : . . = paragrafi ( paragraphCount ) Range.End ) per

paragraphText = paragraphRange.Text

Selection.TypeText Text : = paragraphText

Selection.TypeParagraph

Avanti paragraphCount

. Chiudi

End With End Sub

• Come importare dati in Access con VBA 
• Come accedere Visual Basic per Excel Importa dati