エクセルVBAでワード文書をPDF保存
質問の仕方が悪かったようですので先日の質問
https://okwave.jp/qa/q9876787.html
を取り消し、再度質問させていただきます。
エクセル2016のワークシート上にオブジェクトの挿入でワードの文書ファイルをアイコンで貼り付けています。VBAでこの文書ファイルを開き、PDFとして保存しようと思います。
見よう見まねで以下のようなコードを書いてみまた。
'参照設定 Microsoft Word 16.0 Object Library
Sub test01()
Dim objWord As Word.Application
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Dim objDoc As Word.Document
Dim FileName As String
FileName = Application.GetSaveAsFilename(, "PDFファイル,*.pdf", , "PDF保存")
Set objDoc = Worksheets("Sheet1").OLEObjects(1).Verb(Verb:=xlVerbOpen)
objDoc.ExportAsFixedFormat OutputFileName:=FileName, ExportFormat:=wdExportFormatPDF
objDoc.Close
End Sub
これで、文書ファイルは開くのですが、「オブジェクトが必要です」のエラーがでて、Set objDocがEmptyのままPDF保存ができません。どのように直せばいいのでしょうか?
ご教示ください。
お礼
そうそうにありがとうございます 今後ともよろしくおねがいいたします