word批量修改图片颜色格式——自动、灰度、黑白等

步骤如下：
1、在Word中打开你需要处理的doc文档；
2、键入ALT+F11；
3、左边的工程里面有个“Normal”，展开它后有个“模块”节点；
4、在这个“模块”节点上点鼠标右键，选择“插入-模块”，这样右边就会出现代码窗口；
5、在出现的VBA代码窗口中，粘贴下面的代码；
6、按“F5”运行代码；

%--------------------------------
Sub 批量修改图片格式()
Dim i As Integer
For i = 1 To ActiveDocument.InlineShapes.Count
If ActiveDocument.InlineShapes(i).Type = 3 Then
ActiveDocument.InlineShapes(i).PictureFormat.ColorType = msoPictureGrayscale
End If
Next
End Sub
%--------------------------------

自动：msoPictureAutomatic
黑白：msoPictureBlackAndWhite
灰度：msoPictureGrayscale
冲蚀：msoPictureMixed
水印：msoPictureWatermark