Wordのチェックボックスを操作(フォームコントロール)

Wordで作成したテンプレート文章で、チェックボックスにチェックを付けたり、外したりする処理になります。
以前のバージョンで使用されていた「フォームコントロール」のチェックボックスになります。
コントロールのチェックボックスは、Wordのチェックボックスを操作を参照してください。
チェックボックスには名前を付ける作業があるので、Word側の処理も必要になります。
テンプレートを使用しない場合は、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.FormFields("check01").CheckBox.Value = True

    ' 終了
    WordDoc.Close
    WordApp.Quit
End Sub

【補足】

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

【Word側の処理】

メニューの「開発」から「以前のバージョンのフォーム」のチェックボックスを選択します。
「開発」が表示されていない場合は、「リボンのユーザー設定」から追加してください。