vbs脚本批量将ppt转换为word
2009年11月25日
将下面代码复制下来,另存为convert.vbs。使用时请把所有要转换的ppt文件复制到目录c:\下。双击运行此脚本文件即可。
================================================================
strComputer = "."
on error resume next
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
msgbox "此脚本可以批量将ppt文件中的文本转换为word文件。图片、表格等内容则自动跳过" & vbcrlf & "使用时请把所有要转换的ppt文件复制到目录c:\下。双击运行此文件即可。" & vbcrlf & "运行此脚本需要本机上安装了office"
Set objWord = CreateObject("Word.Application")
Set pptApp = CreateObject("PowerPoint.application")
Set FileList = objWMIService.ExecQuery _
("ASSOCIATORS OF {Win32_Directory.Name='c:'} Where " _
& "ResultClass = CIM_DataFile")
For Each objFile In FileList
If objFile.Extension = "ppt" Then
pptApp.visible = true
Set pptSelection = pptApp.Presentations.Open("c:\" & objFile.FileName & "." & objFile.Extension)
objWord.Visible = true
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
For i = 1 To pptSelection.Slides.Count
For j = 1 To pptSelection.Slides(i).Shapes.Count
if i =1 then
objSelection.Font.Name = "黑体"
objSelection.TypeText pptSelection.Slides(i).Shapes(j).TextFrame.TextRange.text
objSelection.TypeParagraph()
objSelection.Font.Name = "宋体"
end if
objSelection.TypeText pptSelection.Slides(i).Shapes(j).TextFrame.TextRange.text
objSelection.TypeText vbcrlf
Next
next
pptSelection.close
objDoc.SaveAs("c:\" & objFile.FileName & ".doc")
objDoc.close
msgbox "转换后的word已保存在c:\" & objFile.FileName & ".doc"
else
'msgbox "错误:c:\下没有发现ppt文件!"
End If
Next
pptApp.quit
=====================================================
=====================================================
比尔盖茨自小精通vb编程,后来开发的microsoft也都继续保有这个特色。vbs就是visual basic的脚本文件。像上次的 小狗定时提醒 就是这样子的。
======================================================
分析一下:
1>单引号“ ' ”后面表示注释
2>msgbox " " 表示消息框,引号里面是消息框显示内容。 "vbcrlf" 是vb换行代码。
发表评论
-
异步机制(Asynchronous) -- (二)异步消息机制兼谈Hadoop RPC
2012-01-20 10:21 569异步机制(Asynchronous) -- ( ... -
网络编程常见问题总结
2012-01-20 10:21 716网络编程常见问题总结 2010年10月26日 网络编程常 ... -
《ASCE1885的网络编程》---Winsock APIの套接口I/O处理函数
2012-01-20 10:21 674《ASCE1885的网络编程》-- ... -
Select 模型的使用 简单聊天室的实现
2012-01-20 10:21 703Select 模型的使用 简单 ... -
MFC: 多人聊天服务器 服务器端之OICPServer类
2012-01-20 10:21 500MFC: 多人聊天服务器 服务器端之OICPServer类 ... -
VB获取QQ2011安装路径
2012-01-19 15:24 610VB获取QQ2011安装路径 2011年05月23日 V ... -
VB关机代码
2012-01-19 15:24 607VB关机代码 2011年07月20日 .首先在Form1 ... -
VB 打开网络连接
2012-01-19 15:24 638VB 打开网络连接 2011年10月29日 Option ... -
张志晨VB实例教程之打开word方法种种
2012-01-19 15:24 550张志晨VB实例教程之打开word方法种种 2011年08月3 ... -
暂时放一放./..脑子要炸了
2012-01-19 15:24 569暂时放一放./..脑子要炸了 2010年11月10日 f ... -
SBO与U8
2012-01-17 05:09 595SBO与U8 2010年11月11日 一、成长过程 ... -
使用WSUS服务器配置自动更新方法简介
2012-01-17 05:09 891使用WSUS服务器配置自动更新方法简介 2011年03月04 ... -
XP优化大全(3)
2012-01-17 05:09 595XP优化大全(3) 2010年07月 ... -
七雄争霸服务端详细安装说明【更新WIN系统架设教程】
2012-01-17 05:09 1234七雄争霸服务端详细安装说明【更新WIN系统架设教程】 201 ... -
解决Ubuntu中使用windows文件名乱码问题
2012-01-17 05:09 791解决Ubuntu中使用windows文 ... -
双击盘符提示“Windows脚本宿主”无法找到脚本文件autorun.vbs的解决办法
2012-01-16 04:02 654双击盘符提示“Windows脚本宿主”无法找到脚本文件auto ... -
VBS脚本编程教程一
2012-01-16 04:02 591VBS脚本编程教程一 2010年01月10日 大家好,在 ... -
把我最钟爱的脚本语言--vbs 的教程分享给大家--2
2012-01-16 04:02 531把我最钟爱的脚本语言- ... -
通过对一个病毒源码的分析,了解VBS脚本语言的应用
2012-01-16 04:02 619通过对一个病毒源码的 ...
相关推荐
使用方法:在编辑框中填入ppt文件所在文件夹的位置,确定后自动将该文件夹下所有的ppt文件生成和ppt文件名相同的多个word文件并保存在同一个文件夹中。
使用方法:在编辑框中填入ppt文件所在文件夹的位置,确定后自动将该文件夹下所有的ppt文件生成为一个word文件并保存在文件夹的上一个文件夹中。
wincc vbs脚本手册 西门子 组态 脚本
WinCC VBS脚本PPT课件PPT学习教案.pptx
这是我自己编写的批量把ppt转换成word文档和文本文件的vbs程序,按ppt中文本框的位置从到下依次取出文本。 欢迎大家下载使用。
VBS实例 44个 vbs脚本实例, VBS取QQ-TM号码的自动登录命令行.vbs 妙用脚本清除电脑中的痕迹.vbs 后台字典文件管理器.vbs 定时关机.vbs 列出管理工具集.vbs 旁注查询工具.vbs 中文姓名笔画计算(VBS脚本版).vbs ...
WinCCVBS脚本PPT课件.pptx
VBS脚本运行库手册之一(磁盘操作) VBS脚本运行库手册之二(磁盘操作) VBS脚本运行库手册之三(管理文件夹) VBS脚本运行库手册之四(管理文件夹) VBS脚本运行库手册之五(文件夹属性) VBS脚本运行库手册之...
wincc VBS脚本加密破解
helloworld vbs 脚本hellohelloworld vbs 脚本world vbs 脚本helloworld vbs 脚本helloworld vbs 脚本helloworld vbs 脚本
Qt工程,c++代码调用vbs脚本函数,一个很简单的demo,参考学习
WinCC常用的C脚本和VBS脚本对变量进行置位,复位,取反,读写变量;
vbs 批量建站和 vbs 批量执行数据库脚本,写日志到指定文件
Vbs脚本编程简明教程Vbs脚本编程简明教程Vbs脚本编程简明教程Vbs脚本编程简明教程Vbs脚本编程简明教程
c#(winform)调用VBS脚本 c#(winform)调用VBS脚本
vbs脚本,设置默认打印机, 服务器管理员可以用于用户登录后指定默认打印机.
vbs脚本手册
WINCC中使用VBS脚本读写SQLServer数据库文件WINCC中使用VBS脚本读写SQLServer数据库文件WINCC中使用VBS脚本读写SQLServer数据库文件WINCC中使用VBS脚本读写SQLServer数据库文件
TIA Portal WinCC Engineering V17 – VBS脚本编程参考手册
It's good enough for you to learn some procedures which can be used on computer……