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

Question

我手动删除我的word文件中倍数段落开头的特定图像，并将其替换为文本＆＃34; Picture_replaced＆＃34;。有人可以帮我用VBA脚本自动执行上述活动。

注意： 图像/图片始终出现在段落的开头。 有多行包含要替换的相同图像。并非每条线都有这个特定的图像。 文件中还有其他图像/图片，不应触及。

Answer 1

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

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条件替换为图像的替代文字。