腾讯视频/爱奇艺/优酷/外卖 充值4折起
word 转换为ppt，也许你很容易做到，但是反之把ppt转换为word你知道吗?我之前一直用一个很笨的方法，就是把里面的文字一段一段粘出来。文字少了还好说，要是文字多了，那个工作量就可想而知了......
powerpoint 2003 中的转换
大家可能最为常用的是下面这种方法：(在microsoft office powerpoint 2003版)
1、首先打开需要转换成中文word文件的中文powerpoint文件，然后鼠标左键依次选择“文件→发送→microsoft word”命令项。
powerpoint 2003
2.完成选择之后，系统首先会出现“撰写”对话框，此时应当在“在microsoft word使用的版式”栏中选择一种版面的配置，然后在“将幻灯片添加到microsoft word文档”栏中选择将中文powerpoint的幻灯片转换到中文word文件时的变化方式。
3.完成上述选择之后，接着使用鼠标左键单击“确定”按钮，即可启动中文word，然后自动实现将中文powerpoint文件转换到中文word文件中，此时只需要在中文word中稍微进行一些修改，即可完成转换工作。
但是经过我多次试用，其转换效果是相当的不令人满意。
powerpoint 2007 中的转换
在microsoft office powerpoint 2007版中，这个功能依然没有得到改善。只是在“发送”里面却找不到microsoft word命令项了。
powerpoint 2007中的“发送”没有了转换为word 的选项
微软office 2007 的最大的失败就是对界面的改变，他几乎完全颠覆了我们使用多年的习惯，但是当你逐步了解了之后却又发现，根本没有实质性的改变，这也是为什么更多的网友不愿意接受office 2007的理由之一。
microsoft word命令项的确被转移了地方，点击“发布”——点击“使用microsoft office word创建讲义”菜单。
发布中的创建word 讲义
看到了什么?一个完全与powerpoint 2003一样的对话框，甚至没有任何修饰，那么这个能实现ppt到word 的转换吗?显然他与powerpoint 2003 转换的效果是一样的，也以为着这一功能没有得到任何提升。同样是微软的办公平台，在互换上怎么就这么难?
与2003版没有任何变化
一般细心的用户可能会在制作ppt的时候，首先使用word创建文档，一式两份，这样以备不时之需，看来也是惧怕万一有人需要word 文档，你再整理可能就会抓瞎。
说了这么多，究竟有没有什么方法能够完美将ppt转换为word文档?我只能遗憾的告诉你，
目前还真是没有什么完美凯发app官网登录的解决方案。所谓的完美，当然是转换的文档你几乎不用修改就能使用。
虽然我说了上面的话，你也用不着马上离开，绝不意味着下面的方法对你没有任何作用!而这种方法恰恰是最简单的，也是最行之有效的方法，不信请继续往下看。
应用程序完美转换ppt 到word 文档
说起来很简单，就是你把下面这段代码文字复制到windows 文本中，将文件保存为 .vbs生成一个可执行程序。保存在任何一个地方，比如桌面。这段代码也是我在无意中发现的，但使用后感觉已经很好，并且简单。
'绑定到本地计算机
strcomputer = "."
'如果发生错误，继续执行
on error resume next
set objwmiservice = getobject("winmgmts:" _
& "{impersonationlevel=impersonate}!" & strcomputer & " ootcimv2")
msgbox "此脚本可以批量将ppt文件中的文本转换为word文件。图片、表格等内容则自动跳过" & vbcrlf & "使用时请把所有要转换的ppt文件复制到目录c:下。双击运行此文件即可。" & vbcrlf & "运行此脚本需要本机上安装了office"
'创建一个word对象
set objword = createobject("word.application")
'创建一个ppt对象
set pptapp = createobject("powerpoint.application")
'获得c:目录下的文件集合
set filelist = objwmiservice.execquery _
("associators of {win32_directory.name='c:'} where " _
& "resultclass = cim_datafile")
for each objfile in filelist
'如果文件的扩展名是ppt
if objfile.extension = "ppt" then
pptapp.visible = true
'打开这个ppt文件
set pptselection = pptapp.presentations.open("c:" & objfile.filename & "." & objfile.extension)
'如果想让脚本处理得快些，把下面一行改为“objword.visible = false”,不推荐。
objword.visible = true
'新建一个word，以保存ppt中的文本
set objdoc = objword.documents.add()
set objselection = objword.selection
'从ppt的第一页开始循环。slides.count即幻灯片的数量
for i = 1 to pptselection.slides.count
'从每一张ppt的第一个文本框开始循环，shapes.count，即每张幻灯片中文本框的数量
for j = 1 to pptselection.slides(i).shapes.count
'如果是每页的第一行，就按标题处理，变成黑体字
if i =1 then
objselection.font.name = "黑体"
'把文本框中的文字添加到word中
objselection.typetextpptselection.slides(i).shapes
(j).textframe.textrange.text
objselection.typeparagraph()
objselection.font.name = "宋体"
end if
objselection.typetextpptselection.slides(i).shapes(j).textframe.textrange.text
'加一个回车
objselection.typetextvbcrlf
next
next
'关闭这个ppt文件
pptselection.close
'保存word文件。
objdoc.saveas("c:" & objfile.filename & ".doc")
'如果不需要关闭word，把下面这一行删掉
objdoc.close
'如果不想弹出消息框，把下面这一行删掉
msgbox "转换后的word已保存在c:" & objfile.filename & ".doc"
else'没有ppt文件
'msgbox "错误：c:下没有发现ppt文件!"
end if
next
pptapp.quit
点击此处直接下载该程序>>>
怎样使用程序将ppt转换为word 文档?
将你需要转换的ppt文档放到c: 的根目录下，双击我们刚才生成的 .vbs 程序，弹出下面的对话框，点击“确定”。
之后稍等片刻(根据ppt 文档的大小可能等待的时间有所区别)。就会自动打开一个已经生成的word 文档，怎么样，你看到了什么?转换完成，弹出下面的对话框，点击确定后收工。
这个程序无需安装，直接运行，文件也小。在转换前最好将之前打开的word 和powerpoint程序关闭。
由于本程序转换后的word文档中文字顺序并未排版，因此尚需用户自行调整。但是这已经让我们事半功倍了