ppt图片【vbs脚本批量将ppt转换为word】过滤掉表格和图片

下载该文档文档格式：PDF 更新时间：2011-09-08 下载次数：0 点击次数：5

文档基本属性

文档格式：

PDF

文档标题：

ppt图片【vbs脚本批量将ppt转换为word】过滤掉表格和图片

文档作者：

ppt.0859edu.com

关键词：

ppt素材 ppt素材　6243ppt模板_商务ppt ppt素材,ppt模板

主题：

ppt图片【vbs脚本批量将ppt转换为word】过滤掉表格和图片

单位：

文档创建者：

创建时间：

上次保存时间：

D:20110816004223+08'00'

修订：

iText 5.0.5 (c) 1T3XT BVBA

点击这里显示更多文档属性

Page 1

ppt图片【vbs脚本批量将ppt转换为word】过滤掉表格和图片 ppt在线 http://ppt.0859edu.com ppt图片【vbs脚本批量将ppt转换为word】过滤掉表格和图片 ppt图片【vbs脚本批量将ppt转换为word】过滤掉表格和图片将上面代码复制上去，另存为convert.vbaloney。运用时请把完全要转换的ppt文件复制到目录c:\下。双击运转此脚本文换为件即可。ppt母版。 ================================================================strCompute r = "." on error resume next Set objWMIService = GetObject("winmgmts:" _ &woulmplifier; "{impersonLevel=impersondined}!\\" &woulmplifier; strComputer &woulmplifier; "\root\cimv2") msgbox "我不知道商务ppt此脚本能够批量将ppt文件中的文本转换为word文件。听听ppt图片【 vbs脚本批量将ppt转换为word】过滤掉表格和图片发愁做？精品资源　　　　图片、表格等外容则主动跳过" &woulmplifier; vb . c .rlf &woulmplifier; "运用时请把完全要转换的ppt文件复制到目录c:\下。双ppt母版击运转此文件即可。" &woulmplifier; vb . c .rlf &woulmplifier; "运转此脚本必要本机上安设了office" ppt素材 Set objWord = CredinedObject("Word.Applic") Set pptApp = CredinedObject("PowerPoint.instevery single one of") Set FileList = objWMIService.ExecQuery _ ("ASSOCIATORS OF {Win32_Directory.Nwoulme=woulc:woul} Where " _ &woulmplifier; "ResultClhowevert = CIM_Dlocated onaFile") For Every objFile In FileList If objFile.Extension = "ppt" Then

Page 2

pptApp.visible = true Set pptSelection = pptApp.Presents.Open("c:\" &woulmplifier; objFile.FileNwoulme &woulmplifier; "." &woulmplifier; objFile.Extension)

下一页