Word 转换为PPT也许你很容易做到但是反的把PPT转换为Word你知道吗?我的前直用个很笨思路方法就是把里面文字段段粘出来文字少了还好说要是文字多了那个工作量就可想而知了......　　PowerPo 2003 中转换

　　大家可能最为常用是下面这种思路方法:(在Microsoft Office PowerPo 2003版)

　　1、首先打开需要转换成中文Word文件中文PowerPo文件然后鼠标左键依次选择“文件→发送→Microsoft Word”命令项

　　

　　PowerPo 2003

　　2.完成选择的后系统首先会出现“撰写”对话框此时应当在“在Microsoft Word使用版式”栏中选择种版面配置然后在“将幻灯片添加到Microsoft Word文档”栏中选择将中文PowerPo幻灯片转换到中文Word文件时变化方式

　　

　　3.完成上述选择的后接着使用鼠标左键单击“确定”按钮即可启动中文Word然后自动实现将中文PowerPo文件转换到中文Word文件中此时只需要在中文Word中稍微进行些修改即可完成转换工作

　　但是经过我多次试用其转换效果是相当不令人满意

　　PowerPo 2007 中转换

　　在Microsoft Office PowerPo 2007版中这个功能依然没有得到改善只是在“发送”里面却找不到Microsoft Word命令项了

　　

　　PowerPo 2007中“发送”没有了转换为Word 选项

　　微软Office 2007 最大失败就是对界面改变他几乎完全颠覆了我们使用多年习惯但是当你逐步了解了的后却又发现根本没有实质性改变这也是为什么更多网友不愿意接受Office 2007理由的

　　Microsoft Word命令项确被转移了地方点击“发布”——点击“使用Microsoft Office Word创建讲义”菜单

　　

　　发布中创建Word 讲义

　　看到了什么?个完全和PowerPo 2003样对话框甚至没有任何修饰那么这个能实现PPT到Word 转换吗?显然他和PowerPo 2003 转换效果是样也以为着这功能没有得到任何提升同样是微软办公平台在互换上如何就这么难?

　　

　　和2003版没有任何变化

　　般细心用户可能会在制作PPT时候首先使用Word创建文档式两份这样以备不时的需看来也是惧怕万有人需要Word 文档你再整理可能就会抓瞎

　　说了这么多究竟有没有什么思路方法能够完美将PPT转换为Word文档?我只能遗憾告诉你目前还真是没有什么完美解决方案所谓完美当然是转换文档你几乎不用修改就能使用

　　虽然我说了上面话你也用不着马上离开绝不意味着下面思路方法对你没有任何作用!而这种思路方法恰恰是最简单也是最行的有效思路方法不信请继续往下看

　　应用完美转换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("PowerPo.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
　　 '如果是每页第行就按标题处理变成黑体字　　　
　　 i =1 then
　　　　　 objSelection.Font.Name = "黑体"
　　　　　 '把文本框中文字添加到word中
　　　 objSelection.TypeText　pptSelection.Slides(i).Shapes(j).TextFrame.TextRange.text
　　 objSelection.TypeParagraph
　　　　 objSelection.Font.Name = "宋体"
　　　　　 end
　　 objSelection.TypeText　pptSelection.Slides(i).Shapes(j).TextFrame.TextRange.text
　　　 '加个回车
　　 objSelection.TypeText　vbcrlf
　 Next
next
'关闭这个ppt文件
pptSelection.close
'保存word文件
objDoc.SaveAs("c:" & objFile.FileName & ".doc")
'如果不需要关闭word把下面这行删掉
objDoc.close
'如果不想弹出消息框把下面这行删掉
msgbox "转换后word已保存在c:" & objFile.FileName & ".doc"
　'没有ppt文件
'msgbox ":c:下没有发现ppt文件！"
　　 End If
Next
pptApp.quit　　点击此处直接下载该>>>

　　怎样使用将PPT转换为Word 文档?

　　将你需要转换PPT文档放到C: 根目录下双击我们刚才生成 .vbs 弹出下面对话框点击“确定”

　　的后稍等片刻(根据PPT 文档大小可能等待时间有所区别)就会自动打开个已经生成Word 文档如何样你看到了什么?转换完成弹出下面对话框点击确定后收工

　　这个无需安装直接运行文件也小在转换前最好将的前打开Word 和PowerPo关闭

　　由于本转换后Word文档中文字顺序并未排版因此尚需用户自行调整但是这已经让我们事半功倍了