Šiame straipsnyje mes sukursime makrokomandą „Word“ dokumentui atidaryti.
Norėdami atidaryti „Word“ dokumentą, pagrindiniame lapo teksto laukelyje nurodysime visą dokumento kelią. Nurodę visą kelią, spustelėkite mygtuką „Pateikti“, kad įvykdytumėte makrokomandą.
Kodo paaiškinimas
Dim WDApp kaip Word. Taikymas
Aukščiau pateiktas kodas naudojamas žodžio programos objektui deklaruoti.
Nustatykite WDApp = CreateObject ("word.Application")
Aukščiau pateiktas kodas naudojamas naujam žodžio programos objektui sukurti. „Word“ programa pradės veikti, tačiau pagal numatytuosius nustatymus ji nebus matoma.
WDApp.Visible = Tiesa
Viršuje esantis kodas naudojamas žodžio programos langui matyti.
Nustatykite WDDoc = WDApp.Documents.Open (failo pavadinimas)
Aukščiau pateiktas kodas naudojamas žodiniam dokumentui atidaryti.
Nustatyti WDDoc = Nieko
Nustatyti WDApp = Nieko
Aukščiau pateiktas kodas naudojamas atlaisvinti bet kokią objekto užimamą atmintį.
Sekite toliau pateiktą kodą
Sub OpeningWordFile () 'Kintamųjų deklaravimas Dim FileName As String Dim WDApp Kaip Word.Application Dim WDDoc As Word.Document' Failo pavadinimo gavimas iš teksto laukelio FileName = Sheets ("Main"). TextBox1.Value 'Žodžio objekto kūrimas taikomųjų programų rinkinys WDApp = CreateObject ("word.Application") "Žodžių programos WDApp.Visible = True" matymas "Atidaryti reikiamą žodinį dokumentą Nustatyti WDDoc = WDApp.Documents.Open (FileName) 'Atlaisvinkite atmintį, naudojamą objekto kintamojo Set WDDoc = Nieko nenustatyta WDApp = Nieko pabaigos sub
Jei jums patiko šis tinklaraštis, pasidalykite juo su draugais „Facebook“. Be to, mus galite sekti „Twitter“ ir „Facebook“.
Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime pagerinti savo darbą ir padaryti jį geresnį. Rašykite mums el