Word批量删除所有图片及形状的可选文字，批量删除超链接

创建并运行如下宏来一次性清除所有图片及形状的可选文字（当然也可以替换成自己需要的内容，只要向那两个空串""中加入自己的文字即可）Sub RemoveAllAlternativeTexts() Dim oShape As Shape Dim oInlineShape As InlineShape For Each oShape In ActiveDocument.Shapes oShape.AlternativeText = "" Next For Each oInlineShape In ActiveDocument.InlineShapes oInlineShape.AlternativeText = "" Next End Sub