使用Excel VBA代码将Word文档转换为PDF

我写了下面的代码，采取截graphics式的Excel文件，并粘贴在Word文档。它工作正常但是我无法将此Word文档转换为PDF和错误显示“对象不支持此属性或方法”。似乎我定义variables（Objword作为变体）不正确。请任何人都可以帮忙。

Sub CopyToWordPicture() Dim WDApp As Word.Application Dim WDDoc As Word.Document Dim objword As variant Set objword = CreateObject("Word.Application") objword.Visible = True objword.Documents.Open "C:\Automation\BH Report\Daily&BH RAN KPI report_ok.docx" Workbooks.Open Filename:="C:\Automation\BH Report\Daily_Hourly KPI Template.xlsx" Sheets("BH_Graphs").Select Range("A1:k50").CopyPicture xlPrinter With objword '.Documents.Add .Selection.Paste .Visible = True End With 'WDApp.Visible = True ' WDApp.Selection.GoToNext wdGoToPage Windows("Daily_Hourly KPI Template.xlsx").Activate Sheets("Daily_Graphs").Select Range("A1:J50").CopyPicture xlPrinter With objword '.Documents.Add .Selection.Paste .Visible = True End With 'export as PDF objword.ExportAsFixedFormat OutputFileName:="C:\Automation\BH Report\Daily&BH RAN KPI report.pdf", _ ExportFormat:=wdExportFormatPDF end sub