把PPT幻灯片转化成WORD

要把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张图片。

打赏

暂无评论

发表评论

电子邮件地址不会被公开。 必填项已用*标注