In diesem Artikel erstellen wir ein Makro zum Öffnen von Word-Dokumenten.
Um ein Word-Dokument zu öffnen, geben wir den vollständigen Pfad des Dokuments im Textfeld auf dem Hauptblatt an. Nachdem Sie den vollständigen Pfad angegeben haben, klicken Sie auf die Schaltfläche „Senden“, um das Makro auszuführen.
Codeerklärung
Dimmen Sie WDApp als Word.Application
Der obige Code wird verwendet, um das Objekt der Wortanwendung zu deklarieren.
Set WDApp = CreateObject("word.Application")
Der obige Code wird verwendet, um ein neues Objekt der Wortanwendung zu erstellen. Die Word-Anwendung wird gestartet, ist jedoch standardmäßig nicht sichtbar.
WDApp.Visible = True
Der obige Code wird verwendet, um das Wort Anwendungsfenster sichtbar zu machen.
Set WDDoc = WDApp.Documents.Open(FileName)
Der obige Code wird verwendet, um das Word-Dokument zu öffnen.
Setze WDDoc = Nichts
Setze WDApp = Nichts
Der obige Code wird verwendet, um den vom Objekt belegten Speicher freizugeben.
Bitte folgen Sie unten für den Code
Sub OpeningWordFile() 'Variablen deklarieren Dim FileName As String Dim WDApp As Word.Application Dim WDDoc As Word.Document 'Dateinamen aus dem Textfeld abrufen FileName = Sheets("Main").TextBox1.Value 'Objekt des Wortes erstellen application Set WDApp = CreateObject("word.Application") 'Das Wort application sichtbar machen WDApp.Visible = True 'Öffnen des erforderlichen Word-Dokuments Set WDDoc = WDApp.Documents.Open(FileName) 'Freigeben des von der Objektvariablen verwendeten Speichers Set WDDoc = Nichts Set WDApp = Nichts End Sub
Wenn Ihnen dieser Blog gefallen hat, teilen Sie ihn mit Ihren Freunden auf Facebook. Außerdem können Sie uns auf Twitter und Facebook folgen.
Wir würden uns freuen, von Ihnen zu hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern und für Sie verbessern können. Schreiben Sie uns auf der E-Mail-Site