怎样使用程序将PPT转换为Word-文档

1、怎样使用程序将PPT转换为Word-文档PowerPoint 2003 中的转换大家可能最为常用的是下面这种方法：(在Microsoft Office PowerPoint 2003 版)1、首先打开需要转换成中文Word文件的中文PowerPoint文件，然后鼠标左键依次选择“文件宀发送tMicrosoft Word ”命令项。PowerPoint 20032. 完成选择之后，系统首先会出现“撰写”对话框，此时应当在在Microsoft Word 使用的版式”栏中选择一种版面的配置，然后在“将幻灯片添加到Microsoft Word 文档栏中选择将中文 PowerPoint的幻灯片转换到中文

2、 Word文件时的变化方式。鼓讲到 Microsoft WordJjjlMicrosoft Word 便用的版式广备注在幻灯片旁逛）r莖订在幻灯肯英應r备注在幻灯片卞（1）r竽行在幻灯片下世a只彊用天鋼 * & & it A 111 m m隔幻灯片湃加到Hi crsoft Word文档广,沪jLI f F jr洋功寓# uuML比3. 完成上述选择之后，接着使用鼠标左键单击“确定”按钮，即可启动中文Word,然后自动实现将中文PowerPoint文件转换到中文 Word文件中，此时只需要在中文Word中稍微进行一些修改，即可完成转换工作。但是经过我多次试用，其转换 效果是相当的不令人满意。Po

3、werPoint 2007 中的转换在Microsoft Office PowerPoint 2007 版中，这个功能依然没有得到改善。只是在“发送”里面却 找不到Microsoft Word 命令项了。0Q卜L,.发韦凹C1T WT3PowerPoint 2007中的“发送”没有了转换为 Word的选项当你逐步了解了之后却又发现，根本没有实质性的改变，这也是为什么更多的网友不愿意接受Office 2007的理由之一Microsoft Office WordMicrosoft Word命令项的确被转移了地方，点击发布”点击“使用创建讲义”菜单微软Office 2007的最大的失败就是对界面的改

4、变，他几乎完全颠覆了我们使用多年的习惯，但是将文莒訓本舷垢他人可开gi电子砂以电刊聊阻紡式趙演示S離怖BInternet ftMQO克韦 interne*示立乾.iJLLT7罕陋 PowEirPoimjjgKg? SMw （诚舌云画FiS(NJ” CD WgQ(Kmt佑潘示文楂紀瞬处诞遷里创邑叵M昭更! CD 上的文#男時为址! Irw二发帝幻灯片二亠 巧匚LLf强戸邑匚匸二至衣共12臺 二琴W来重复使用iy刁 使用 Microsoft Office Word 開建讲义(H) 匸二I s ward羊可幵涯示文缶.井遵罄邑走义洱立氐 瓦哀档管捏圈务器(Q)當畚()发送直l创建文档王件区$为潘示文

5、握創建一个券列站并嚟持本地劃本同 歩*_p关闵f-jliElElJilt.XoPowerPoint 即学丄发布中的创建Word讲义看到了什么？一个完全与 PowerPoint 2003 样的对话框，甚至没有任何修饰，那么这个能实现PPT到 Word的转换吗？显然他与PowerPoint 2003 转换的效果是一样的，也以为着这一功能没有得到任何提 升。同样是微软的办公平台，在互换上怎么就这么难 ？发送到 Bicrosnft Office Tord1划=门备注在幻灯片下迈O空行在幻灯片下麗门只惟用丈纲袒Microsoft 0i ce Word 使用的版式在幻灯片门宁行在幻超片旁将幻灯片靠如剥Mi

6、crosoft Office Word文裆秸贴O韬贴權接G)与2003版没有任何变化一般细心的用户可能会在制作PPT的时候,首先使用Word创建文档，一式两份，这样以备不时之需，看来也是惧怕万一有人需要Word文档，你再整理可能就会抓瞎。说了这么多，究竟有没有什么方法能够 完美将PPT转换为Word文档？我只能遗憾的告诉你，目前还真 是没有什么完美解决方案。所谓的完美，当然是转换的文档你几乎不用修改就能使用。虽然我说了上面的话，你也用不着马上离开，绝不意味着下面的方法对你没有任何作用！而这种方法恰恰是最简单的，也是最行之有效的方法，不信请继续往下看应用程序完美转换PPT到Word文档说起来很简

7、单，就是你把下面这段代码文字复制到Windows文本中，将文件保存为.vbs生成一个可执行程序。保存在任何一个地方，比如桌面。这段代码也是我在无意中发现的，但使用后感觉已经很好， 并且简单。绑定到本地计算机strComputer =.如果发生错误，继续执行on error resume nextSet objWMIService = GetObject(winmgmts: _& impersonationLevel=impersonate! & strComputer & rootcimv2)msgbox 此脚本可以批量将PPT文件中的文本转换为 word文件。图片、表格等内容则自动跳过& v

8、bcrlf& ”使用时请把所有要转换的PPT文件复制到目录下。双击运行此文件即可。& vbcrlf & ”运行此脚本需要本机上安装了 office创建一个word对象Set objWord = CreateObject(Word.Application)创建一个PPT对象Set PPTApp = CreateObject(PowerPoint.application)获得目录下的文件集合Set FileList = objWMIService.ExecQuery _(ASSOCIATORS OF Win32_Directory.Name=c: Where _& Resultclass = CI

9、M_DataFile)For Each objFile In FileList如果文件的扩展名是PPTIf objFile.Extension = PPT ThenPPTApp.visible = true打开这个PPT文件Set pptSelection = PPTApp.Presentations.Open(c:& objFile.FileName &.&objFile.Extension)如果想让脚本处理得快些，把下面一行改为“ objWord.Visible = false ” ,不推荐。objWord.Visible = true新建一个word，以保存PPT中的文本Set objD

10、oc = 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 thenobjSelection.Font.Name = 黑体把文本框中的文字添加到w

11、ord中objSelection.TypeTextPP1Selection.Slides(i).Shapes(j).TextFrame.TextRange.textobjSelection.TypeParagraph()objSelection.Font.Name = 宋体end ifobjSelection.TypeTextPP1Selection.Slides(i).Shapes(j).TextFrame.TextRange.text加一个回车objSelection.TypeText vbcrlfNextnext关闭这个PPT文件PPTSelection.close保存word文件。objDoc.SaveAs(c: & objFile.FileName & .doc)如果不需要关闭word，把下面这一行删掉objDoc.close如果不想弹出消息框，把下面这一行删掉msgbox 转换后的 word 已保存在 c: & objFile.FileName & .docelse 没有PPT文件msgbox 错误： 下没有发现PPT文件！End IfNextPPTApp.quit怎样使用程序将PPT转换为Word文档？将你需要转换的 竺文档放到C:的根目录下，双击我们刚才生成的.vbs 程序，弹岀下面的对话框，点击“确定”