Flette 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 noen av MS Office-programmer . Du kan bruke en kode for å kopiere tekst fra flere dokumenter til ett . Instruksjoner
en
Start Microsoft Word 2007 . Velg " Developer " og klikk " Visual Basic. " Høyreklikk på " Microsoft Word-objekter , " klikk "Sett inn" og velg
2
Skriv inn følgende for å opprette en ny sub " Module ". : En
Sub mergeTwoDocs ( )
Trykk " Enter".
3
Skriv inn følgende for å lage variabler som brukes til lagring av data : en
Dim wDoc Som Word.Document
< p > Dim paragraphText As String
Dim paragraphRange Som Word.Range
Dim paragraphCount Som Long
4
Skriv inn følgende for å definere " wordApplication " variable :
Set wordApplication = CreateObject ( " Word.Application ")
Skriv inn følgende for å åpne den "første" dokument for å fusjonere : en
Set wDoc = wordApplication.Documents.Open ( " C : \\ Dette er teksten fra første dokument.doc ")
Skriv inn følgende for å kalle de" readDocument " sub og sende den" første " dokument objekt som parameter : en
Ring readDocument ( wDoc )
5
Skriv inn følgende for å åpne " andre " dokument for å fusjonere : en
Set wDoc = wordApplication.Documents.Open ( "C : \\ Dette er teksten fra andre dokument.doc ")
Skriv inn følgende for å kalle de" readDocument " sub og sende den " andre " dokument objekt som parameter : en
Ring readDocument ( wDoc )
6
Skriv inn følgende for å opprette " readDocument " sub som vil lese noen Word-dokument som ble sent inn og legge til innholdet til gjeldende dokument : en
Private Sub readDocument ( wrdDoc som objekt )
p Med wrdDoc
For paragraphCount = 1 To Paragraphs.Count
Set paragraphRange = Range (Start: . . . = Avsnitt ( paragraphCount ) Range.Start , _
< . p> Slutt: . . = Avsnitt ( paragraphCount ) Range.End )
paragraphText = paragraphRange.Text
Selection.TypeText Tekst: = paragraphText
Selection.TypeParagraph
Neste paragraphCount
. Lukk
End With
End Sub
