Vba 用文本替换word文件中的特定图像

我正在手动删除word文件中多个段落开头的特定图像，并将其替换为文本“Picture_replaced”。有人能帮我用VBA脚本自动执行上述活动吗

注: 图像/图片总是出现在段落的开头。 有多行包含要替换的相同图像。并不是每一行都有这样的图像。

---

文件中还有其他不应触摸的图像/图片

以下宏替换企鹅图像的所有实例

Public Sub removePenguins()

    Dim objPic As InlineShape
    For Each objPic In ActiveDocument.InlineShapes
        If objPic.AlternativeText = "Penguins.jpg" Then

            objPic.Select

            Selection.Delete Unit:=wdCharacter, Count:=1
            Selection.TypeText Text:="[Image replaced] "


        End If
    Next objPic
End Sub

---

只需将AlternativeText条件替换为图像的可选文本即可。

谢谢您的快速回复。你能解释一下如何找到与图像相关的可选文本吗。这是图像的特征吗？我发现我要替换的图像的高度为0.34英寸，宽度为0.34英寸。右键单击->格式化图片->Alt Txt选项卡没有任何详细信息。我通过调试宏和检查objPic对象获得了可选文本。默认情况下，它似乎是文件名。如果您在“If objPic…”上放置一个断点并查看objPic的值，您应该会看到它对您来说是什么。