OFFICE | word 图片颜色统一处理

一、需求背景

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

二、冲蚀处理

1.调用VB宏

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

Sub Macro1()

' 图片处理 宏
' 图片改成灰度

For Each InlineShape In ActiveDocument.InlineShapes
InlineShape.PictureFormat.ColorType = msoPictureGrayscale
InlineShape.PictureFormat.IncrementContrast 0.1
Next InlineShape

End Sub

2.执行VB脚本

二、恢复处理

  截止到上述，处理好了，但是“天有不测风云”，（mmp）处理技术图片的同时，把商务部分的也变成了冲蚀，这意味着我必须撤回操作，但是我不会VB处理后结果的撤回上一步，于是，想从 PictureFormat.ColorType 这个变量入手，最终找到了 msoPictureAutomatic 这个类型。

Sub Macro1()


' 图片处理       宏
' 图片改成自动（彩色）
For Each InlineShape In ActiveDocument.InlineShapes
InlineShape.PictureFormat.ColorType = msoPictureAutomatic
InlineShape.PictureFormat.IncrementContrast 0.1
Next InlineShape

End Sub