怎样word和ppt文件混合编排

发布网友发布时间：2022-04-25 22:56

共1个回答

热心网友时间：2022-06-18 11:01

使用word宏。
1.powerpoint：文件-->另存为-->windows图元文件
2.word:工具-->宏-->宏...
新建一个宏，名字自己取，将以下内容复制到里面：
Dim i As Integer
For i = 1 To ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(i).Height = 170 * 1.1
ActiveDocument.InlineShapes(i).Width = 225 * 1.2
Next i
然后保存。
3.word:文件-->页面设置-->上下左右全调成0.5cm，横向页面
4.word:插入-->图片-->来自文件
插入刚才产生的所有图元文件。
5.word:工具-->宏-->宏...
选中刚才创建的宏，运行
检查一下，效果是不是很好

以上这个是横向页面9个幻灯片的，你可以根据自己的需要设置height和width

针对问题补充：

页面设为纵向页面，左右页边距都设为2，然后在宏中插入以下代码：
Dim i As Integer
For i = 1 To ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(i).Height = 432 * 0.4
ActiveDocument.InlineShapes(i).Width = 576 * 0.4
Next i