Excel 如何将Word文档打印为封面？

我正在尝试将Word文档封面添加到从Excel打印的报价中

这是我尝试过的，但我可以看出它在尝试使用数组中的对象时存在缺陷

我想将当前选择的Excel工作表（以Word文档作为封面）打印到一个PDF文件中

Sub PrintQuoteCover()

Set WordApp = Nothing 'release the memory

    Dim objWord As Object
    Dim objDoc As Object
    Dim CSELECT As Range

    Set CSELECT = Selection
    Set objWord = CreateObject("Word.Application")
    objWord.Visible = False
    Set objDoc = objWord.Documents.Open("O:\12.Product Info\QUOTE COVER MARKETING.docx")

    Dim ARRAYONE As Variant
    ARRAYONE = Array(objDoc, CSELECT)
    ARRAYONE.Select

    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:="O:\1.To Quote\" & _
      FileName1, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
      IgnorePrintAreas:=False, OpenAfterPublish:=False

    Set WordApp = Nothing 'release the memory
End Sub

---

使用Office应用程序内置的功能，无法将不同文件中的内容合并到单个PDF中。因此，不，VBA不能做到这一点，至少，没有第三方库/软件是不行的。（我不知道，因为我不需要它。）请注意，询问在哪里可以找到这样的库或软件在堆栈溢出问题上是离题的。谢谢，这至少可以清除它。使用Office应用程序内置的功能，不可能将不同文件中的内容合并到单个PDF中。因此，不，VBA不能做到这一点，至少，没有第三方库/软件是不行的。（我不知道有哪一个，因为我不需要它。）请注意，询问在哪里可以找到这样的库或软件在堆栈溢出问题上是离题的。谢谢，这至少可以澄清问题。