有没有什么办法或软件,可以把文件从幻灯片格式直接转变成WORD文档?

来源:百度知道 编辑:UC知道 时间:2024/05/31 20:54:05

很容易的,一个很小的VB程序就可以实现。请将以下代码复制到记事本里面,然后把它保存为 PPT转WORD.vbs ,注意文件的后缀是 .vbs
————————————————————————
'绑定到本地计算机
strComputer = "."
'如果发生错误,继续执行
on error resume next

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
msgbox "此脚本可以批量将ppt文件中的文本转换为word文件。图片、表格等内容则自动跳过" & vbcrlf & "使用时请把所有要转换的ppt文件复制到目录c:\下。双击运行此文件即可。" & vbcrlf & "运行此脚本需要本机上安装了office"
'创建一个word对象
Set objWord = CreateObject("Word.Application")
'创建一个ppt对象
Set pptApp = CreateObject("PowerPoint.application")
'获得c:\目录下的文件集合
Set FileList = objWMIService.ExecQuery _
("ASSOCIATORS OF {Win32_Directory.Name='c:'} Where " _
& "ResultClass = CIM_DataFile")
For Each objFile In FileList
'如果文件的扩展名是ppt<