Wordテンプレートファイルを開く

Wordはテンプレートを使用すると便利なことがあります。
定型文や、決まった見た目を使用する際には便利です。
テンプレートファイルは拡張子は「.dot」「.dox」となり、Openを使用してWordを開くと、テンプレート編集で開いてしまいます。

' ------------------------------------------------------------
' 説明：Word のテンプレートファイルを開く
' 引数：1:テンプレートファイル名
' 戻値：-
' 備考：-
' ------------------------------------------------------------
Sub WordTemplateOpen(filename As String)
    Dim WordApp As Word.Application
    Dim WordDoc As Word.Document

    Set WordApp = New Word.Application

    ' Wordを表示する
    WordApp.Visible = True

    ' 指定したWordテンプレートファイルを起動します。
    Set WordDoc = WordApp.Documents.Add(Template:=filename)

    ' 処理

    ' 終了
    WordDoc.Close
    WordApp.Quit
End Sub

Openして開くとテンプレートを開いてしまう

テンプレートから開くようにすると、「文書1」となる

---

【補足】

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