WORD中批量设置图片

 

 

 

用宏批量定位word中图片位置

 

我有一个word文档，里面有多幅图，但图片的缩进位置不统一，有些靠右，有些居中，有些靠左等等。
能否通过编制宏一次完成调整，让所有图片靠左，或居中。

我知道通过宏可以批量完成一个word中所有图片大小的修改，在次与大家共享，也希望可以给大家参考。
1、Alt+F8调出宏编辑窗口
2、点创建按钮，创建新宏，setpicsize,内容如下：

 

Sub setpicsize()
'
' setpicsize Macro
' 宏在 2009-12-12 由 贾俊德 创建
'
Dim j '计数图片个数
For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes
ActiveDocument.InlineShapes(j).Height = 280 '设置高度
ActiveDocument.InlineShapes(j).Width = 380 '设置宽度
Next j
End Sub

3、保存退出，点运行setpicsize宏，word中所有的图片统一调整为宽17cm，高12.77cm