V tomto článku vytvoríme makro na otvorenie dokumentu programu Word.
Na otvorenie dokumentu programu Word zadáme úplnú cestu k dokumentu v textovom poli na hlavnom hárku. Po zadaní úplnej cesty kliknite na tlačidlo „Odoslať“ a makro sa spustí.
Vysvetlenie kódu
Dim WDApp ako Word. Aplikácia
Vyššie uvedený kód slúži na deklarovanie objektu slova aplikácia.
Nastaviť WDApp = CreateObject ("word.Application")
Vyššie uvedený kód slúži na vytvorenie nového objektu slovnej aplikácie. Spustí sa aplikácia Word, ale v predvolenom nastavení nebude viditeľná.
WDApp.Visible = True
Vyššie uvedený kód slúži na zviditeľnenie okna aplikácie slovo.
Nastaviť WDDoc = WDApp.Documents.Open (FileName)
Vyššie uvedený kód sa používa na otvorenie dokumentu programu Word.
Nastaviť WDDoc = Nič
Nastaviť WDApp = nič
Vyššie uvedený kód sa používa na uvoľnenie akejkoľvek pamäte obsadenej objektom.
Pri kódovaní postupujte podľa nižšie uvedených pokynov
Sub OpeningWordFile () 'Deklarovanie premenných Dim FileName As String Dim WDApp As Word.Application Dim WDDoc As Word.Document' Získanie názvu súboru z textového poľa FileName = Sheets ("Main"). TextBox1.Value 'Vytvorenie objektu slova application Set WDApp = CreateObject ("word.Application") 'Zviditeľnenie aplikácie Word WDApp.Visible = True' Otvorenie požadovaného dokumentu Word Set WDDoc = WDApp.Documents.Open (FileName) 'Uvoľnite pamäť využívanú premennou objektu Set WDDoc = Nič nie je nastavené WDApp = Nič sa nekončí
Ak sa vám tento blog páčil, zdieľajte ho so svojimi priateľmi na Facebooku. Môžete nás tiež sledovať na Twitteri a Facebooku.
Budeme radi, ak sa nám ozvete, dajte nám vedieť, ako môžeme zlepšiť našu prácu a zlepšiť ju pre vás. Napíšte nám na emailovú stránku