Šajā rakstā mēs izveidosim makro, lai atvērtu Word dokumentu.
Lai atvērtu Word dokumentu, galvenās lapas tekstlodziņā norādīsim pilnu dokumenta ceļu. Pēc pilna ceļa norādīšanas noklikšķiniet uz pogas “Iesniegt”, lai izpildītu makro.
Koda skaidrojums
Dim WDApp kā Word. Pieteikums
Iepriekš minētais kods tiek izmantots, lai deklarētu vārda lietojumprogrammas objektu.
Iestatīt WDApp = CreateObject ("word.Application")
Iepriekš minētais kods tiek izmantots, lai izveidotu jaunu Word lietojumprogrammas objektu. Word lietojumprogramma sāks darboties, taču pēc noklusējuma tā nebūs redzama.
WDApp.Visible = True
Iepriekš minētais kods tiek izmantots, lai padarītu redzamu vārdu lietojumprogrammas logu.
Iestatiet WDDoc = WDApp.Documents.Open (faila nosaukums)
Iepriekš minētais kods tiek izmantots, lai atvērtu vārdu dokumentu.
Set WDDoc = Nekas
Iestatīt WDApp = Nekas
Iepriekš minētais kods tiek izmantots, lai atbrīvotu visu objekta aizņemto atmiņu.
Lūdzu, sekojiet tālāk norādītajam kodam
Sub OpeningWordFile () 'Mainīgo deklarēšana Dim FileName As String Dim WDApp kā Word.Application Dim WDDoc As Word.Document' Faila nosaukuma iegūšana no tekstlodziņa FileName = Sheets ("Main"). TextBox1.Value 'Vārda objekta izveide lietojumprogrammu kopa WDApp = CreateObject ("word.Application") 'Vārda lietojumprogrammas WDApp.Visible = True' padarīšana redzama = Nothing Set WDApp = Nothing End Sub
Ja jums patika šis emuārs, kopīgojiet to ar saviem draugiem Facebook. Varat arī sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot savu darbu un padarīt to labāku jums. Rakstiet mums e -pasta vietnē