U ovom ćemo članku stvoriti makro za otvaranje word dokumenta.
Za otvaranje word dokumenta navest ćemo punu putanju dokumenta u tekstualnom okviru na glavnom listu. Nakon što navedete punu putanju, kliknite gumb "Pošalji" da biste izvršili makronaredbu.
Objašnjenje koda
Zatamnite WDApp kao Word.Application
Gornji kôd koristi se za deklariranje objekta riječi application.
Postavi WDApp = CreateObject ("word.Application")
Gornji kôd koristi se za stvaranje novog objekta riječi application. Wordova aplikacija počet će se izvoditi, ali prema zadanim postavkama neće biti vidljiva.
WDApp.Visible = Istina
Gornji kôd koristi se kako bi prozor aplikacije za riječ bio vidljiv.
Postavi WDDoc = WDApp.Documents.Open (Ime datoteke)
Gornji kôd koristi se za otvaranje riječi document.
Postavite WDDoc = Ništa
Postavite WDApp = Ništa
Gornji kôd koristi se za oslobađanje memorije koju zauzima objekt.
Molimo slijedite dolje za kôd
Pod OpeningWordFile () 'Deklariranje varijabli Dim FileName as String Dim WDApp kao Word.Application Dim WDDoc kao Word.Document' Dobivanje naziva datoteke iz okvira za tekst FileName = Sheets ("Main"). TextBox1.Value 'Stvaranje objekta riječi skup aplikacija WDApp = CreateObject ("word.Application") 'Omogućavanje vidljivosti riječi aplikacija WDApp.Visible = True' Otvaranje potrebnog dokumenta riječi Postavite WDDoc = WDApp.Documents.Open (Ime datoteke) 'Oslobodite memoriju koju koristi objektna varijabla Postavi WDDoc = Ništa nije postavljeno WDApp = Ništa ne završava pod
Ako vam se dopao ovaj blog, podijelite ga sa svojim prijateljima na Facebooku. Također, možete nas pratiti na Twitteru i Facebooku.
Voljeli bismo vas čuti, javite nam kako možemo poboljšati svoj rad i učiniti ga boljim za vas. Pišite nam na web stranici e -pošte