vbs脚本批量将ppt转换为word.doc

【vbs脚本批量将ppt转换为word】||过滤掉表格和图片2008年01月11日星期五15:44      将下面代码复制下来,。使用时请把所有要转换的ppt文件复制到目录c:\下。双击运行此脚本文件即可。================================================================puter="."onerrorresumenextSetobjWMIService=GetObject("winmgmts:"_    &"{impersonationLevel=impersonate}!\\"&puter&"\root\cimv2")msgbox"此脚本可以批量将ppt文件中的文本转换为word文件。图片、表格等内容则自动跳过"&vbcrlf&"使用时请把所有要转换的ppt文件复制到目录c:\下。双击运行此文件即可。"&vbcrlf&"运行此脚本需要本机上安装了office"SetobjWord=CreateObject("")SetpptApp=CreateObject("")SetFileList=    ("ASSOCIATORSOF{='c:'}Where"_        &"ResultClass=CIM_DataFile")ForEachobjFileInFileList    ="ppt"=trueSetpptSelection=("c:\"&&"."&)=trueSetobjDoc=()SetobjSelection==   Forj=(i).    ifi=1then           ="黑体"         (i).Shapes(j).     ()         ="宋体"          endif      (i).Shapes(j).    objSe