要把PPT中的纪灯片打印，可以直接打印整个PPT，然后设置每页显示的幻灯片数量，然后打印即可。但一些有特殊排版需要的人，是想把每张幻灯片插入WORD中，然后再作一些必要的设置，再打印。现在就介绍一下如果快速把一个PPT转化成WORD。

1、先把PPT的所有幻灯片都生成图片：打开PPT，然后“文件”，“导出”，“选择导出格式”中的你需要图片格式，“点击另存为”，在弹出窗口中点击“保存”，选择“保存所有幻灯片”。这样就把该PPT中所有的幻灯片都转成图片，并保存在一个与该PPT同名的文件夹中。

2、新建空白WORD文档，然后根据自己需要设置该文档的页边距，行距等这些参数。

3、批量插入图片：点击“插入”，“图片”，选择需要插入的图片（选择刚才转化成图片的文件夹），全选所有图片，然后点击“确定”插入。

4、word中批量设置插入图片大小：视图，宏，新建宏，在弹出宏编辑窗口中粘贴下面代码：

Sub 批量设置图片大小()
Dim i
Dim Height, Weight
Height = 170
Weight = 237


On Error Resume Next ‘忽略错误
For i = 1 To ActiveDocument.InlineShapes.Count ‘InlineShapes类型图片
ActiveDocument.InlineShapes(i).Height = Height ‘设置图片高度为 Height_px
ActiveDocument.InlineShapes(i).Width = Weight ‘设置图片宽度 Weight_px
Next i


For i = 1 To ActiveDocument.Shapes.Count ‘Shapes类型图片
ActiveDocument.Shapes(i).Height = Height ‘设置图片高度为 Height_px
ActiveDocument.Shapes(i).Width = Weight ‘设置图片宽度 Weight_px
Next i
End Sub

保存，然后回到WORD编辑页面，点击宏，选择刚才新建的宏，然后运行就得了。使用时请根据需要调整代码中的图片大小数值。以上大小，是为了一页排3行，每行2张，共6张图片。

打赏

扫一扫，打赏作者吧～