PPT教程
PPT模板 设计素材 PPT背景图 PPT教程 专题 word模板 excel模板 PPT标签
个人规划 自我介绍 求职竞聘 学术报告 入职培训 毕业设计
搜索
开通VIP
首页 PPT教程  PPT常见问题
全部 PPT资讯 PPT背景图 PPT技巧 PPT常见问题 图片素材 办公教程 PPT设计 视频教程

怎样将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制作LOGO

    使用PPT制作LOGO

    使用PPT制作LOGO?之前给大家介绍过用ppt模板（www.pptjia.com）制作动态logo的方法，那么怎么制作简单普通的logo呢？今天小编给大家带来了制作的教程，有需要的朋友一起来看一下吧。更多PPT教程尽在PPT家园，快来关注......

    2017-12-04

  • 在PPT2007中怎么对多个对象同时执行一个动作

    在PPT2007中怎么对多个对象同时执行一个动作

    在制作PPT演示文稿中，经常会需要对一张幻灯片中的多个对象同时执行一个动作，那么怎么在PPT2007中实现这一功能呢?以下是学习啦小编为您带来的关于在PPT2007中对多个对象同时执行一个动作，希望对您有所帮助。在PPT2007中对多个对象同时执行一个动作打开PowerPoint演示文稿，按住【Ctrl】键单击鼠标左键选择需要执行相同动作的多个图形，这里我们选择如图所示的三个图形。选择&ldquo......

    2018-03-22

  • 在PPT报告中统一字体

    在PPT报告中统一字体

    1、打开PowerPoint程序，把PowerPoint的宏安全级别设为中。点击工具——宏——安全性，选择“中”或者“低”，点确定。（如图一） 2、复制加载宏程序文件（SDR报告统一字体.ppa），3、关闭所有PowerPoint文件，重启PowerPoint程序，点击工具——加载宏，点添加，弹出对话框，点空白区域，点右键，再点“粘贴”，把宏文件复制到PowerPoint的Addlns目标，（如图......

    2018-03-07

  • 可修改中秋节ppt模板

    可修改中秋节ppt模板

    今天为大家介绍一款可修改中秋节ppt模板，有需要的可以来看看。更多下载请点击ppt家园。这是一款时尚大气的可修改中秋节ppt模板，适用于节日类ppt的模板制作。下载地址：可修改中秋节ppt模板小编推荐：PPT怎么修改模......

    2018-08-25

  • Word文档快速转换为ppt教程

    Word文档快速转换为ppt教程

    许多人都习惯在PowerPoint环境中制作幻灯片。如果你手头有一个现成的Word文稿讲义，就能变成PowerPoint演示文稿，而不用打开 PowerPoint重新输入文字。因为Word和PowerPoint两个软件早为你考虑周到了，只需几下简单的操作，你的一篇word文档即可轻松转换为PowerPoint演示文稿。本文提供两种方法供您选择。　　·导入Word文档　　先在Word的大纲视图下，创......

    2018-03-05

  • 高一英语说课ppt模板

    高一英语说课ppt模板

    今天为大家介绍一款高一英语说课ppt模板，有需要的可以来看看。更多下载请点击ppt家园。这是一款大气清新的高一英语说课ppt模板，适用于教育类ppt模板制作。下载地址：高一英语说课ppt模板小编推荐：人物传记讲课ppt......

    2019-06-23

  • 如何改善PPT课件播放性能

    如何改善PPT课件播放性能

    何改善PPT课件播放性能?在用ppt模板（www.pptjia.com）制作课件的过程中，经常会遇到电脑运行速度缓慢，有时甚至出现花屏，那么这种情况怎么解决呢?今天小编给大家带来了解决的方法，有需要的朋友一起来看一下吧。更......

    2017-11-24

  • ppt底色怎么修改

    ppt底色怎么修改

    首先，打开需要更换底色的PPT文件;然后，在左侧幻灯片预览栏里右键单击需要更换底色的PPT页面。选择“设置背景格式”然后，在“纯色填充”里边选择填充颜色。最后，如果是只需要更换单张的背景颜色，点击“关闭”即可......

    2017-07-14

  • 超级炫酷！PowerPoint构筑绚丽的3D立体图形详细图文教程

    超级炫酷！PowerPoint构筑绚丽的3D立体图形详细图文教程

    我们都知道，出色的三维图形绘图功能是 PowerPoint 2007 中最重要的新特性之一。因此，我想通过一些简单的步骤向各位读者展现这项新特性的部分功能，以及你可以如何使用它们。　　对于初学者来说，你应当怎样才能够获得一个三维的立体图形呢?其实其中的奥妙在于：在 PowerPoint 2007 当中，所有的图形最初都是二维平面的，直到你给它应用上“棱台”或是“三维旋转”的效果。　　好了，让我......

    2018-03-25

  • PPT2013怎么制作带滚动条的文本框

    PPT2013怎么制作带滚动条的文本框

    在制作幻灯片时，常常会想把一批具有完整意义的文字放在同一张幻灯片中，但文字内容过多，以致用常规方法无法实现。可以制作控件文本框制作滚动条，轻松实现把很多的文字内容放在同一张幻灯片中的效果。以下是学习啦小编为您带来的关于PPT2013制作带滚动条的文本框，希望对您有所帮助。PPT2013制作带滚动条的文本框1 启动PowerPoint2013，首先，我们要插入文本框，这里，我们不能按照传统方法直接单......

    2018-03-23

最新PPT模板更多

热门标签更多

建议不能为空
联系方式不能为空