Ako zlúčiť dokumenty Word VBA

Zlúčenie dokumentov Microsoft Word pomocou jazyka Visual Basic for Applications ( VBA ) vám môže ušetriť čas pri práci s rôznymi dokumentmi . Microsoft Word je textový editor , ktorý je dodávaný s Microsoft Office ( MS Office ), apartmán . VBA sa používa , keď potrebujete automatizovať rutinné úlohy pre vytvorenie výsledku . VBA možno použiť v niektorej z aplikácií MS Office . Môžete použiť kód skopírovať text z viacerých dokumentov do jedného . Pokyny dovolená 1

Spustite program Microsoft Word 2007 . Vyberte kartu " Vývojár " a kliknite na " Visual Basic " . Pravým - kliknite na " Objekty programu Microsoft Word , " kliknite na tlačidlo " Vložiť " a vyberte
2

Zadajte nasledujúci vytvoriť novú ponorku " modul " . :

Sub mergeTwoDocs ( )

Stlačte tlačidlo " ENTER " .
3

Zadajte nasledujúci vytvoriť premenné používané pre ukladanie dát :

Dim wDoc Ako Word.Document

Dim paragraphText As String Dim

paragraphRange Ako Word.Range

Dim paragraphCount As Long
4

Zadajte nasledujúce definovať " wordApplication " premenné :

Nastaviť wordApplication = CreateObject ( " Word.Application " )

zadajte nasledujúce otvorte " prvý " dokument , ktorý chcete zlúčiť :

Set wDoc = wordApplication.Documents.Open ( " C : \\ Toto je text z prvého Document.doc " )

Zadajte nasledujúce volať " readDocument " sub a poslať " prvý " dokument objekt ako parameter :

Call readDocument ( wDoc )
5

zadajte nasledujúce otvorte " druhý " dokument , ktorý chcete zlúčiť :

Set wDoc = wordApplication.Documents.Open ( " C : \\ Toto je text, z druhý Document.doc " )

Zadajte nasledujúce volať " readDocument " sub a poslať " druhú " dokument objekt ako parameter :

Volajte readDocument ( wDoc )

6

Zadajte nasledujúci vytvoriť " readDocument " sub , ktorý bude čítať nejaký objekt dokumentu Word prešiel v roku a pridať obsah do aktuálneho dokumentu :

Private sub readDocument ( wrdDoc As Object ) klipart

S wrdDoc

paragraphCount = 1 Ak chcete Paragraphs.Count

Set paragraphRange = rozsah (Začiatok : .... = Odseky ( paragraphCount ) Range.Start , _

Koniec : . = Odseky ( paragraphCount ) Range.End )

paragraphText = paragraphRange.Text

Selection.TypeText Text : . = paragraphText

Selection.TypeParagraph

Ďalšie paragraphCount

. Close

End With

End Sub

• Predchádzajúca strana: Ako importovať dáta v programe Access VBA 
• Ďalšia strana: Ako získať prístup Visual Basic pre import údajov programu Excel