W tym artykule stworzymy makro do otwierania dokumentu Word.
Aby otworzyć dokument Word, określimy pełną ścieżkę dokumentu w polu tekstowym na głównym arkuszu. Po określeniu pełnej ścieżki kliknij przycisk „Prześlij”, aby wykonać makro.
Wyjaśnienie kodu
Dim WDApp jako Word.Application
Powyższy kod służy do deklarowania obiektu słowa application.
Ustaw WDApp = CreateObject("słowo.Aplikacja")
Powyższy kod służy do tworzenia nowego obiektu słowa application. Aplikacja Word zacznie działać, ale domyślnie nie będzie widoczna.
WDApp.Visible = Prawda
Powyższy kod służy do uwidocznienia okna aplikacji słowa.
Ustaw WDDoc = WDApp.Documents.Open(FileName)
Powyższy kod służy do otwierania dokumentu Word.
Ustaw WDDoc = Nic
Ustaw WDApp = Nic
Powyższy kod służy do zwolnienia dowolnej pamięci zajmowanej przez obiekt.
Proszę postępować zgodnie z poniższym kodem!
Sub OpeningWordFile() 'Deklarowanie zmiennych Dim FileName As String Dim WDApp As Word.Application Dim WDDoc As Word.Document 'Pobieranie nazwy pliku z pola tekstowego FileName = Sheets("Main").TextBox1.Value 'Tworzenie obiektu słowa application Set WDApp = CreateObject("word.Application") 'Uwidocznienie aplikacji Word WDApp.Visible = True 'Otwieranie wymaganego dokumentu Word Set WDDoc = WDApp.Documents.Open(FileName) 'Zwolnij pamięć używaną przez zmienną obiektu Set WDDoc = Nic nie ustaw WDApp = Nic nie kończy Sub
Jeśli podobał Ci się ten blog, podziel się nim ze znajomymi na Facebooku. Możesz również śledzić nas na Twitterze i Facebooku.
Chcielibyśmy usłyszeć od Ciebie, daj nam znać, jak możemy poprawić naszą pracę i uczynić ją lepszą dla Ciebie. Napisz do nas na stronie e-mail