![Word 文档中的一千张 JPEG 图像:如何以相同的方式格式化它们?](https://linux22.com/image/1275335/Word%20%E6%96%87%E6%A1%A3%E4%B8%AD%E7%9A%84%E4%B8%80%E5%8D%83%E5%BC%A0%20JPEG%20%E5%9B%BE%E5%83%8F%EF%BC%9A%E5%A6%82%E4%BD%95%E4%BB%A5%E7%9B%B8%E5%90%8C%E7%9A%84%E6%96%B9%E5%BC%8F%E6%A0%BC%E5%BC%8F%E5%8C%96%E5%AE%83%E4%BB%AC%EF%BC%9F.png)
假设您有一个 Microsoft Word 2007 文档:您刚刚在其中插入了大约一千张 JPEG 图像。
对于第一张图像,右键单击,然后格式化图片,然后选择“重新着色”,然后在第二行“颜色模式”中选择“黑白”。
如何自动向其他 999 张 JPEG 图像发出相同的“格式化图片”命令?
我刚刚尝试使用 FORMAT PAINTER,但没有成功。
有什么线索吗?
这是一个类似的问题,但没有答案:http://thedailyreviewer.com/windowsapps/view/formatting-all-pictures-in-a-word-document-in-one-go-11962810
如何一次性选择所有图片,以实现一致的格式,以便它们在我的 Word 文档中显示相同,即,使它们都具有相同的文本环绕边距,例如...并且都是原始图片的相同 % 大小?如果 Word 不允许我“全选”图片,我是否可以复制图片的格式,然后以某种方式将其粘贴到其他图片上,类似于用于文本的格式刷?
提前感谢您的帮助。
答案1
你可以:
Dim Pic As InlineShape
For Each Pic In ActiveDocument.InlineShapes
Pic.PictureFormat.ColorType = msoPictureGrayscale
Next
答案2
好的,非常感谢 Alex K.,解决方案如下:
Sub Macro1()
'
' Macro1 Macro
'
'
Dim Pic As InlineShape
For Each Pic In ActiveDocument.InlineShapes
Pic.PictureFormat.ColorType = msoPictureBlackAndWhite
Next
End Sub
我接受了 Alex K. 的解决方案,因为他找到了解决问题的正确方法。正确的关键字是 msoPictureBlackAndWhite,而不是 msoPictureGrayscale。
非常感谢,Alex K. ;-)