插入形状会间歇性地失败

Question

我有一个Word宏，可以将图像插入标题中。

Sub Test()
Dim Shp As Shape
        Filenaam2 = "1L.wmf"
        FolderName = ActiveDocument.Path
        Padnaam = FolderName + "\" + Filenaam2
        Set Shp = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes.AddPicture(FileName:=Padnaam, LinkToFile:=False, SaveWithDocument:=True, Left:=CentimetersToPoints(0), Top:=CentimetersToPoints(0))
        With Shp
        .WrapFormat.Type = wdWrapBehind
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
        .Left = CentimetersToPoints(13.7)
        .Top = CentimetersToPoints(2.2)
        End With
End Sub

这是一个测试宏，我想使用此代码在我的文档中插入30个形状：每个部分的形状不同，左/右页面的形状不同。形状是一个黑色矩形，应位于我页面的左边缘或右边缘（页面为A5,14.7厘米宽）。因此，最终的宏将遍历所有部分，并在每个标题中插入正确的图像。

当我在模板文档上运行测试宏时，它可以工作。但是当我尝试将此宏应用于另一个文档时，它会在没有任何错误消息的情况下失败。我已经确认宏可以找到引用的图像。