Ⅰ word宏代码--选中的图片修改尺寸 代码，不是批量处理
1. VB语言中对图片大小的设置是以原图的长宽等比在缩放，统一设置时默认优先对齐所有图片的“宽度”。
2. ActiveDocument.InlineShapes(n).Range.ParagraphFormat.Alignment= wdAlignParagraphCenter '设置图片居中 可以让图片居中，Left、Right可以分别设置左对齐、右对齐。
3. 全文如果有“手动换行符”↓（代码是^l），设置某一部分居中时会影响漆上下部分的居中与否，因而，如果需要只对图片进行居中，则需先将全文中的↓替换成“段落标记符”（常规回车键，代码是^p）。
4. 这里的Shapes（InlineShapes）不仅仅是指图片，也包含其它的，自选图形、任意多边形、OLE 对象、ActiveX 控件、图片等。
5. InlineShapes类型图片与Shapes类型图片的区别有待研究。
按比例缩放篇代码
Sub setpicsize() '设置图片大小 Dim n
Dim picwidth Dim picheight
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片 picheight = ActiveDocument.InlineShapes(n).Height picwidth = ActiveDocument.InlineShapes(n).Width
ActiveDocument.InlineShapes(n).Height = picheight * 0.6 '设置高度为0.6倍
ActiveDocument.InlineShapes(n).Width = picwidth * 0.6 '设置宽度为0.6倍 Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片 picheight = ActiveDocument.Shapes(n).Height picwidth = ActiveDocument.Shapes(n).Width
ActiveDocument.Shapes(n).Height = picheight * 0.6 '设置高度为0.6倍 ActiveDocument.Shapes(n).Width = picwidth * 0.6 '设置宽度为0.6倍 Next n End Sub
Ⅱ 用宏批量定位word中图片位置
帮你稍微修改了一下，使所有嵌入式图片居中。
对于所有图片，可以用ActiveDocument.Shapes.Count
注意：这里的Shapes（InlineShapes）不仅仅是指图片，也包含其它的，自选图形、任意多边形、OLE 对象、ActiveX 控件、图片等。
Sub setpicsize()
'设置图片大小
' 宏在 2008-3-31 由 hero_thm 录制
'
Dim j '计数图片个数
For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes
ActiveDocument.InlineShapes(j).Select '选中图片
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter '图片居中；wdAlignParagraphLeft左对齐
Next j
End Sub
上面，我补充的语句，其实也是录制宏的方式，生成的。（先选中图片，再点居中按钮）
另外，学习宏，多看看Word自带的帮助文档吧。
==========2008-4-16========
Sub setpicsize()
'
Dim j '计数图片个数
For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型也可以为shapes
ActiveDocument.InlineShapes(j).Select '选中图片
'ActiveDocument.InlineShapes(j).Range.Paragraphs(1).Range.Select '上一行不行，用这个
With Selection.ParagraphFormat '所选段落的格式
.Alignment = wdAlignParagraphCenter '图片居中
.LeftIndent = 0 '左缩进磅数
.RightIndent = 0 '右缩进磅数
.FirstLineIndent = 0 '首行缩进磅数
.CharacterUnitLeftIndent = 0 '左缩进字符数
.CharacterUnitRightIndent = 0 '右缩进字符数
.CharacterUnitFirstLineIndent = 0 '首行缩进字符数
End With
Next j
End Sub
Ⅲ word批量处理图片尺寸及图片居中（宏）
在日常的办公中，我们常常需要在Word文档中插入大量的图片，但是图片尺寸各异可能会影响到版面的视觉效果。这里有一个简单且实用的方法，通过使用Word的宏功能，可以快速批量调整图片尺寸和位置，提升工作效率。下面是具体步骤：
首先，进入Word文档，确保你已经打开了"开发工具"选项卡，这是进行宏操作的必要工具。
接着，找到并打开宏编辑器。如果你不知道如何操作，可以使用快捷键ALT+F11直接打开它。
在宏编辑器中，你需要编写或修改宏代码。这里，你可以参考以下模板：
xml
Sub ResizeAndCenterImages()
Dim rng As Range
Set rng = ActiveDocument.InlineShapes范围
' 1. 遍历所有图片
For Each shape In rng
' 2. 获取图片尺寸并调整
shape.Width = ' 你的新宽度
shape.Height = ' 你的新高度
' 3. 图片居中对齐
shape.LockAspectRatio = msoFalse ' 确保图片按比例缩放
shape.Left = shape.Range.InlineParaFormat.Alignment ' 设置水平居中
shape.Top = shape.Range.InlineParaFormat.Alignment ' 设置垂直居中
Next shape
' 4. 宏执行完毕
MsgBox "图片尺寸调整和居中已完成!"
End Sub
记得替换代码中的' 你的新宽度' 和 ' 你的新高度' 为实际需要的尺寸。然后，保存并运行宏，你就会看到图片已经按照指定尺寸并居中对齐了。
通过这个方法，你可以轻松处理文档中的图片问题，使版面更加整洁美观。