| 化繁为简 怎样将PPT文件转换为Word文档 |
|
作者：佚名 文章来源：Onegreen.Net 浏览次数： 更新时间：2008-5-29 14:56:27  |
|
目前还真是没有什么完美解决方案。所谓的完美，当然是转换的文档你几乎不用修改就能使用。 虽然我说了上面的话，你也用不着马上离开，绝不意味着下面的方法对你没有任何作用!而这种方法恰恰是最简单的，也是最行之有效的方法，不信请继续往下看。 应用程序完美转换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上一页 [1] [2] [3] 下一页 |
| 文章录入：onegreen 责任编辑：onegreen |
|
上一篇文章： 省时省力 教你快速获取PPT的文字内容
下一篇文章： 给PowerPoint 2007添加视频控制 |
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
