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文档?我只能缺憾的告诉你，
现在还真是未曾什么健全处理计划。所谓的健全，当然是转换的文档你几乎无须修正就能利用。
固然我说了上面的话，你也用不着即刻脱离，绝不料味着下面的措施对你未曾任何作用!而这种措施恰恰是最容易的，也是最卓有收获的措施，不信请继续往下看。
利用过程健全转换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.TypeText pptSelection.Slides(i).Shapes
(j).TextFrame.TextRange.text
objSelection.TypeParagraph()
objSelection.Font.Name = "宋体"
end if
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"
else '未曾ppt文件
'msgbox "讹谬：c:下未曾觉察ppt文件!"
End If
Next
pptApp.quit
点击这里直接下载该过程>>>
怎样利用过程将PPT转换为Word 文档?
将你必需转换的PPT文档放到C: 的根目录下，双击我们刚才生成的 .vbs 过程，弹出下面的对话框，点击“确定”。
尔后稍等刹那(依据PPT 文档的大小可能期待的工夫有所差异)。就会积极敞开一个曾经生成的Word 文档，怎么样，你看到了什么?转换告终，弹出下面的对话框，点击确定后收工。
这个过程无需安装，直接运行，文件也小。在转换前良好将之前敞开的Word 和PowerPoint过程关闭。
由于本过程转换后的Word文档中文字次序并未排版，因而尚需用户自行调剂。然而这曾经让我们事半功倍了
本文转自http://www.2ppt.cn/Article/157.html