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换行代码。
发表评论
-
PowerShell 2.0之使用WMI管理Windows(二)PowerShell操作WMI
2012-01-20 10:01 699PowerShell 2.0之使用WMI管理Windows(二 ... -
IIS 服务器没有及时响应启动或控制请求 未启动 启动 world wide web publishing服务 127 找不到指定程序
2012-01-20 10:01 531IIS 服务器没有及时响应启动或控制请求 未启动 启动 wor ... -
vbs脚本:DeleteFolder
2012-01-20 10:01 562vbs脚本:DeleteFolder 2010年08月08日 ... -
QTP使用技巧(1)
2012-01-20 10:01 630QTP使用技巧(1) 2011年06 ... -
PowerDesigner设置MYSQL主键自动增长的方法
2012-01-20 10:01 595PowerDesigner设置MYSQL主键自动增长的方法 ... -
vbs 脚本没事测试玩
2012-01-19 15:03 494vbs 脚本没事测试玩 2011年03月27日 Set ... -
VBS脚本文件大全
2012-01-19 15:03 579VBS脚本文件大全 2011年05月24日 一、自动打开 ... -
自动下载并运行的VBS脚本代码[转载]
2012-01-19 15:03 633自动下载并运行的VBS脚本代码[转载] 2012年01月15 ... -
[值得一看] TCP版backshell的VBS脚本
2012-01-19 15:03 972[值得一看] TCP版backshell ... -
C#程序实现动态调用DLL的研究
2012-01-19 15:02 460C#程序实现动态调用DLL的研究 2011年04月26日 ... -
system32文件夹里的文件详解
2012-01-17 04:49 650system32文件夹里的文件详解 2011年05月23日 ... -
Windows XP系统文件一一诠释(1)[最新整理](转BY wang6610----BBS.WUYOU.COM)
2012-01-17 04:49 517Windows XP系统文件一一诠 ... -
OpenGL函数参考(中文版)转载
2012-01-17 04:49 833OpenGL函数参考(中文版)转载 2011年01月17日 ... -
OpenGl函数解释(转载)
2012-01-17 04:49 306OpenGl函数解释(转载) 2011年03月11日 第 ... -
怎样用OpenGL在某一位置上写字符串?
2012-01-17 04:47 360怎样用OpenGL在某一位置上写字符串? 2011年11月2 ... -
VBS脚本编程教程一
2012-01-16 03:40 399VBS脚本编程教程一 2010年01月10日 大家好,在 ... -
把我最钟爱的脚本语言--vbs 的教程分享给大家--2
2012-01-16 03:40 412把我最钟爱的脚本语言- ... -
通过对一个病毒源码的分析,了解VBS脚本语言的应用
2012-01-16 03:40 644通过对一个病毒源码的 ... -
【黑客】利用VBS脚本让QQ永远在线,等级速升
2012-01-16 03:40 331【黑客】利用VBS脚本让QQ永远在线,等级速升 2010年0 ...
相关推荐
使用方法:在编辑框中填入ppt文件所在文件夹的位置,确定后自动将该文件夹下所有的ppt文件生成和ppt文件名相同的多个word文件并保存在同一个文件夹中。
使用方法:在编辑框中填入ppt文件所在文件夹的位置,确定后自动将该文件夹下所有的ppt文件生成为一个word文件并保存在文件夹的上一个文件夹中。
WinCC VBS脚本PPT课件PPT学习教案.pptx
这是我自己编写的批量把ppt转换成word文档和文本文件的vbs程序,按ppt中文本框的位置从到下依次取出文本。 欢迎大家下载使用。
wincc vbs脚本手册 西门子 组态 脚本
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……