Tässä artikkelissa luomme makron Word -asiakirjan avaamiseksi.
Word -asiakirjan avaamiseksi määritämme asiakirjan koko polun pääarkin tekstikenttään. Kun olet määrittänyt koko polun, suorita makro napsauttamalla Lähetä -painiketta.
Koodin selitys
Himmennä WDApp Wordina
Yllä olevaa koodia käytetään sanasovelluksen objektin ilmoittamiseen.
Aseta WDApp = CreateObject ("word.Application")
Yllä olevaa koodia käytetään uuden sovelluksen luomiseen. Word -sovellus alkaa toimia, mutta oletuksena se ei ole näkyvissä.
WDApp.Visible = Totta
Yllä olevaa koodia käytetään sanasovellusikkunan näyttämiseen.
Aseta WDDoc = WDApp.Documents.Open (Tiedostonimi)
Yllä olevaa koodia käytetään Word -asiakirjan avaamiseen.
Aseta WDDoc = ei mitään
Aseta WDApp = ei mitään
Yllä olevaa koodia käytetään vapauttamaan kaikki objektin varaamat muistit.
Seuraa koodia alla
Sub OpeningWordFile () 'Muuttujien ilmoittaminen Dim FileName As String Dim WDApp Word. Sovellus Dim WDDoc As Word.Document' Tiedostonimen hakeminen tekstiruudusta FileName = Sheets ("Main"). TextBox1.Value 'Sanan objektin luominen application Set WDApp = CreateObject ("word.Application") 'Sanasovelluksen WDApp.Visible = True' asettaminen näkyväksi 'Vaaditun sanadokumentin avaaminen Aseta WDDoc = WDApp.Documents.Open (FileName)' Vapauta objektimuuttujan Set WDDoc käyttämä muisti = Nothing Set WDApp = Nothing End Sub
Jos pidit tästä blogista, jaa se ystävillesi Facebookissa. Voit myös seurata meitä Twitterissä ja Facebookissa.
Haluaisimme kuulla sinusta, kerro meille, kuinka voimme parantaa työtämme ja parantaa sitä sinulle. Kirjoita meille sähköpostitse