In dit artikel zullen we een macro maken om een Word-document te openen.
Om een Word-document te openen, specificeren we het volledige pad van het document in het tekstvak op het hoofdblad. Nadat u het volledige pad hebt opgegeven, klikt u op de knop "Verzenden" om de macro uit te voeren.
Code uitleg
Dim WDApp als Word.Application
Bovenstaande code wordt gebruikt om het object van de woordtoepassing te declareren.
Stel WDApp = CreateObject ("word.Application") in
Bovenstaande code wordt gebruikt om een nieuw object van de woordtoepassing te maken. Word-toepassing wordt gestart, maar is standaard niet zichtbaar.
WDApp.Visible = True
Bovenstaande code wordt gebruikt om het woord applicatievenster zichtbaar te maken.
Stel WDDoc = WDApp.Documents.Open(Bestandsnaam) in
Bovenstaande code wordt gebruikt om het word-document te openen.
Stel WDDoc = Niets in
Stel WDApp = Niets in
Bovenstaande code wordt gebruikt om geheugen vrij te geven dat door het object wordt ingenomen.
Volg hieronder voor de code:
Sub OpeningWordFile() 'variabelen declareren Dim FileName As String Dim WDApp As Word.Application Dim WDDoc As Word.Document 'De bestandsnaam ophalen uit het tekstvak FileName = Sheets("Main").TextBox1.Value 'Object van het woord maken application Set WDApp = CreateObject("word.Application") 'Het woord application zichtbaar maken WDApp.Visible = True 'Het vereiste Word-document openen Set WDDoc = WDApp.Documents.Open(FileName) 'Het geheugen vrijgeven dat wordt gebruikt door de objectvariabele Set WDDoc = Niets ingesteld WDApp = Niets Einde sub
Als je deze blog leuk vond, deel hem dan met je vrienden op Facebook. Ook kunt u ons volgen op Twitter en Facebook.
We horen graag van u, laat ons weten hoe we ons werk kunnen verbeteren en voor u kunnen verbeteren. Schrijf ons op de e-mailsite