WordPress中文论坛 - WordPress Chinese Forums

 找回密码
 注册
查看: 355|回复: 0

怎样将PPT文件转换为Word文档

[复制链接]

82

主题

114

帖子

710

金钱

WP 高手

Rank: 6Rank: 6Rank: 6

积分
556
发表于 2015-7-15 12:16:56 | 显示全部楼层 |阅读模式
  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                 中秋节图片党员预备期思想汇报
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|联系我们|WordPress中文论坛 - CNWP ( 闽ICP备12016335号-11 )

GMT+8, 2019-9-20 13:55 , Processed in 0.117565 second(s), 23 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表