この記事では、Word文書を開くためのマクロを作成します。

Word文書を開くには、メインシートのテキストボックスに文書のフルパスを指定します。フルパスを指定した後、「送信」ボタンをクリックしてマクロを実行します。

ArrowMainSheet

コードの説明

Dim WDApp As Word.Application上記のコードは、Wordアプリケーションのオブジェクトを宣言するために使用されます。

Set WDApp = CreateObject( “word.Application”)

上記のコードは、applicationという単語の新しいオブジェクトを作成するために使用されます。 Wordアプリケーションが実行を開始しますが、デフォルトでは表示されません。

WDApp.Visible = True上記のコードは、アプリケーションウィンドウという単語を表示するために使用されます。

WDDoc = WDApp.Documents.Open(FileName)を設定します

上記のコードは、Word文書を開くために使用されます。

Set WDDoc = Nothing Set WDApp = Nothing上記のコードは、オブジェクトが占有しているメモリを解放するために使用されます。

コードについては以下に従ってください

Sub OpeningWordFile()

'Declaring variables

Dim FileName As String

Dim WDApp As Word.Application

Dim WDDoc As Word.Document

'Getting the file name from the text box

FileName = Sheets("Main").TextBox1.Value

'Creating object of the word application

Set WDApp = CreateObject("word.Application")

'Making visible the word application

WDApp.Visible = True

'Opening the required word document

Set WDDoc = WDApp.Documents.Open(FileName)

'Release the memory used by object variable

Set WDDoc = Nothing

Set WDApp = Nothing

End Sub

このブログが気に入ったら、FacebookやFacebookで友達と共有してください。

皆様からのご意見をお待ちしております。私たちの仕事を改善し、あなたのために改善する方法をお知らせください。 [email protected]までご連絡ください