批量修改word文档中的图片尺寸

整体流程：

　　

 第一步：

　　打开需要调整图片大小的文档，看一下菜单栏有没有，没有的话需要添加。添加步骤简单用图片展示一下：

 先看一下原图：

 

 

 

 

 

 

 

 有开发工具的此步请忽略。

第二步：

　　点击开发工具-宏，进入创建宏的窗口，输入宏名“setpicsize”，点击创建，进入Visual Basic页面，没有出现这个页面的话，点击【开发工具】-【Visual Basic】，也可进入。

 

 

 第三步：

　　编辑宏，在Visual Basic页面，点击NewMacros里找的Sub setpicsize() \'设置图片大小，，End Sub替换为如下代码：

Sub setpicsize() \'设置图片大小
Dim n \'图片个数
On Error Resume Next \'忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count \'InlineShapes类型图片
ActiveDocument.InlineShapes(n).Height = 200 \'设置图片高度为 200px，根据直接想要的长度调整
ActiveDocument.InlineShapes(n).Width = 400 \'设置图片宽度 400px，根据直接想要的长度调整
Next n
For n = 1 To ActiveDocument.Shapes.Count \'Shapes类型图片
ActiveDocument.Shapes(n).Height = 200 \'设置图片高度为200px，根据直接想要的长度调整
ActiveDocument.Shapes(n).Width = 400 \'设置图片宽度 400px，根据直接想要的长度调整
Next n
End Sub

第四步：

　　运行程序，查看效果：