VBA 删除正文中的图像而不是 MS-Word 中的标题答案

【问题标题】：VBA deletes image in body instead of header in MS-WordVBA 删除正文中的图像而不是 MS-Word 中的标题
【发布时间】：2015-07-24 10:32:33
【问题描述】：

我的 MS Word 文件有一个带有 2 个文本框和一个图像（作为徽标）的标题以及正文中的一些表格、文本和图像。
我正在尝试使用此 VBA 代码删除标题（徽标）中的图像：

Dim tmp As Shape
Dim dShape As Shape

For Each tmp In ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes
    If tmp.Type = msoPicture Then
        Set dShape = tmp
    End If
Next
dShape.Delete

在第一次测试中它工作正常！之后它会删除正文图像而不是标题图像！！！

【问题讨论】：

标签： vba ms-word

【解决方案1】：

看来我们应该先选择我们要删除的Shape！！
我不知道为什么当我说shape1.Delete 时它会想：让我看看，嗯……我认为我最好这样做shape2.Delete，所以我会这样做。
任何方式都有效：

dShape.Select
dShape.Delete

VBA 是个傻瓜（就像它的平台一样）！

【讨论】：