MitcheyK回答ポイント 500ptウォッチ

AccessのテーブルからVBAでWORDに差し込みをしたい

VBA初心者です。受発注管理.accdb の temp発注書作成 というテーブルの値をレコードごとに
発注書-差込用.doc に差し込み、別名保存したいのですが
VBAを教えていただける方いらっしゃいませんでしょうか。現在の作成中のコードを添付します。

Function InsertDoc(Maker As String) 'メーカー名を受取

Dim myWrd As Object 'オリジナル文書
Dim myTMP As Object 'テンプレート文書
Dim FileName As String

Dim myFileP As String

myFileP = "C:\～～～\Desktop\発注書-差込用.doc"

Set myWrd = GetObject(myFileP)
Set myTMP = GetObject(Class:="Word.Application")

'差込
With ActiveDocument.MailMerge
.OpenDataSource Name:="C:\～～～\Desktop\受発注管理.accdb", Connection:="TABLE temp発注書作成", SQLStatement:="SELECT * FROM [temp発注書作成]"
.SuppressBlankLines = True
.Destination = wdSendToNewDocument
.Execute
End With

'保存
FileName = "C:\～～～\Desktop\" & Format(Date, "yymmdd") & Maker & "発注書.doc"
myWrd.Application.ActiveDocument.SaveAs FileName:=MyName, FileFormat:=wdFormatDocument
myWrd.Application.ActiveDocument.Close

myWrd.Close

Set myTMP = Nothing
Set myWrd = Nothing

End Function