ppt转换成word

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

2008年01月11日星期五15:44

将下面代码复制下来，另存为。使用时请把所有要转换的

ppt文件复制到目录c:下。双击运行此脚本文件即可。

================================================================

strComputer="."

onerrorresumenext

SetobjWMIService=GetObject("winmgmts:"_

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

msgbox"此脚本可以批量将ppt文件中的文本转换为word文件。图片、表格等内容则自动跳过"&vbcrlf&"使用时请把所有

要转换的ppt文件复制到目录c:下。双击运行此文件即可。"&vbcrlf&"运行此脚本需要本机上安装了office"

SetobjWord=CreateObject("ation")

SetpptApp=CreateObject("ation")

SetFileList=ery_

("ASSOCIATORSOF{Win32_='c:'}Where"_

&"ResultClass=CIM_DataFile")

ForEachobjFileInFileList

ion="ppt"Then

e=true

SetpptSelection=("c:"&me&"."&ion)

e=true

SetobjDoc=()

SetobjSelection=ion

Fori=

Forj=(i).

ifi=1then

="黑体"

(i).Shapes(j).

ragraph()

="宋体"

endif

(i).Shapes(j).

xtvbcrlf

Next

next

("c:"&me&".doc")

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

el

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

EndIf

Next

=====================================================

=====================================================

比尔盖茨自小精通vb编程，后来开发的microsoft也都继续保有这个特

色。vbs就是visualbasic的脚本文件。像上次的小狗定时提醒就是这样子

的。

======================================================

分析一下：

1>单引号“'”后面表示注释

2>msgbox""表示消息框，引号里面是消息框显示内容。

"vbcrlf"是vb换行代码。

...