将Excel图像粘贴到Word标题在Office 2013中不起作用

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

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

次级（）
    设置wd = CreateObject（“Word.Document”）
     wd.Application.Visible = True

     “插入带有标志的标题
    工作表（“徽标”）形状（1）.CopyPicture xlScreen，xlBitmap
    用wd.ActiveWindow.View
         .Type = wdPrintView
         .SeekView = wdSeekCurrentPageHeader
    结束
    用wd.sections（1）.headers（wdHeaderFooterPrimary）.Range
         .Collapse wdCollapseEnd
         。糊
    结束
     wd.ActiveWindow.View.SeekView = wdSeekMainDocument

结束小组

在此先感谢您的帮助。

Answer 1

虽然我没有2013年testing，即使在2010年，我已经遇到了一些问题，某些命令不通过Paste或PasteSpecial选项暴露; 特别是涉及在应用程序之间粘贴和保存格式的内容等。

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

 wd.Application.CommandBars.ExecuteMso "PasteAsPicture" 

还有几个人可以testing：

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