word文件中所有图片背景改为黑白色

执行前效果：

执行后效果：

操作步骤

1、打开VBA（Alt+F11）

2、输入函数内容

Sub 所有图片改为黑白()
   Dim sh As InlineShape
   Dim Sha As Shape
   For Each Sha In ActiveDocument.Shapes
       Sha.PictureFormat.ColorType = msoPictureGrayscale
   Next Sha
       
   For Each sh In ActiveDocument.InlineShapes
       sh.PictureFormat.ColorType = msoPictureGrayscale
   Next sh          

End Sub

3、运行函数（F5）