怎样将PPT文件转换为Word文档精美ppt模板下载

　　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