Mūsų pavyzdyje norime pradėti naują „Word“ seansą ir atidaryti konkretų dokumentą. Tada dokumentą galima redaguoti. „Word“ iškviečiamas naudojant komandas iš anksčiau integruotos VBA bibliotekos.
Naudokite komandą „Sukurti objektą“, kad sukurtumėte „Word“ seansą iš „Excel“ programos. Perkeldami parametrą „Word.Application“, jūs pradedate naują „Word“ seansą iš „Excel“. Čia yra visas kodas:
Sub StartWord ()
Dim objWordApp kaip objektas
Dim strPath kaip eilutė
strPfad = "C: \ Document.docx"
Nustatykite objWordApp = _ CreateObject ("Word.application")
Su objWordApp
.Application.Visible = Tiesa
.Application.Documents.Open (strPath)
'Štai jūsų komandos
Pabaiga su
Nustatyti objWordApp = Nieko
Pabaiga Sub
Programa atidaro „Word“ seansą ir įkelia dokumentą „C: \ Document.docx“. Jei šioje pozicijoje dokumento nėra, gausite klaidos pranešimą. Iš pozicijos „Jūsų komandos čia“ įveskite komandas, kuriomis keičiamas „Word“ dokumentas. Atkreipkite dėmesį į komandą paprogramės pabaigoje:
Nustatyti objWordApp = Nieko
Taip uždaromas ryšys iš „Excel“ į „Word“ per objekto kintamąjį „objWordApp“. Tai svarbu norint pasiekti švarią programos pabaigą.
