【MSAccess】Word差込サンプルコード

以下、MSAccessからWordへ差し込む際のコードを作成。
煮るなり、焼くなりお好きにどーぞ。（コードフリー）
※指摘、一切非受付。好きにやっているので。
-------------------------------------------------------


'差込印刷コード(フォーム上のボタンへ埋め込み）
Private Sub insert_at_word_Click()
Dim myWrd As Object      'オリジナル文書をセット
Dim myTMP As Object      'テンプレート文書用
Dim myNAME As String     'テンプレート文書名
Dim i As Variant         '指定ページ文字列設定


'差込印刷のオリジナル文書（あらかじめWordにて差込の準備の上、作業を進めてください。
Const myFileP As String = "【ワードの差込フォルダ先】.docx"


'ワードオブジェクトの取得
Set myWrd = GetObject(myFileP)
Set myTMP = GetObject(Class:="Word.Application")

With myWrd 'クエリデータ→Wordに差込
With .MailMerge
     .Destination = 0
     .SuppressBlankLines = True


'ページ数判定
i = InputBox("印刷するページ範囲を入力して下さい。", "A-B形式で指定します")

'型式入力判定
    If InStr(i, "-") = 0 Then
        MsgBox "キャンセルします。"
        End
    End If

With .DataSource
     .FirstRecord = Left(i, InStr(i, "-") - 1)         '印刷開始ページ番号
     .LastRecord = Right(i, (Len(i) - InStr(i, "-")))  '印刷終了ページ番号

End With

.Execute Pause:=False 'AccessのDBが不可時に判定


End With
End With

myWrd.Close

Set myTMP = Nothing
Set myWrd = Nothing
End Sub