0

コードの一部を変更した後、Excel で「オブジェクトはこのプロパティまたはメソッドをサポートしていません」というエラーが表示されます。エラーをスローしている行は「With odoc.MailMerge」です。コードは次のとおりです。

  strBookName = "\" & "PM MailMerge.xlsm"
  strBookPath = ActiveWorkbook.Path
  strBook = strBookPath & strBookName

'Opens Word.Application

  Set ObjWord = CreateObject("Word.Application")
  Set odoc = GetObject(strBook)

'Executes a Hidden Mail Merge

  ObjWord.Visible = False
  With odoc.MailMerge
  .Destination = wdSendToNewDocument
  With .DataSource
  .FirstRecord = 1
  .LastRecord = 1
   odoc.MailMerge.Execute
   Set odoc2 = odoc.Application.documents("Form Letters1")
   odoc.Close True
End With
End With
4

2 に答える 2

0

試す

option explicit

Dim objWord as Word.Application
Dim oDoc as As Word.Document

Set ObjWord = CreateObject("Word.Application")
set oDoc = objWord.documents.Open strBook

メニューの [ツール] > [参照] で Word ライブラリを参照することを忘れないでください。

ところで：すべての変数を薄暗くします（明示的なオプションで強制します）。

編集：注：コードサンプルで言及しているファイルは、Word .docではなくExcel .xlsmです...

于 2013-10-21T15:03:18.670 に答える