こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

Access VBA

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

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

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

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

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

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

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

投稿日時 - 2011-08-31 00:48:55

QNo.6979034

困ってます

質問者が選んだベストアンサー

当方 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

投稿日時 - 2011-09-02 00:14:17

お礼

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

投稿日時 - 2011-09-02 23:57:54

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問