一、需求背景
由于投标文件的需求,需要把文件中的所有图片变成“冲蚀”,即看起来是黑白的样子,由于网上的教程大多数是针对于单个图片,或者把图片变成非“嵌入式”的,再做统一调整。
投标文件中涉及到的图片较多,且不可能一一进行单独处理,所以考虑使用对应的批量工具或者脚本。然而工具没有找到(如果大家有,可以推荐一下),查看一些英文资料,发现如下的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. 执行脚本
二、恢复处理
截止到上述,处理好了,但是“天有不测风云”,(mmp)处理技术图片的同时,把商务部分的也变成了冲蚀,这意味着我必须撤回操作,但是我不会VB处理后结果的撤回上一步,于是,想从 PictureFormat.ColorType 这个变量入手,最终找到了 msoPictureAutomatic 这个类型。
1.调用VB宏
Sub Macro1()
' 图片处理 宏
' 图片改成自动(彩色)
For Each InlineShape In ActiveDocument.InlineShapes
InlineShape.PictureFormat.ColorType = msoPictureAutomatic
InlineShape.PictureFormat.IncrementContrast 0.1
Next InlineShape
End Sub
2. 执行脚本
原文链接:https://blog.csdn.net/qq_41980405/article/details/118684045