将Excel图像粘贴到Office 2013中无法使用的文字标题

Question

我有一个生成Word文档的Excel工作簿。它会将Excel图像复制到生成的Word文档的标题中。此代码已在Office 2003、2007和2010中运行，但现在在2013年，它在粘贴语句上失败，在粘贴方法中出现了一个通用的自动化错误。我希望有人能帮我在Office 2013中完成这项工作。若要复制，请使用包含单个形状的名为“徽标”的工作表定义宏工作簿，添加以下代码，然后执行doctop子例程：

Const wdCollapseEnd = 0
Const wdHeaderFooterPrimary = 1
Const wdPrintView = 3
Const wdSeekCurrentPageHeader = 9
Const wdSeekMainDocument = 0

Sub doctop()
    Set wd = CreateObject("Word.Document")
    wd.Application.Visible = True

    ' insert heading with logo
    Worksheets("Logo").Shapes(1).CopyPicture xlScreen, xlBitmap
    With wd.ActiveWindow.View
        .Type = wdPrintView
        .SeekView = wdSeekCurrentPageHeader
    End With
    With wd.sections(1).headers(wdHeaderFooterPrimary).Range
        .Collapse wdCollapseEnd
        .Paste
    End With
    wd.ActiveWindow.View.SeekView = wdSeekMainDocument

End Sub

提前感谢您的帮助。

Answer 1

虽然我没有2013年的测试，但即使在2010年，我也遇到了某些命令的问题，这些命令没有通过粘贴或粘贴特殊选项公开；特别是与应用程序之间的粘贴和保留格式等相关的内容。

考虑到这一点，我猜Mso过程应该可以工作。尝试：

wd.Application.CommandBars.ExecuteMso "PasteAsPicture" 

您还可以测试其他几个：

"PasteBitmap" 
"PasteGif"
"PastePng"
"PasteJpeg"