统一添加Word文档图片格式设置可选文字

　　一般，我们将网页上的东西复制到Word文档时，图片属性里会有“可选文字说明”。但有些情况下，我们并不需要它，不然会被人发现文档是从网上复制下来；或者保存成PDF格式后，图片的可选文字会作为悬停时的说明显示在鼠标旁边。

　　今天告诉大家，如何通过宏来一次性清除或更改所有图片及形状的可选文字（只要向那两个空串""中加入自己的文字即可）：

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

　　PS:关于宏的使用，可以参看这篇文章《批量修改ppt中所有字的字体颜色》。

相关日志：

Syna 发表于 2010-3-5 类别: ｢SynaKyra｣ | 标签: ,

若未注明，本博客文章均为原创，转载请以链接形式标明本文地址
本文地址：http://skday.com/archives/380/

评论

(Ctrl + Enter)