批量调整word 图片大小

打开文档后，按Alt+F11,在左边Porject下找到ThisDocument，右键插入模块，贴上下面的 Sub Macro() For Each iShape In ActiveDocument.InlineShapes iShape.Height = iShape.Height * 0.25 iShape.Width = iShape.Width * 0.25 Next iShape End

>>阅读原文<<