I den här artikeln kommer vi att skapa ett makro för att öppna word -dokument.
För att öppna ett word -dokument anger vi hela sökvägen för dokumentet i textrutan på huvudarket. När du har angett hela sökvägen klickar du på knappen "Skicka" för att köra makrot.
Kodförklaring
Dim WDApp som Word.Application
Ovanstående kod används för att deklarera objekt för ordet applikation.
Ange WDApp = CreateObject ("word.Application")
Ovanstående kod används för att skapa ett nytt objekt för ordprogrammet. Word -programmet börjar köras, men som standard kommer det inte att synas.
WDApp.Visible = True
Ovanstående kod används för att synliggöra ordet applikationsfönster.
Ange WDDoc = WDApp.Documents.Open (FileName)
Ovanstående kod används för att öppna word -dokumentet.
Ställ in WDDoc = Ingenting
Ställ in WDApp = Ingenting
Ovanstående kod används för att frigöra allt minne som objektet upptager.
Följ koden nedan
Sub OpeningWordFile () 'Declaring variables Dim FileName As String Dim WDApp As Word.Application Dim WDDoc As Word.Document' Hämta filnamnet från textrutan FileName = Sheets ("Main"). TextBox1.Value 'Skapa objekt för ordet applikationsuppsättning WDApp = CreateObject ("word.Application") 'Synliggörande av ordprogrammet WDApp.Visible = True' Öppnar det önskade orddokumentet Set WDDoc = WDApp.Documents.Open (FileName) 'Släpp minnet som används av objektvariabeln Set WDDoc = Nothing Set WDApp = Nothing End Sub
Om du gillade den här bloggen, dela den med dina vänner på Facebook. Du kan också följa oss på Twitter och Facebook.
Vi vill gärna höra från dig, låt oss veta hur vi kan förbättra vårt arbete och göra det bättre för dig. Skriv till oss på e -postwebbplatsen