Unione di documenti di Microsoft Word che utilizzano 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 la suite Microsoft Office (MS Office). VBA viene utilizzato quando è necessario per automatizzare le attività di routine per creare un risultato. VBA può essere utilizzato in una qualsiasi delle applicazioni di MS Office. È possibile utilizzare un codice per copiare il testo da più documenti in uno solo.

istruzione

1 Avviare Microsoft Word 2007. Selezionare la scheda "Sviluppatore" e cliccare su "Visual Basic". Right-click "Oggetti di Microsoft Word," click "Inserisci" e selezionare "Modulo".

2 Digitare la seguente per creare una nuova sotto:

mergeTwoDocs sub ()

Premere Invio."

3 Digitare la seguente per creare variabili utilizzate per la memorizzazione dei dati:

wDoc fioco come Word.Document

Dim paragraphText As String

Dim paragraphRange Come Word.Range

Dim paragraphCount As Long

4 Digitare il seguente per definire la variabile "wordApplication":

Set wordApplication = CreateObject ( "Word.Application")

Digitare il seguente per aprire la "prima" del documento per unire:

Set wDoc = wordApplication.Documents.Open ( "C: \ Questo è un testo dal primo document.doc")

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

Chiamare readDocument (wDoc)

5 Digitare il seguente per aprire il documento "secondo" per unire:

Set wDoc = wordApplication.Documents.Open ( "C: \ Questo è un testo dal secondo document.doc")

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

Chiamare readDocument (wDoc)

6 Digitare quanto segue per creare sub "readDocument" che leggerà qualsiasi oggetto documento word passato e aggiungere il contenuto al documento corrente:

Private Sub readDocument (wrdDoc As Object)

With wrdDoc

Per paragraphCount = 1 Per .Paragraphs.Count

Set paragraphRange = .Range (Inizio:. = I paragrafi (paragraphCount) .Range.Start, _

Fine:. = Paragrafi (paragraphCount) .Range.End)

paragraphText = paragraphRange.Text

Selection.TypeText Testo: = paragraphText

Selection.TypeParagraph

Successivo paragraphCount

.Vicino

End With

End Sub