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

Question

我有 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

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

Answer 1

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

dShape.Select
dShape.Delete

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