Hvordan Merge Word-dokumenter i VBA

Hvordan Merge Word-dokumenter i VBA


Sammenslåing Microsoft Word-dokumenter ved hjelp av Visual Basic for Applications (VBA) kan du spare tid når du arbeider med ulike dokumenter. Microsoft Word er et tekstbehandlingsprogram som følger med Microsoft Office (MS Office) suite. VBA brukes når du trenger å automatisere rutineoppgaver for å skape et resultat. VBA kan brukes i en hvilken som helst av de MS Office-programmer. Du kan bruke en kode for å kopiere tekst fra flere dokumenter i ett.

Bruksanvisning

1 Start Microsoft Word 2007. Velg "Developer" og klikk "Visual Basic". Høyreklikk på "Microsoft Word-objekter," klikk "Sett inn" og velg "Module".

2 Skriv inn følgende for å opprette en ny under:

Sub mergeTwoDocs ()

Trykk enter."

3 Skriv inn følgende for å lage variabler som brukes til lagring av data:

Dim wDoc Som Word.Document

Dim paragraphText As String

Dim paragraphRange Som Word.Range

Dim paragraphCount As Long

4 Skriv inn følgende for å definere "wordApplication" variable:

Sett wordApplication = Create ( "Word.Application")

Skriv inn følgende for å åpne den "første" dokument å fusjonere:

Sett wDoc = wordApplication.Documents.Open ( "C: \ Dette er tekst fra den første dokument.doc")

Skriv inn følgende å kalle "readDocument" sub og sende den "første" dokumentobjekt som parameter:

Ring readDocument (wDoc)

5 Skriv inn følgende for å åpne "andre" dokument å fusjonere:

Sett wDoc = wordApplication.Documents.Open ( "C: \ Dette er tekst fra andre dokument.doc")

Skriv inn følgende å kalle "readDocument" sub og sende den "andre" dokumentobjekt som parameter:

Ring readDocument (wDoc)

6 Skriv inn følgende for å skape "readDocument" sub som vil lese noen ord dokumentobjekt gått inn og legge innholdet til gjeldende dokument:

Private Sub readDocument (wrdDoc As Object)

With wrdDoc

For paragraphCount = 1 Til .Paragraphs.Count

Sett paragraphRange = .Range (Start:. = Avsnitt (paragraphCount) .Range.Start, _

Slutt:. = Avsnitt (paragraphCount) .Range.End)

paragraphText = paragraphRange.Text

Selection.TypeText Tekst: = paragraphText

Selection.TypeParagraph

Neste paragraphCount

.Lukke

End With

End Sub