四种方法，批量地修改Word中图片的大小|163

一份Word文档中，除了文字之外，占比最多的就是图片，但这个图片的排版却是一个麻烦的事。虽然Word中的图片排版没有PPT那么高，但是还是需要统一下高度宽度这些参数，让它们更整齐一些的。今天要分享的，就是解决图片排版的好方法——批量修改图片大小。

1、利用修图软件

可以用Photoshop、美图秀秀这类修图软件来批量修改Word中的图片大小，统一了之后再把它们插入Word文档中。不过PS运行起来占用的内存比较大，如果只是修改尺寸的话，小编比较推荐用这个美图秀秀的小插件。

2、选择多个对象

这是Word中的一个功能，平时并不在工具栏中显示，让我们先把它给调出来。

现在就可以在“开始”选项卡中看到它了。

现在我们把多张图片拉入文档中，然后点击“选择多个对象”，发现对象中并没有任何东西，怎么回事呢？

因为我们还少了两个操作：第一是要把插入图片的位置格式改为“四周型”，小编直接在“选项”的“高级”设置中，修改“将图片插入/粘贴为”的格式，选择“四周型”确定，之后添加的图片就会默认是“四周型”的了；

第二个操作是将文档保存为doc格式，因为“选择多个对象”是早期的功能，现在的新版本docx并不能启用它。

现在，就可以在“选择多个对象”中找到这些图片了。

接着，在图片“格式”中，设置它们的高度或宽度，可以看到Word文档中所有图片的大小都被修改了。

3、F4重复操作

一定要记住这个快捷键F4，它的作用是重复上一步的操作。不止可以在Word中使用，PPT和Excel中也是通用的。怎么用它来批量修改图片的大小呢？

首先，选中Word文档中的一张图片，进入图片格式修改尺寸参数；

然后，找到下一张图并选中它，按下F4，图片的大小也和之前修改的那张一样了。

重复上面的操作，直到把Word文件中的所有图片都修改好就可以了。

4、宏代码运行

这个方法用的是Word中的高级功能，宏代码。宏的位置是在视图中，点击“查看宏”进行创建即可。

下面给大家送上批量修改图片尺寸的代码，直接复制创建就好：

Sub setpicsize() '设置图片大小
Dim n ' 图片个数
On Error Resume Next ' 忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片
ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px
ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes 类型图片
ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px
ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px
Next n
End Sub

最后，选中刚刚创建的这个代码（setpicsize），点击运行就完成了。