Selles artiklis loome Wordi dokumendi avamiseks makro.
Wordi dokumendi avamiseks määrame põhilehe tekstikasti dokumendi täieliku tee. Pärast täieliku tee määramist klõpsake makro käivitamiseks nuppu „Esita”.
Koodi selgitus
Dim WDApp kui Word. Rakendus
Ülaltoodud koodi kasutatakse sõnarakenduse objekti deklareerimiseks.
Määra WDApp = CreateObject ("word.Application")
Ülaltoodud koodi kasutatakse sõnarakenduse uue objekti loomiseks. Wordi rakendus hakkab töötama, kuid vaikimisi pole see nähtav.
WDApp.Visible = Tõsi
Ülaltoodud koodi kasutatakse sõnarakenduse akna nähtavaks tegemiseks.
Määra WDDoc = WDApp.Documents.Open (FileName)
Ülaltoodud koodi kasutatakse Wordi dokumendi avamiseks.
Määra WDDoc = Mitte midagi
Määra WDApp = Mitte midagi
Ülaltoodud koodi kasutatakse objekti poolt hõivatud mälu vabastamiseks.
Palun järgige koodi allpool
Sub OpeningWordFile () 'Muutujate deklareerimine Dim FileName As String Dim WDApp Wordina. Rakendus Dim WDDoc As Word.Document' Failinime hankimine tekstikasti FileName = Sheets ("Main"). TextBox1.Value 'Sõna objekti loomine application Set WDApp = CreateObject ("word.Application") 'Sõnarakenduse WDApp.Visible = True' nähtavaks tegemine = Nothing Set WDApp = Nothing End Sub
Kui teile see blogi meeldis, jagage seda oma sõpradega Facebookis. Lisaks saate meid jälgida Twitteris ja Facebookis.
Tahaksime sinust kuulda, andke meile teada, kuidas saaksime oma tööd paremaks muuta ja teie jaoks paremaks muuta. Kirjuta meile meilisaidile