V tomto článku vytvoříme makro pro otevření dokumentu aplikace Word.
Chcete -li otevřít dokument aplikace Word, zadáme úplnou cestu dokumentu do textového pole na hlavním listu. Po zadání úplné cesty spustíte makro kliknutím na tlačítko „Odeslat“.
Vysvětlení kódu
Dim WDApp jako Word.Application
Výše uvedený kód slouží k deklaraci objektu aplikace Word.
Nastavit WDApp = CreateObject ("word.Application")
Výše uvedený kód slouží k vytvoření nového objektu aplikace Word. Aplikace Word se spustí, ale ve výchozím nastavení nebude viditelná.
WDApp.Visible = True
Výše uvedený kód slouží ke zviditelnění okna aplikace aplikace Word.
Nastavit WDDoc = WDApp.Documents.Open (FileName)
Výše uvedený kód slouží k otevření dokumentu aplikace Word.
Nastavit WDDoc = Nic
Nastavit WDApp = Nic
Výše uvedený kód slouží k uvolnění jakékoli paměti obsazené objektem.
Pro kód prosím postupujte níže
Sub OpeningWordFile () 'Deklarace proměnných Dim FileName As String Dim WDApp As Word.Application Dim WDDoc As Word.Document' Získání názvu souboru z textového pole FileName = Sheets ("Main"). TextBox1.Value 'Vytvoření objektu slova application Set WDApp = CreateObject ("word.Application") 'Zviditelnění aplikace Word WDApp.Visible = True' Otevření požadovaného dokumentu Word Set WDDoc = WDApp.Documents.Open (FileName) 'Uvolnění paměti používané objektovou proměnnou Set WDDoc = Nothing Set WDApp = Nothing End Sub
Pokud se vám tento blog líbil, sdílejte ho se svými přáteli na Facebooku. Také nás můžete sledovat na Twitteru a Facebooku.
Rádi bychom od vás slyšeli, dejte nám vědět, jak můžeme zlepšit naši práci a zlepšit ji pro vás. Napište nám na e -mail