• 
  

  Hur man slår ihop Word-dokument i VBA

  
  

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

Relaterade artiklar