word中如何将大量图片批处理统一的尺寸大小

选择工具——宏——宏(Alt+F8调出宏编辑窗口)，输入宏名——（非数字）——创建；

在Sub 宏名()与End Sub之间编写如下代码：（之后单击运行即可）

Dim n '图片个数

On Error Resume Next '忽略错误

For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 99 '设置图片高度为99px

ActiveDocument.InlineShapes(n).Width = 71 '设置图片宽度71px

Next n

For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片

ActiveDocument.Shapes(n).Height = 99 '设置图片高度为99px

ActiveDocument.Shapes(n).Width = 71 '设置图片宽度71px

Next n

我们可以尝试使用VBA完成Word文档中图片统一设置宽高：

Sub 统一图片尺寸()

'仅适用于嵌入式图片

Dim oInlineShape As InlineShape

For Each oInlineShape In ActiveDocument.InlineShapes

With oInlineShape

.LockAspectRatio = msoFalse '不锁定纵横比

.Height = MillimetersToPoints(23) '以毫米为单位设置高度

.Width = MillimetersToPoints(31) '以毫米为单位设置宽度

End With

Next

End Sub

如果是浮动式图形，可以使用以下方法简单实现：

1、单击【绘图】工具栏右则的（工具栏选项）按钮，依次单击【添加或删除按钮】/【绘图】/【选中多个对象】命令，【选中多个对象】命令将被添加到【绘图】工具栏的最后位置。

2、单击【绘图】工具栏中的（选中多个对象）按钮，弹出【选择多个对象】对话框。

3、单击【全选】按钮，【对象】列表框中的所有对象被全部选定。

4、单击【确定】按钮，Word全选文档中的所有图片。

5、单击【格式】/【图片】命令，打开【设置图片格式】对话框，单击【大小】选项卡，在【高度】框中输入“23”（毫米），在【宽度】框中输入“31”（毫米）。

6、单击【确定】按钮，Word将所有图片统一设置成23mm*31mm（高*宽）。