如何将PPT转换成word的快速方法

1、将ppt转化为word的一个小技巧常用Microsoft Office工具的朋友们都知道,将word文件转化为powerpoint （以卜简称 ppt）文件很容易，但是要将ppt转化为word格式确是很困难，有的朋友使用复制粘贴循环操作的方法（木 人曾经就这么做），既麻烦，而冃效果也不是很好，使用office的转化工具则出现乱码，下面我教朋友们一 种简单的将PPt文件转化为word文件的方法，这种方法会口动将ppt文件里的图片，声音等多媒体文件删 除，只把文本格式的内容保存到word文件里。下面将给出一份代码，你只需把下面的代码复制，粘贴到文木文档甲，然后另存为 *.vbs （*可以自己改变，

2、如：转换.vbs）。然后把你想转换为word格式的ppt文件放到c盘下， 不要放文件夹,直接放文件!运行刚才生成的小程序，安提示确定,修改想保存的路径就可以了,稍等一会即 可完成，转换过程可视。此程序小而精悍，转换效果很好故与人家分享，转换好后需要的话自己可以重新排版!下面为代码：(从开始复制)，绑定到本地计算机strComputer =，如果发生错误，继续执行on error resume nextSet objWMIService = GetObject(”winmgmts:” _& nimpersonationLevel=impersonate!n & strComputer & nro

3、otcimv2n) msgbox ”此脚本可以批量将ppt文件中的文木转换为word文件。图片、表格等内容则口动跳过” & vbcrlf & ”使用时请把所有要转换的ppt文件复制到目录c:To双击运行此文件即可。” & vbcrlf & 运行此脚本需要本机上安装了 office1创建一个word对象Set objWord = CreateObject(nWord.Applicationn)1创建一个ppt对象Set pptApp = CreateObject (PowerPoint application11)，获得c:0录下的文件集合Set FileList = objWMIService

4、.ExecQuery _(nASSOCIATORS OF Win32_DirectoryName=Tc:1 Where n _& nResultClass = CIM_DataFilen)For Each objFile In FileList，如果文件的扩展名是pptIf objFile.Extension = nppt” ThenpptApp.visible = true*打开这个ppt文件Set pptSelection = pptApp . Presentetions 0pen (nc : n & objFile FileName & n .11 & obj File Extensio

5、n)，如果想让脚本处理得快些,把下面一行改为MobjWord.Visible = false,不推荐。objWord.Visible = true，新建一个word,以保存ppt中的文本Set objDoc = objWord.DocumentsAdd()Set objSelection = objWord.Selec:tion，从ppt的第一页开始循环。Slides . Count即幻灯片的数量For i = 1 To pptSelection.Slides.Count，从每一张ppt的第一个文木框开始循环，Shapes. Count,即每张幻灯片中文木框的数量For j = 1 To pp

6、tSelectionSlides(i)Shapes.Count如果是每页的第一行，就按标题处理，变成黑体字if i =1 thenobj Selection Font Name = ”黑体”，把文本框中的文字添加到word中objSelection TypeText pptSelection Slides(i) Shapes (j) TextFrume TextR且nge text objSelection TypeParagraph() objSelection Font Name =斡宋体”end ifobjSelection TypeText pptSelection Slides(i) Shapes (j) TextFrame TextRange text ，加一个冋车objSelection TypeText vbcrlfNextnext1关闭这个ppt文件pptSelection close1保存word文件。objDoc.SaveAs(nc:n & objFile.FileName & n doc”)，如果不需要关闭word,把下面这一行删掉objDoc close，如果不想弹出消息框，把下面这一行删掉msgbox ”转