hvordan man kan flette Word-dokumenter i VBA

Indlæg af Hanne Mølgaard Plasc     opdateret: 2011-12-15

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 følger med Microsoft Office ( MS Office ) suite . VBA bruges , når du har brug for at automatisere rutineopgaver for at skabe et resultat . VBA kan bruges i nogen af de MS Office-programmer. Du kan bruge en kode til at kopiere tekst fra flere dokumenter til en
1 .
Start Microsoft Word 2007 . Vælg " Udvikler "fanen og klik på " Visual Basic ". Højreklik på " Microsoft Word Objects ", klik på "Indsæt " og vælg " Modul ".
2
Skriv følgende for at oprette en ny sub : .

Sub mergeTwoDocs ( )

Tryk på "Enter ".
3 .
Skriv følgende at skabe variabler , der anvendes til lagring af data :

Dim wDoc Som Word. Document
Dim paragraphText As String
Dim paragraphRange Som Word. Range
Dim paragraphCount As Long
4 .
Skriv følgende for at definere din " wordApplication "variable :

Set wordApplication=CreateObject ( " Word. Application " )


Skriv følgende for at åbne den " første " dokument om at fusionere :

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 :

Call readDocument ( wDoc )
5 .
Skriv følgende for at åbne den "anden " dokument om at fusionere :

Set wDoc=wordApplication. Documents. Open ( " C : \ Det er tekst fra den anden Dokument. doc " )

Skriv følgende at kalde " readDocument " sub og sende den "anden " dokument objekt som parameter :


Call readDocument ( wDoc )
6 .
Skriv følgende for at oprette " readDocument " sub , der vil læse noget word dokument bestået objekt ind og tilføje indholdet til det aktuelle dokument :

Private Sub readDocument ( wrdDoc som objekt )
Med wrdDoc

For paragraphCount=1 til . Paragraphs. Count
Set paragraphRange=Range ( Start : . =. § ( paragraphCount ) Range. Start , _
End : . =. § ( paragraphCount ) Range . End )
paragraphText=paragraphRange. Text

Selection. TypeText Tekst :=paragraphText
Selection. TypeParagraph


Næste paragraphCount
. Luk
End With
EndSub


Previous:hvordan man kan importere data i forbindelse med adgang til VBA Next:hvordan man åbner en postsættet



 

Kommentarer

Code:
change