Fletning Microsoft Word-dokumenter ved hjælp af Visual Basic for Applications ( VBA ), kan du spare tid , når du arbejder med forskellige dokumenter. Microsoft Word er et tekstbehandlingsprogram , der kommer med Microsoft Office ( MS Office ) suite. VBA bruges, når du har brug for at automatisere rutineopgaver til at skabe et resultat . VBA kan anvendes i enhver af de MS Office-programmer. Du kan bruge en kode til at kopiere tekst fra flere dokumenter i én. Instruktioner
1
Start Microsoft Word 2007. Vælg " Udvikler " fanen og klik på " Visual Basic ". Højre-klik " Microsoft Word Objects ", klik på "Indsæt" og vælg
2
Skriv følgende for at oprette en ny sub " Modul ". : Hej
Sub mergeTwoDocs () < br >
Tryk på " Enter".
3
Skriv følgende for at oprette variabler, der anvendes til lagring af data : Hej
Dim wDoc Som Word.Document
< p > Dim paragraphText As String
Dim paragraphRange Som Word.Range
Dim paragraphCount As Long
4
Skriv følgende for at definere din " wordApplication " variable : < br >
Set wordApplication = CreateObject ( " Word.Application " )
Skriv følgende for at åbne den "første" dokument for at fusionere : Hej
Set wDoc = wordApplication.Documents.Open ( " C: \\ Dette er teksten fra den første dokument.doc " )
Skriv følgende at kalde " readDocument " sub og sende den" første "dokument objekt som en parameter : Hej
Ring readDocument ( wDoc )
5
Skriv følgende for at åbne den "anden " dokument at fusionere : Hej
Set wDoc = wordApplication.Documents.Open ( "C: \\ Dette er tekst fra sekund dokument.doc " )
Skriv følgende at kalde " readDocument " sub og sende den" anden "dokument objekt som en parameter : Hej
Ring readDocument ( wDoc )
< br > 6.
Skriv følgende for at skabe den " readDocument " sub , der vil læse alle word dokument objekt passerede ind og tilføje indholdet til det aktuelle dokument : Hej
Private Sub readDocument ( wrdDoc As Object )
Med wrdDoc
paragraphCount = 1 Til Paragraphs.Count
Set paragraphRange = Range (Start: . . . = punkt ( paragraphCount ) Range.Start , _
< . p> Slut: . . = punkt ( paragraphCount ) Range.End )
paragraphText = paragraphRange.Text
Selection.TypeText Text: = paragraphText
Selection.TypeParagraph < br >
Næste paragraphCount
. Luk
End With
End Sub