ppt怎么转换成word文档

1

把PPT转WORD形式的方法

1．利用"大纲"视图打开PPT演示文稿，单击"大纲"，在左侧"幻灯片/大纲”任务

窗格的“大纲”选项卡里单击一下鼠标，按"Ctrl+A"组合健全选内容，然后使用

"Ctrl+C"组合键或右键单击在快捷菜单中选择"复制"命令，然后粘贴到Word里。

提示：这种方法会把原来幻灯片中的行标、各种符号原封不动的复制下来。

2．利用"发送"功能巧转换打开要转换的PPT幻灯片，单击"文件"→"发送

"→"MicrosoftWord"菜单命令。然后选择"只使用大纲"单选按钮并单击"确定"按钮，

等一会就发现整篇PPT文档在一个Word文档里被打开。

提示：在转换后会发现Word有很多空行。在Word里用替换功能全部删除空行

可按"Ctrl+H"打开"替换"对话框，在"查找内容"里输入"^p^p"，在"替换为"里输入

"^p"，多单击几次"全部替换"按钮即可。("^"可在英文状态下用"Shift+6"键来输入。)

3．利用"另存为"直接转换打开需要转换的幻灯片，点击"文件"→"另存为"，然

后在"保存类型"列表框里选择存为"rtf"格式。现在用Word打开刚刚保存的rtf文件，

再进行适当的编辑即可实现转换。

'绑定到本地计算机

strComputer="."

'如果发生错误，继续执行

onerrorresumenext

SetobjWMIService=GetObject("winmgmts:"_

&"{impersonationLevel=impersonate}!"&strComputer&"rootcimv2")

msgbox"此脚本可以批量将ppt文件中的文本转换为word文件。图片、表格等内容则自动跳过"&vbcrlf&"使用时请把所有要转换的ppt文件复制到目录c:下。双

击运行此文件即可。"&vbcrlf&"运行此脚本需要本机上安装了office"

'创建一个word对象

SetobjWord=CreateObject("ation")

'创建一个ppt对象

2

SetpptApp=CreateObject("ation")

'获得c:目录下的文件集合

SetFileList=ery_

("ASSOCIATORSOF{Win32_='c:'}Where"_

&"ResultClass=CIM_DataFile")

ForEachobjFileInFileList

'如果文件的扩展名是ppt

ion="ppt"Then

e=true

'打开这个ppt文件

SetpptSelection=("c:"&me&"."&ion)

'如果想让脚本处理得快些，把下面一行改为“e=fal”,不推荐。

e=true

'新建一个word，以保存ppt中的文本

SetobjDoc=()

SetobjSelection=ion

'从ppt的第一页开始循环。即幻灯片的数量

Fori=

'从每一张ppt的第一个文本框开始循环，，即每张幻灯片中文本框的数量

Forj=(i).

'如果是每页的第一行，就按标题处理，变成黑体字

3

ifi=1then

="黑体"

'把文本框中的文字添加到word中

(i).Shapes(j).

ragraph()

="宋体"

endif

(i).Shapes(j).

'加一个回车

xtvbcrlf

Next

next

'关闭这个ppt文件

'保存word文件。

("c:"&me&".doc")

'如果不需要关闭word，把下面这一行删掉

'如果不想弹出消息框，把下面这一行删掉

msgbox"转换后的word已保存在c:"&me&".doc"

el'没有ppt文件

4

'msgbox"错误：c:下没有发现ppt文件！"

EndIf

Next

上一页1234下一页