Ako pre prenos dát medzi dokumentmi programu Word pomocou jazyka VBA

Microsoft Office Word je aplikácia na spracovanie textu zahrnuté do balíka Microsoft Office . Microsoft Visual Basic for Applications alebo VBA je programovací jazyk bežne používa na automatizáciu rutinných úloh . Naučiť sa , ako prenášať dáta medzi dokumentmi programu Word pomocou jazyka VBA je užitočné , keď potrebujete , aby neustále zlúčiť dokumenty aplikácie Word ručne . V niekoľkých krokoch môžete naučiť , ako písať kód jazyka VBA otvoriť dva dokumenty programu Word a prenos dát medzi nimi . Pokyny dovolená 1

Otvorte program Microsoft Office Word , typ " tieto dáta je v firstDoc " a uložiť do " C : \\ " . " FirstDoc.doc " ako Zatvorte dokument . Pridať nový dokument , zadajte " Tento údaj je vo secondDoc " a uložiť do " C : \\ " . " SecondDoc.doc " ako Zatvorte dokument .
2

Spustite program Microsoft Office Word , vyberte kartu " Vývojár " a kliknite na " Visual Basic " . Kliknite na menu " Vložiť " a potom vyberte " Module " . Skopírujte a vložte nasledujúci kód do vášho modulu pre výmenu textu medzi " firstDoc.doc " a " secondDoc.doc . "
3

Private Sub passDataBetweenWordDocs ( )

Dim wrd1App Ako Word.Application

Dim wrd2App Ako Word.Application

Set wrd1App = CreateObject ( " Word.Application " )

Set wrd2App = CreateObject ( " Word.Application " )

wrd1App.Visible = TRUE

wrd2App.Visible = TRUE

Set wordFirstDoc = wrd1App.Documents.Open ( " C : \\ firstDoc.doc " )

Set wordSecondDoc = wrd2App.Documents.Open ( " C : \\ secondDoc.doc " )

wrd1App.Selection.Expand wdLine

sTextDoc1 = wrd1App.Selection.Text

wrd2App.Selection.Expand wdLine

sTextDoc2 = wrd2App.Selection.Text

wrd1App.Selection.TypeParagraph

wrd1App.Selection.TypeText Text : = " Tento text bol prešiel od secondDoc : " & Text : = " Tento text bol odovzdaný z firstDoc : " & sTextDoc1

wrd2App.Selection.TypeParagraph

End Sub
4

Spustite si podprogramu stlačením " F5 . "

• Predchádzajúca strana: Ako si vyrobiť komentáre v VBS zákonníku 
• Ďalšia strana: Ako používať prihlasovacích skriptov Nastavenie tlačiarne