批量删除或替换word文档中图片的可选文字

jyxlfd

在日常处理word文档中，经常会碰到文档中的插图被添加了网站的版权信息等，如下图所示。那么，该如何删除（或者替换）该版权信息呢？我们可以通过创建宏命令来完美地解决了该问题。现在分享出来，希望能帮助到有需要的朋友。该代码非本人原创，只是修改并实践可用，如有错误请高手指出。

创建“宏”，添加如下代码，保存即可。以后用到时只要通过运行该宏命令即可，方便实用。
宏代码如下：

1. Sub 删除可选文字()
   
2. '
   
3. ' 删除可选文字 宏
   
4. '
   
5. Dim oShape As Shape
   
6. Dim oInlineShape As InlineShape
   
7. For Each oShape In ActiveDocument.Shapes
   
8. oShape.AlternativeText = "要删除“可选文字”则此处留空，也可以替换成自己需要的文字"
   
9. Next
   
10. For Each oInlineShape In ActiveDocument.InlineShapes
    
11. oInlineShape.AlternativeText = "要删除“可选文字”则此处留空，也可以替换成自己需要的文字"
    
12. Next
    
13. MsgBox "处理完毕！"
    
14. End Sub

复制代码

该贴已经同步到 jyxlfd的微博

oylw

暂时用不到这个功能！

jyxlfd

自己用上了

sanculans

帮忙了，非常感谢楼主的付出