把PPT转换为WORD的一种有效的方法

我已开始提供了“文件——发送——Microsoft Office Word”这个方法，但他回响反映这个方法不理想。之后我想起了从前收藏的一段脚本可以批量把PPT文档转换为word文档，而且效果很好。在这里我把这段代码和伴侣们分享，希望给伴侣们的学习和生活带往一些便利。

值得收藏：把PPT转换为WORD的一种有效的方法

'从ppt的第一页开始循环。Slides.Count即幻灯片的数量

这是一段VB脚本代码。将下面的代码复制下来，保存为“把PPT转换为word.vbs”，可以放在任何位置。使用时把所有要转换的PPT文件复制到目录C:\（即C盘）下。双击运行此脚本文件便可进行转换了（注意：电脑中必须装有Office）。

'绑定到本地计算机

strComputer = "."

'假如发生错误，继续执行

pptApp.visible = true

必须把要转换的PPT放在c盘里才行，转换后的word也在c盘里找。

●艺术网站● ●个人情感● ●美眉写真● ●摩登时尚● ●写作范文● ●生活宝典●

'创建一个word对象

'保存word文件。

'创建一个ppt对象

Set pptApp = CreateObject("PowerPoint.application")

'获得c:\目录下的文件集合

Set FileList = objWMIService.ExecQuery _

("ASSOCIATORS OF {Win32_Directory.Name='c:'} Where " _

 

For Each objFile In FileList

'假如文件的扩展名是ppt

If objFile.Extension = "ppt" Then

'打开这个ppt文件

Set pptSelection = pptApp.Presentations.Open("c:\" & objFile.FileName & "." & objFile.Extension)

objWord.Visible = true

'加一个回车

Set objDoc = objWord.Documents.Add()

Set objSelection = objWord.Selection

       

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 = "黑体"

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

'新建一个word，以保存ppt中的文本

'假如想让脚本处理得快些，把下面一行改为“objWord.Visible = false”,不推荐。

Next

next

'关闭这个ppt文件

End If

Set objWord = CreateObject("Word.Application")

objDoc.SaveAs("c:\" & objFile.FileName & ".doc")

'假如不需要关闭word，把下面这一行删掉

objDoc.close

'假如不想弹出新闻框，把下面这一行删掉

msgbox "转换后的word已保存在c:\" & objFile.FileName & ".doc"

else  '没有ppt文件

'msgbox "错误：c:\下没有发现ppt文件！"

pptSelection.close

Next

pptApp.quit

请问在哪找转换后的WORD文档

文件在电脑上的显示为如图所示，这个脚本建议收藏

Set objWMIService = GetObject("winmgmts:" _

您已欣赏本篇日志 分 秒

objSelection.TypeText  vbcrlf

'把文本框中的文字添加到word中

& "{impersonationLevel=impersonate}!\\" & strComputer小米 & "\root\cimv2")

       更多精彩内容，点击理睬日志链接浏览！ 

  ●初学秘笈● ●博客技巧● ●图片制作● ●文字制作● ●文字素材●  ●图画素材● 

 ●背景顶图●  ●精巧时钟● ●边框分割● ●综合素材● ●综合图库●  ●日历天气●

   ●音画素材● ●游戏素材● ●播放素材● ●视频教程● ●电脑技巧● ●制作教程● 

●在线制作● ●软件下载● ●人文史地● ●奇趣八卦● ●娱乐明星● ●名人博客●

   ●百科奇闻● ●趣味制作● ●趣味图片● ●免费电影● ●搜索引擎● ●常用网站● 

msgbox "此脚本可以批量将ppt文件中的文本转换为word文件。图片、表格等内容则自动跳过" & vbcrlf & "使用时请把所有要转换的ppt文件复制到目录c:\下。双击运行此文件便可。" & vbcrlf & "运行此脚本需要本机上安装了office"

您想提高人气吗？请点击右图进入：  

on error resume next

& "ResultClass = CIM_DataFile")