VBA для издателя против Word

Пытаюсь создать макрос для копирования данных из Excel в MS Publsiher. У меня есть код для MS Word, но он не работает при применении к Publisher. В этой строке происходит сбой appPub.ActiveWindow.Bookmarks("Growth").Paste

Word VBA:

    Sub SendData()
    Dim WordApp As Object
    Set WordApp = CreateObject("Word.Application")
    Dim ws As Worksheet
    ' Sheet1 is the codename for the sheet with the named range you want to copy,
    ' this is the name of the sheet in brackets in the VBAProject explorer, not the
    ' friendly name given on the worksheet tab itself visible to the end user.
    Set ws = Sheet4
    ' This is the constant string which holds the filepath to your Word document
    Const WORDDOC As String = "C:\Quarterly Reports - Word Version\Growth.docx"

    WordApp.Visible = True

    WordApp.Documents.Open WORDDOC

    ' Copies the named range "OrderRange" from the Excel book 
        'you are running this from.
    ws.Range("Growth").Copy
    ' Pastes it to the bookmark "OrderBookmark" in your Word doc template.
    WordApp.ActiveDocument.Bookmarks("Growth").Range.PasteAppendTable
    ' Sets your printer in Word to Adobe PDF and then prints the whole doc.
    ' WordApp.ActivePrinter = "Adobe PDF"
    ' WordApp.ActiveDocument.PrintOut
    Set WordApp = Nothing
    End Sub

Издатель VBA:

    Sub SendDataPB()
    Dim appPub As Object
    Set appPub = CreateObject("Publisher.Application")
    Dim ws As Worksheet
    ' Sheet1 is the codename for the sheet with the named range you want to copy,
    ' this is the name of the sheet in brackets in the VBAProject explorer, not the
    ' friendly name given on the worksheet tab itself visible to the end user.
    Set ws = Sheet4
    ' This is the constant string which holds the filepath to your Publisher document
    Const PublisherDOC As String = "C:\Quarterly Reports - Publisher     Version\Growth.pub"

    appPub.ActiveWindow.Visible = True

    appPub.Open PublisherDOC

    ' Copies the named range "OrderRange" from the Excel book
    '     you are running this from.
    ws.Range("Growth").Copy
    ' Pastes it to the bookmark "OrderBookmark" in your Publisher doc template.
    appPub.ActiveWindow.Bookmarks("Growth").Paste
    ' Sets your printer in Publisher to Adobe PDF and then prints the whole doc.
    ' PublisherApp.ActivePrinter = "Adobe PDF"
    ' PublisherApp.ActiveDocument.PrintOut
    Set appPub = Nothing
    End Sub