V našem primeru želimo začeti novo Wordovo sejo in odpreti določen dokument. Dokument lahko nato uredite. Word se pokliče z ukazi iz prej integrirane knjižnice VBA.
Z ukazom »Ustvari predmet« ustvarite Wordovo sejo iz Excelove aplikacije. S prenosom parametra "Word.Application" zaženete novo Word sejo iz Excela. Tu je celotna koda:
Sub StartWord ()
Zatemni objWordApp kot objekt
Zatemni strPath kot niz
strPfad = "C: \ Document.docx"
Nastavi objWordApp = _ CreateObject ("Word.application")
Z objWordApp
.Application.Visible = True
.Application.Documents.Open (strPath)
'Tu so vaši ukazi
Končaj s
Nastavi objWordApp = Nič
End Sub
Program odpre Wordovo sejo in naloži dokument "C: \ Document.docx". Če dokument ne obstaja na tem mestu, boste prejeli sporočilo o napaki. S položaja »Vaši ukazi tukaj« vnesite ukaze, s katerimi se spremeni Wordov dokument. Upoštevajte ukaz na koncu podprograma:
Nastavi objWordApp = Nič
S tem prekinete povezavo iz Excela z Wordom prek spremenljivke objekta "objWordApp". To je pomembno za dosego čistega konca programa.
