I denne artikkelen vil vi lage en makro for å åpne word -dokument.
For å åpne et word -dokument, vil vi spesifisere hele banen til dokumentet i tekstboksen på hovedarket. Etter å ha spesifisert hele banen, klikker du på "Send" -knappen for å utføre makroen.
Kode forklaring
Dim WDApp As Word.Application
Koden ovenfor brukes til å erklære objektet for ordet søknad.
Sett WDApp = CreateObject ("word.Application")
Ovenstående kode brukes til å lage et nytt objekt for ordprogrammet. Word -programmet starter å kjøre, men som standard vil det ikke være synlig.
WDApp.Visible = True
Koden ovenfor brukes til å gjøre vinduet for programprogram synlig.
Angi WDDoc = WDApp.Documents.Open (Filnavn)
Koden ovenfor brukes til å åpne word -dokumentet.
Sett WDDoc = Ingenting
Sett WDApp = Ingenting
Koden ovenfor brukes til å frigjøre alt minne som opptas av objektet.
Følg koden nedenfor
Sub OpeningWordFile () 'Deklarasjonsvariabler Dim FileName As String Dim WDApp As Word.Application Dim WDDoc As Word.Document' Henter filnavnet fra tekstboksen FileName = Sheets ("Main"). TextBox1.Value 'Oppretter objekt for ordet application Set WDApp = CreateObject ("word.Application") 'Synliggjøre ordet application WDApp.Visible = True' Åpne det nødvendige orddokumentet Set WDDoc = WDApp.Documents.Open (FileName) 'Frigjør minnet som brukes av objektvariabelen Sett WDDoc = Nothing Set WDApp = Nothing End Sub
Hvis du likte denne bloggen, del den med vennene dine på Facebook. Du kan også følge oss på Twitter og Facebook.
Vi vil gjerne høre fra deg, gi oss beskjed om hvordan vi kan forbedre arbeidet vårt og gjøre det bedre for deg. Skriv til oss på e -post