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

回答の条件
  • 1人20回まで
  • 13歳以上
  • 登録:2016/03/26 11:13:49
  • 終了:2016/04/02 11:15:04

回答(0件)

回答はまだありません

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません