Sammanfoga Microsoft Word-dokument med Visual Basic for Applications (VBA) kan du spara tid när du arbetar med olika dokument . Microsoft Word är ett ordbehandlingsprogram som levereras med Microsoft Office ( MS Office ) suite . VBA används när du behöver för att automatisera rutinuppgifter för att skapa ett resultat . VBA kan användas i någon av de MS Office-program . Du kan använda en kod för att kopiera text från flera dokument till en
1 .
Starta Microsoft Word 2007 . Välj " Utvecklare "-fliken och klicka på " Visual Basic . " Högerklicka på " Microsoft Word-objekt ", klicka på " Infoga " och välj " Module ".
2
Skriv följande för att skapa en ny sub .
Sub mergeTwoDocs ( )
Tryck på " Enter ".
3 .
Skriv följande 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 " wordApplication " variabel :
Set wordApplication=CreateObject ( " Word. Application " )
Skriv följande för att öppna den "första " handling att slå samman :
Set wDoc=wordApplication. Documents. Open (" C : \ Det här är texten från den första Dokument. doc " )
Skriv följande för att ringa " readDocument " sub och skicka den "första " handling -objekt som parameter :
Call readDocument ( wDoc )
5 .
Skriv följande för att öppna den "andra " dokument att slå samman :
Set wDoc=wordApplication. Documents. Open ( " C: \ Detta är text från andra Dokument. doc " )
Skriv följande för att ringa " readDocument " sub och skicka den "andra " handling -objekt som parameter :
Call readDocument ( wDoc )
6 .
Skriv följande för att skapa " readDocument " sub som kommer att läsa något föremål word dokument skickas i och lägg till innehållet i det aktuella dokumentet :
Private Sub readDocument ( wrdDoc As Object )
Med wrdDoc
För paragraphCount=1 To . Paragraphs. Count
Set paragraphRange=Range ( Start : . =. Punkterna ( paragraphCount ) Range. Start , _
Slut : . =. Punkterna ( paragraphCount ) Range . End )
paragraphText=paragraphRange. Text
Selection. TypeText Text :=paragraphText
Selection. TypeParagraph
Nästa paragraphCount
. Close
End With
EndSub
Previous:nothing Next:sju vanor effektiva textredigering