使用word中的宏脚本批量修改图片的显示比例及更新交叉引用的颜色

 作者：高飞

转载请注明出处：http://blog.csdn.net/soartju

 

最近需要为产品提供帮助文档，使用的帮助文档制作软件可以直接将word转换成html格式，但是，转换之后，图片较小。为了解决这个问题，想到了在word中，将图片统一调整大小比例，转换后的html中的图片就会很清晰。但是，500多页的文档，里边的图片大概有六七百，手动转工作量太大，并且容易出错，后期修改维护工作量也巨大。

 

在网上查找批量处理图片的方法，发现word的宏是一个好东西，其实就是vb脚本。下边给出批量改变word中图片显示比例的代码：

2. Sub setpicsize()
3. '设置图片大小
4. MsgBox (ActiveDocument.InlineShapes.Count)
5. Dim j As Long  '计数图片个数
6. For j = 1 To ActiveDocument.InlineShapes.Count