2024年3月25日发(作者：)

ppt转换成word（绝对原创）：

1.打开ppt，文件=>页面设置：宽30cm，高21cm

2.文件=>发送到word

3.删除左右两列，留下中间的ppt

4.表格=>转换=>表格转换成文本

5.工具=>宏=>录制新宏，然后停止录制

6.工具=>宏=>宏=>打开你刚录制的新宏，编辑

将所有的内容都替换成

Sub ppt_to_word()

'

' Macro1 Macro

' 宏在 2009-12-14 由 微软用户 录制

'

For i = 1 To 200:

ght Unit:=wdCharacter, Count:=1