批量修改word文档中的图片大小

第1步：

         1、我们右键“选项卡”任意位置，选择“自定义功能区”，勾选“开发工具”

        2、点击“开发工具”选项卡的“visual basic”

        3、然后会出现这个界面，我们点击“normal”，点击插入-模块

        4、接下来我们在右侧的代码窗口输入下列代码（你可以直接把下面的代码复制进去）

第2步：复制此内容，保存后，进行运行。

Sub 修改图片尺寸()

Dim 图片尺寸$, 高度$, 宽度$, 图片 As InlineShape

Set 文档 = ActiveDocument.InlineShapes

On Error Resume Next

Application.ScreenUpdating = False

图片尺寸 = InputBox(" 输入图片的尺寸( 高度和宽度之间以空格隔开 )" & Chr(13) & " 高度" & " " & "宽度" & Chr(13) & " 示例 3 5" & Chr(13) & "（所有图片调成高度3厘米 宽度5厘米）" & Chr(13) & "")

高度 = Split(图片尺寸, " ")(0)

宽度 = Split(图片尺寸, " ")(1)

If 图片尺寸 <> "" Then

For Each 图片 In 文档

图片.LockAspectRatio = msoFalse

图片.Height = 28.35 * 高度

图片.Width = 28.35 * 宽度

Next

End If

Application.ScreenUpdating = True

MsgBox ("来自一闪流溢的提示：所有图片的尺寸都已经修改完毕")

End Sub

第3步：然后我们关闭这个窗口，按alt+F8弹出宏窗口，我们选择这个宏，点击运行

第4步：此时会弹出一个对话框，让你在里面输入 你想要的图片尺寸的高度和宽度，中间以空格隔开，注意，这里图片的单位是厘米。

参考地址：如何批量修改word所有图片的尺寸