Wordファイルを開く

Wordファイルを開いて閉じます。
必要な処理は、コメントの処理に記載します。
WordDocのオブジェクトを引数にした関数を作成しましょう。

' ------------------------------------------------------------
' 説明：Wrodファイルを開いて閉じる
' 引数：1:Wrodファイル名
' 補足：-
' ------------------------------------------------------------
Sub WordOpen(filename As String)
    Dim WordApp As Word.Application
    Dim WordDoc As Word.Document
    
    On Error GoTo ErrProc
    
    Set WordApp = New Word.Application
    
    ' Wordを表示する
    WordApp.Visible = True
  
    ' 指定したWordファイルを起動します。
    Set WordDoc = WordApp.Documents.Open(filename)
 
    ' 処理を記載
 
 
    ' 終了処理
    WordDoc.Close
    WordApp.Quit

    Set WordDoc = Nothing
    Set WordApp = Nothing
 
    Exit Sub
 
ErrProc:
    ' エラー処理

    MsgBox "Err.Number=" & Err.Number & vbCrLf & "Err.Descriptio" & Err.Description, vbExclamation, "エラー"
    
    If Not WordDoc Is Nothing Then
        WordDoc.Close
    End If
    
    WordApp.Quit
 
End Sub

【補足】

Word.Application を使用しています。
初期設定では、エラーが発生するので、参照設定「Microsoft Word 16.0 Object Library」の設定
が必要です。

【改訂】
エラー処理を追記。(2025/07/21)