I denne artikel vil vi oprette en makro til at åbne word -dokument.
For at åbne et word -dokument angiver vi dokumentets fulde sti i tekstfeltet på hovedarket. Når du har angivet den fulde sti, skal du klikke på knappen "Send" for at udføre makroen.
Kode forklaring
Dim WDApp som Word.Application
Ovenstående kode bruges til at erklære objekt for ordet ansøgning.
Indstil WDApp = CreateObject ("word.Application")
Ovenstående kode bruges til at oprette et nyt objekt i ordprogrammet. Word -programmet begynder at køre, men som standard er det ikke synligt.
WDApp.Visible = True
Ovenstående kode bruges til at synliggøre ordet applikationsvindue.
Indstil WDDoc = WDApp.Documents.Open (Filnavn)
Ovenstående kode bruges til at åbne word -dokumentet.
Indstil WDDoc = Intet
Indstil WDApp = Intet
Ovenstående kode bruges til at frigive enhver hukommelse, der er optaget af objektet.
Følg venligst nedenstående for koden
Sub OpeningWordFile () 'Deklarationsvariabler Dim FileName As String Dim WDApp As Word.Application Dim WDDoc As Word.Document' Henter filnavnet fra tekstboksen FileName = Sheets ("Main"). TextBox1.Value 'Opretter objekt for ordet applikationssæt WDApp = CreateObject ("word.Application") 'Gør synlig for ordet applikation WDApp.Visible = True' Åbning af det krævede orddokument Set WDDoc = WDApp.Documents.Open (FileName) 'Frigør hukommelsen, der bruges af objektvariablen Set WDDoc = Intet indstillet WDApp = Intet slut Sub
Hvis du kunne lide denne blog, kan du dele den med dine venner på Facebook. Du kan også følge os på Twitter og Facebook.
Vi vil meget gerne høre fra dig, lad os vide, hvordan vi kan forbedre vores arbejde og gøre det bedre for dig. Skriv til os på e -mail -stedet