三步制作批量处理聊天截图工具

1、说明

之前发布了打印聊天截图，你可能需要这个工具 ，在后台留言处收到很多读者求下载，但是我发现直接发送会出现无法使用的情况，想了想，不如直接发教程，只需要三步，就可以自制该工具。

2、第一步：新建Word

新建一个Word文件，打开“Word选项”，在“高级”选项中，对“将图片插入/粘贴为”改为“嵌入型”，单击“确定”。

3、第二步：创建宏

单击“视图”选项卡中的“宏”按钮下拉箭头，弹出“宏”对话框后，在“宏名”中随意输入宏的名称，比如“批量处理微信截图”，然后单击“创建”按钮。

之后，会弹出如下图所示的对话框。

在上图的光标处，复制黏贴以下代码：

Dim nOn Error Resume NextFor n = 1 To ActiveDocument.InlineShapes.CountActiveDocument.InlineShapes(n).Height = 300Next n

结果如下图所示，单击“保存”按钮，并关闭代码对话框，回到Word页面：

4、第三步：保存Word

保存Word，在“保存类型”中，选择“启用宏的Word文档”选项，如下图所示。

5、使用

第一步：双击打开工具，通过“插入图片”的方式，插入需要打印的聊天记录，如下图所示：

第二步：进入“视图”选项卡，单击“宏”下拉箭头，选择“查看宏”。

第三步：在弹出的“宏”对话框中，单击“运行”按钮。

第四步：聊天记录截图已经自动完成了图片大小的批量调整，效果如下图所示，原先一页Word只能打印一张截图，调整之后，一页Word可以打印四张截图。

假如我们上述代码中的300改成250：

ActiveDocument.InlineShapes(n).Height = 250

保存并关闭代码对话框，单击“运行”，效果如下图所示。