如何批量处理word中图片的格式，调节亮度和对比度？（word的亮度）

还是让我帮你来出点子吧，怎么前面的都答非所问呢。 新建一个宏，将如下代码原样复制粘贴进入后按F5执行即可。 'SubMacro1() Fori=1ToActiveDocument.InlineShapes.Count ActiveDocument.InlineShapes(i).PictureFormat.Brightness=0.5'将嵌入型图片的亮度设置为50 ActiveDocument.InlineShapes(i).PictureFormat.Contrast=1# '将嵌入型图片的对比度设置为100 Nexti Fori=1ToActiveDocument.Shapes.Count IfActiveDocument.Shapes(i).Type=msoPictureThen'假设浮动型对象是图片时才处理 ActiveDocument.Shapes(i).PictureFormat.Brightness=0.5 '将浮动型图片的亮度设置为50 ActiveDocument.Shapes(i).PictureFormat.Contrast=1# '将浮动型图片的对比度设置为100 EndIf Nexti Msgbox"处理完毕！" 'EndSub 今后也推荐你使用我开发的《文件批量处理百宝箱V8.0》中的一些批量处理功能。