OFFICE | word 图片颜色统一处理

一、需求背景

  由于投标文件的需求，需要把文件中的所有图片变成“冲蚀”，即看起来是黑白的样子，由于网上的教程大多数是针对于单个图片，或者把图片变成非“嵌入式”的，再做统一调整。
  投标文件中涉及到的图片较多，且不可能一一进行单独处理，所以考虑使用对应的批量工具或者脚本。然而工具没有找到（如果大家有，可以推荐一下），查看一些英文资料，发现如下的VB脚本。

二、大小处理

  调用VB宏：打开word，快速调用 “ALT+F11” 调出VB工具，进行运行

Sub setpicsize() '设置图片大小
Dim n ' 图片个数
On Error Resume Next ' 忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片
ActiveDocument.InlineShapes(n).Height = 416 '设置图片高度为 416px，根据效果调整
ActiveDocument.InlineShapes(n).Width = 416 '设置图片宽度 416px，根据效果调整
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes 类型图片
ActiveDocument.Shapes(n).Height = 416 '设置图片高度为 400px，根据效果调整
ActiveDocument.Shapes(n).Width = 416 '设置图片宽度 300px，根据效果调整
Next n
End Sub

三、查看效果