怎样将PPT文件转换为Word文档?
2018-03-05 22:14 责任编辑：砕月
Word 转换为PPT，也许你很容易做到，但是反之把PPT转换为Word你知道吗?我之前一直用一个很笨的方法，就是把里面的文字一段一段粘出来。文字少了还好说，要是文字多了，那个工作量就可想而知了......PowerPoint 2003 中的转换大家可能最为常用的是下面这种方法：(在Microsoft Office PowerPoint 2003版)1、首先打开需要转换成中文Word文件的中文Po
Word 转换为PPT，也许你很容易做到，但是反之把PPT转换为Word你知道吗?我之前一直用一个很笨的方法，就是把里面的文字一段一段粘出来。文字少了还好说，要是文字多了，那个工作量就可想而知了......
PowerPoint 2003 中的转换
大家可能最为常用的是下面这种方法：(在Microsoft Office PowerPoint 2003版)
1、首先打开需要转换成中文Word文件的中文PowerPoint文件，然后鼠标左键依次选择“文件→发送→Microsoft Word”命令项。
2.完成选择之后，系统首先会出现“撰写”对话框，此时应当在“在Microsoft Word使用的版式”栏中选择一种版面的配置，然后在“将幻灯片添加到Microsoft Word文档”栏中选择将中文PowerPoint的幻灯片转换到中文Word文件时的变化方式。
3.完成上述选择之后，接着使用鼠标左键单击“确定”按钮，即可启动中文Word，然后自动实现将中文PowerPoint文件转换到中文Word文件中，此时只需要在中文Word中稍微进行一些修改，即可完成转换工作。
但是经过我多次试用，其转换效果是相当的不令人满意。
PowerPoint 2007 中的转换
在Microsoft Office PowerPoint 2007版中，这个功能依然没有得到改善。只是在“发送”里面却找不到Microsoft Word命令项了。
微软Office 2007 的最大的失败就是对界面的改变，他几乎完全颠覆了我们使用多年的习惯，但是当你逐步了解了之后却又发现，根本没有实质性的改变，这也是为什么更多的网友不愿意接受Office 2007的理由之一。
Microsoft Word命令项的确被转移了地方，点击“发布”——点击“使用Microsoft Office Word创建讲义”菜单。
看到了什么?一个完全与PowerPoint 2003一样的对话框，甚至没有任何修饰，那么这个能实现PPT到Word 的转换吗?显然他与PowerPoint 2003 转换的效果是一样的，也以为着这一功能没有得到任何提升。同样是微软的办公平台，在互换上怎么就这么难?
一般细心的用户可能会在制作PPT的时候，首先使用Word创建文档，一式两份，这样以备不时之需，看来也是惧怕万一有人需要Word 文档，你再整理可能就会抓瞎。
说了这么多，究竟有没有什么方法能够完美将PPT转换为Word文档?我只能遗憾的告诉你，目前还真是没有什么完美解决方案。所谓的完美，当然是转换的文档你几乎不用修改就能使用。
虽然我说了上面的话，你也用不着马上离开，绝不意味着下面的方法对你没有任何作用!而这种方法恰恰是最简单的，也是最行之有效的方法，不信请继续往下看。
应用程序完美转换PPT 到Word 文档
说起来很简单，就是你把下面这段代码文字复制到Windows 文本中，将文件保存为 .vbs生成一个可执行程序。保存在任何一个地方，比如桌面。这段代码也是我在无意中发现的，但使用后感觉已经很好，并且简单。
'绑定到本地计算机 strComputer = "." '如果发生错误，继续执行 on error resume next Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 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，把下面这一行删掉 www.pptbz.com ppt宝藏提供 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文档中文字顺序并未排版，因此尚需用户自行调整。但是这已经让我们事半功倍了。
热门标签更多
相关推荐
-
ppt幻灯片怎么设置图片无限循环滚动呢?
powerpoint首页如果图片循环滚动效果，会让播放的效果精彩很多，想想大伙在等待的时候，看到的不再是一动不动的屏幕，动起来，也精神起来。 一、插入图片 1、依次单击“插入”--“图片”--“来自文件”命令 2、在打开的“插入图片”对话框，通过按住Ctrl加鼠标单击，选中需要插入的图片，单击“打开”命令按钮。 3、选中插入的十二张生肖图片，双击，进入“设置对象格式”对话框，单击“尺寸”标......
2018-03-24
-
简约现代水彩艺术点缀文艺风通用PPT模板
今天为大家介绍一款简约现代水彩艺术点缀文艺风通用PPT模板，有需要的可以来看看。更多下载请点击ppt家园。这是一款简约现代的水彩艺术点缀文艺风通用PPT模板，适用于通用类ppt模板制作。下载地址：简约现代水彩艺术......
2019-07-26
-
跨境电商英语ppt模板
今天为大家介绍一款跨境电商英语ppt模板，有需要的可以来看看。更多下载请点击ppt家园。这是一款简洁时尚的跨境电商英语ppt模板，适用于商务类ppt模板制作。下载地址：跨境电商英语ppt模板小编推荐：跨境电商营销方案......
2019-08-09
-
如何找回编辑中丢失的PPT文件
我们在编辑文稿时，由于死机或停电，常常造成文稿的丢失，能不能抢救回来呢?如何找回编辑中丢失的PPT文件解决方法：启动PPT2002，执行“工具→选项”命令，打开“选项”对话框，切换到“保存”标签下，选中“保存自动......
2017-07-05
-
素雅简约大气水墨晕染点缀中国风通用PPT模板
今天为大家介绍一款素雅简约大气水墨晕染点缀中国风通用PPT模板，有需要的可以来看看。更多下载请点击ppt家园。这是一款素雅大气的水墨晕染点缀中国风通用PPT模板，适用于风格类ppt模板制作。下载地址：素雅简约大气......
2019-06-26
-
-
公考类比推理ppt模板
今天为大家介绍一款公考类比推理ppt模板，有需要的可以来看看。更多下载请点击ppt家园。这是一款时尚大气的公考类比推理ppt模板，适用于教育类ppt模板制作。下载地址：公考类比推理ppt模板小编推荐：考研复试面试ppt......
2019-04-02
-
简约风格家居赏析ppt模板
今天为大家介绍一款简约风格家居赏析ppt模板，有需要的可以来看看。更多下载请点击ppt家园。这是一款大气时尚的简约风格家居赏析ppt模板，适用于生活类ppt模板制作。下载地址：简约风格家居赏析ppt模板小编推荐：智能......
2018-12-10
-
ppt制作双面翻书效果
1、改变配色方案（背景：0，0，255；文本和线条：白；填充：白；标题文本：黄）2、封页写上“活页夹双向翻页特效”及制作者姓名 3、Ctrl＋m——插入新幻灯片（ppt宝藏 www.pptbz.com提供）4、自选图形—基本形状—折角形，舞台上左右对称放上两个折角形（水平翻转一个），大小适当，填充为：填充效果—单色：白（拉浅一些）；底纹样式：垂直右下5、假如我们要做10页活页＋封面封底，那么我们可......
2018-03-06
-
PPT如何解决幻灯片链接文件失效
PPT如何解决幻灯片链接文件失效?ppt模板（www.pptjia.com）中的幻灯片文件中有链接，但是移动文件以后发现链接文件的路径变了，该怎么办呢?今天小编给大家带来了解决的教程，有需要的朋友一起来看一下吧。更多PPT教程......
2017-11-23
扫码加微信客服有好礼