您好,欢迎光临当热网!

当热网
首页 > PPT教程 >

 ppt2007教程

如何将ppt转换成word文档

2014-06-13 22:58 责任编辑: 管理员

 Pptword都是微软旗下最著名的办公软件之一,有时候我们需要把ppt转换成word文档。那么我们应该怎么做呢?下面就由当热ppt小编为大家带来方法和技巧。

我们使用脚本把PPT转换为Word 文档。

在桌面上新建一个文本文档,将下面的代码复制进去:

 

\'绑定到本地计算机

strComputer = "."

\'如果发生错误,继续执行

on error resume next

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" & strComputer & "rootcimv2")

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转换成word文档\'

指定好要保存文件的位置,在文件名框中输入任意名称+vbs扩展名,然后单击“保存”按钮

\'如何将ppt转换成word文档\'

此时会在桌面上生成vbs脚本文件,将要转换的PPT演示文稿放到C盘根目录,并执行vbs脚本文件

弹出以下提示对话框,直接单击“确定”按钮即可

\'如何将ppt转换成word文档\'

最后自动打开转换好的Word 文档并弹出以下提示对话框,单击“确定”按钮

\'如何将ppt转换成word文档\'

以上就是如何将ppt转换成word文档教程。

QQ联盟 咨询客服