2、宏代码一键自动排版

如果图片数量过多的话，就不适合用「F4」了。此时最好的方法使用VBA宏代码，别一听代码就觉得很难，傻瓜化操作，复制粘贴就OK了。

先给出代码：

Sub setpicsize() '设置图片大小Dim n ' 图片个数On Error Resume Next ' 忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片 ActiveDocument.InlineShapes(n).Select Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter ' 居中 If ActiveDocument.InlineShapes(n).Width >= ActiveDocument.InlineShapes(n).Height Then ActiveDocument.InlineShapes(n).Width = 28.345 * 14 '设置图片宽度 500px Else ActiveDocument.InlineShapes(n).Width = 28.345 * 8 '设置图片宽度 300px End IfNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes 类型图片 ActiveDocument.Shapes(n).Select Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter ' 居中 If ActiveDocument.Shapes(n).Width >= ActiveDocument.Shapes(n).Height Then ActiveDocument.Shapes(n).Width = 28.345 * 14 '设置图片宽度 500px Else ActiveDocument.Shapes(n).Width = 28.345 * 8 '设置图片宽度 300px End IfNext nEnd Sub

其中的数值是可以随意修改成你想要的尺寸的。然后怎么使用这段代码呢？很简单，在Word中按「Alt + F8」键，创建一个叫「setpicsize」的宏，然后将代码复制粘贴进编辑器就可以了。

最后关闭编辑器回到Word页面，直接运行宏代码就可以了，图片会按照你设置的尺寸、对齐方式自动排版。

这样不管多少张图片，只要我们一键运行代码，排版全自动完成。

二、1键导出Word全部图片

图片排版好了，想将它们全部导出到电脑怎么办？一张张保存？不存的，2种简单方法教你一次性导出Word全部图片。

1、更改后缀名

将Word文件后缀名改为「rar」压缩包格式，解压，找到「Media」文件夹，图片全都在里面。

软件介绍

BatchOutput PDF从监视的热文件夹中自动打印PDF文件。 为各种打印设置创建热文件夹，将PDF放入热文件夹 - 软件将自动完成其余工作，从而节省您手动打印每张PDF的时间和麻烦。

功能特色

从监视的热文件夹自动打印PDF为各种打印设置创建热文件夹（例如：彩色打印机，100％的Tabloid; B＆W打印机，A4，缩小以适应等）使用BatchOutput的单个副本为多个用户提供服务PDF服务器打印后将文件移至成功和错误文件夹跟踪历史记录中的所有打印文件在后台打印BatchOutput PDF时使用其他程序节省手动打印每个PDF的时间和麻烦

二、文件、文件夹批量改名

支持文件、文件夹的批量改名，只需快速导入多个素材，选择好命名方式，即可修改，文件的话，还支持多种类型，比如音频、图片、视频等都行，批量操作，可以对多个文件同时进行批量命名，大大提高了操作效率。