使用宏批量处理word中的图片大小.docx

使用宏批量处理word中的图片大小  HYPERLINK /xiazhaoqiang/article/details/6663068 \t _blank 使用宏批量处理word中的图片大小? 用宏批量定位word中图片位置? ? 我有一个word文档，里面有多幅图，但图片的缩进位置不统一，有些靠右，有些居中，有些靠左等等。?能否通过编制宏一次完成调整，让所有图片靠左，或居中。?我知道通过宏可以批量完成一个word中所有图片大小的修改，在次与大家共享，也希望可以给大家参考。?1、Alt+F8调出宏编辑窗口?2、点创建按钮，创建新宏，setpicsize,内容如下：?Sub?setpicsize()?设置图片大小??宏在?2008-3-31?由?hero_thm?录制??Dim?j?计数图片个数?For?j?=?1?To?ActiveDocument.InlineShapes.Count?文件中图片总个数，图片类型为inlineshapes?ActiveDocument.InlineShapes(j).Height?=?362???置高度?ActiveDocument.InlineShapes(j).Width?=?481.87?设置宽度?Next?j?End?Sub? 3、保存退出，点运行setpicsize宏，word中所有的图片统一调整为宽17cm，高12.77cm ? ———————————————————————————————————————————————————————— 例2? Sub?setpicsize()设置图片大小?宏在?2008-3-31?由?hero_thm?录制Dim?j?计数图片个数For?j?=?1?To?ActiveDocument.InlineShapes.Count?文件中图片总个数，图片类型为inlineshapesIf?ActiveDocument.InlineShapes(j).Width??480?ThenActiveDocument.InlineShapes(j).Width?=?400?设置宽度End?IfNext?j End?Sub