VBA删除MS Word中正文而非标题中的图像

我有MS Word文件，它的标题有两个文本框和一个图像（作为徽标），正文中有一些表格、文本和图像。
我正在尝试使用以下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

---

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

似乎我们应该首先选择要删除的

形状

我不知道为什么我说的是

shape1.Delete

它想：让我想想，嗯。。。我想我最好做

shape2.删除
，所以我会这样做。

无论如何，这是可行的：

dShape.Select
dShape.Delete

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