Access VBA

質問

AccessとWordの連携について教えてください。

フォーム[会社データ]上に「ｃｍｄ実行」ボタンを配置しています。

行いたいのは次の作業です。

上記「ｃｍｄ実行」ボタンのクリックによりWordを起動（新規文書）し，フォームに表示しているレコードから[会社名]テキストボックスのデータを２行目のセンターに，[担当者]テキストボックスのデータを４行目の左端にそれぞれ出力する。

AccessのVBAで[ツール][参照設定]で[Microsoft Word Object Library]を選択済みです。

どなたかご教授いただければと思います。何とぞよろしくお願いいたします。

なお，AccessのVBAで[ツール][参照設定]で[Microsoft Word Object Library]を選択済みです。

回答No.1

nicotinism · ベストアンサー

当方 Office2010 なので参照設定は、Microsoft Word 14.0 Object Library です。
ワードのVBAなんぞは知らんので、ワードのマクロの自動記録で出来たものを
Accessにコピペしただけです。
詳しいことはサッパリ分かりませんのでご勘弁を。<(_ _)>

Private Sub cmd実行_Click()
　　Dim oWRD As New Word.Application
　　oWRD.Visible = True '要らないかも？
　　With oWRD
　　　　.Documents.Add DocumentType:=wdNewBlankDocument '新規
　　　　With .Selection
　　　　　　.TypeParagraph '改行？
　　　　　　.TypeText Text:=Me!PcDrive 'Me!会社名に変更を
　　　　　　.HomeKey Unit:=5, Extend:=wdExtend
　　　　　　.ParagraphFormat.Alignment = wdAlignParagraphCenter 'センター合わせ
　　　　　　.EndKey Unit:=wdLine
　　　　　　.TypeParagraph
　　　　　　.TypeParagraph
　　　　　　.HomeKey Unit:=wdLine
　　　　　　.ParagraphFormat.Alignment = wdAlignParagraphLeft
　　　　　　.TypeText Text:=Me!VolumeName 'Me!担当者名 に変更を
　　　　End With

　　　　.ChangeFileOpenDirectory "D:\" '既定のマイドキュメントなどに保存なら不要
　　　　.ActiveDocument.SaveAs2 FileName:="abc.docx", _
　　　　　　FileFormat:=wdFormatXMLDocument, _
　　　　　　LockComments:=False, _
　　　　　　Password:="", _
　　　　　　AddToRecentFiles:=True, _
　　　　　　WritePassword:="", _
　　　　　　ReadOnlyRecommended:=False, _
　　　　　　EmbedTrueTypeFonts:=False, _
　　　　　　SaveNativePictureFormat:=False, _
　　　　　　SaveFormsData:=False, _
　　　　　　SaveAsAOCELetter:=False, _
　　　　　　CompatibilityMode:=14 '多分ワードのバージョン番号
　　End With
　　oWRD.Quit savechanges:=False
　　MsgBox "さて、どうかな？"
End Sub

お礼

ご回答いただきましてありがとうございました。
教えていただいたおかげでなんとか無事に解決いたしました。
もう少し自分でも勉強してみようと思いました。
ありがとうございました。