Sammanfoga Microsoft Word-dokument med hjälp av Visual Basic for Applications ( VBA ) kan spara tid när du arbetar med olika dokument . Microsoft Word är ett ordbehandlingsprogram som medföljer Microsoft Office ( MS Office ) svit . VBA används när du behöver automatisera rutinuppgifter för att skapa ett resultat . VBA kan användas i någon av MS Office-program . Du kan använda en kod för att kopiera text från flera dokument till ett . Instruktioner
1
Starta Microsoft Word 2007. Välj " Utvecklare " fliken och klicka på " Visual Basic . " Högerklicka på " Microsoft Word Objects , " klick " Infoga " och välj
2
Skriv följande för att skapa en ny sub " Modul . " :
Sub mergeTwoDocs ( )
Tryck " Enter ".
3
Skriv följande för att skapa variabler som används för att lagra data :
Dim wDoc som Word.Document
Dim paragraphText As String
Dim paragraphRange som Word.Range
Dim paragraphCount As Long
4
Skriv följande för att definiera din " wordApplication " variabel :
Set wordApplication = CreateObject ( " Word.Application " ) katalog
Skriv följande för att öppna det " första " dokument att gå samman :
Set wDoc = wordApplication.Documents.Open ( " C : \\ Detta är text från första dokument.doc " ) katalog
Skriv följande för att ringa " readDocument " sub och skicka den " första " dokument objekt som parameter :
ring readDocument ( wDoc )
5
Skriv följande för att öppna det " andra " dokument att gå samman :
Set wDoc = wordApplication.Documents.Open ( " C : \\ Detta är text från andra dokument.doc " ) katalog
Skriv följande för att ringa " readDocument " sub och skicka den " andra " dokument objekt som parameter :
ring readDocument ( wDoc ) katalog
6
Skriv följande för att skapa den " readDocument " sub som läser något föremål word dokument skickas in och lägg till innehållet i det aktuella dokumentet :
Private sub readDocument ( wrdDoc As Object ) katalog
wrdDoc
För paragraphCount = 1 Till Paragraphs.Count
Set paragraphRange = Range (Start : . . . = Punkterna ( paragraphCount ) Range.Start , _
< . p > Slut : . . = Punkterna ( paragraphCount ) Range.End ) katalog
paragraphText = paragraphRange.Text
Selection.TypeText Text : = paragraphText
Selection.TypeParagraph
Nästa paragraphCount
. Stäng
End With
End Sub
