Sådan flette Word-dokumenter i VBA

March 9

Sådan flette Word-dokumenter i VBA

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 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.

Vejledning


• Start Microsoft Word 2007. Vælg fanebladet "Udvikler" og klik "Visual Basic". Højreklik "Microsoft Word Objects," klik "Indsæt" og vælg "Modul".

• Skriv følgende for at oprette en ny sub: ". Enter" Sub mergeTwoDocs () Tryk

• Skriv følgende for at oprette variabler, der anvendes til lagring af data: Dim wDoc Som Word.Document Dim afsnit tekst As String Dim afsnit Range Som Word.Range Dim afsnit Tæl så længe

• Skriv følgende for at definere din "wordApplication" variable: Set ord Application = CreateObject ("Word.Application") Skriv følgende for at åbne den "første" dokument at fusionere: Indstil wDoc = wordApplication.Documents.Open ("C: \ Dette er teksten fra den første dokument.doc ") Skriv følgende for at kalde" readDocument "sub og sende den" første "dokument objekt som en parameter: Ring læse Document (wDoc)

• Skriv følgende for at åbne den "anden" dokument at fusionere: Indstil wDoc = wordApplication.Documents.Open ("C: \ Dette er teksten fra den anden dokument.doc") Skriv følgende for at kalde "readDocument" sub og send den "anden" dokument objekt som en parameter: Opkald læse Document (wDoc)

• Skriv følgende for at skabe den "readDocument" sub, der vil læse nogen word dokument objekt passerede ind og tilføje indholdet til det aktuelle dokument: Private Sub læse Document (wrdDoc Som Object) Med wrdDoc For afsnit Count = 1 til .Paragraphs.Count Set afsnit Range = .Range (Start:. = Afsnit (paragraphCount) .Range.Start, _ End:. = Afsnit (paragraphCount) .Range.End) Stk Text = paragraphRange.Text Selection.TypeText Tekst: = punkt Text Selection. TypeParagraph Næste afsnit Count .Luk End With End Sub