Как распечатать документ Word в виде обложки?

Question

Я пытаюсь добавить титульный лист документа 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