ppt转成wmv的VBS脚本

PPT转成wmv的代码在网上找了很久都没合适的，很多都要花钱。同事在网上找到的一段代码，是把PPT转图片的。
后面修改了一下，可以把PPT转wmv格式。

Sub con() '将文件夹下所有ppt转换成视频 Set fsObject = CreateObject("Scripting.FileSystemObject") myPptDir = fsObject.GetAbsolutePathName("C:\Users\Administrator\Desktop\3.8\23045291_23044449") '放ppt的文件夹 If Not (fsObject.FolderExists(myPptDir)) Then MsgBox myPptDir & "源文件夹不存在，程序终止。", vbCritical, "错误" Wscript.Quit End If If InStrRev(myPptDir, "\") < Len(myPptDir) Then myPptDir = myPptDir & "\" End If Set PptFilesDir = fsObject.Getfolder(myPptDir) Set myPptFiles = PptFilesDir.Files Set myObject = CreateObject("Powerpoint.Application") For Each pptFile In myPptFiles If LCase(Right(pptFile.Name, 3)) = "ppt" Then JPGFileName = "C:\Users\Administrator\Desktop\3.8\23045291_23044449_wmv\" & Left(pptFile.Name, InStrRev(pptFile.Name, ".")) & "wmv" 'myPptDir表示要存的文件夹，默认是遍历的文件夹，可以随意改成任意的完整路径，得到的视频也会到相应的文件夹 Set Pres = myObject.Presentations.Open(pptFile.Path, False, False, False) 'Open(FileName,ReadOnly,Untitled,WithWindow) Presentations(pptFile.Name).CreateVideo JPGFileName, DefaultSlideDuration:=1, VertResolution:=480 End If Next End Sub

ppt转成wmv的VBS脚本相关推荐

批量删除PPT第一页最后页——VBS脚本，在office宏中运行即可
批量删除PPT第一页最后页--VBS脚本,在office宏中运行即可 Sub 批量删除第一页最后页() Dim ChangedCount As Integer Dim FileName As Stri ...
浅浅认识之VBS脚本访问接口与COMODO拦截COM接口
这2天测试了一个使用了WMI提供ASEC后门,里面使用了JS脚本往外请求http获取执行命令.但我的分析系统却没抓到这个行为,可在真机中确实抓到有HTTP请求.相当奇怪. 最后无奈windbg出手,内 ...
VBS脚本常用经典代码收集
在网上查找资料的时候发现好多经典的vbs代码,收集起来也为了以后学习. VBS脚本用途很多: 1. 计算 2. 处理文件和文件夹 3. 管理Windows 4. 处理Word, Excel, Powe ...
windows下vbs脚本隐藏控制台
每次想写python代码时,都需要打开IDE进行编写,并且需要创建许多小文件.如果使用jupyter就能够直接书写.但是jupyter需要手动通过控制台打开,这不够方便.通过把jupyter note ...
怎么把PPT转成EXE格式，详细步骤
前几天,我做求婚记的PPT,把它转成了EXE格式.这样做,有以下几点好处: 1 方便没有安装PPT的人观看 2 可以保护PPT的内容不被COPY或者修改 3 便于播放,因为很多PPT里面使用了一些音频 ...
【web安全学习篇1】VBS脚本基础编写总结
[web安全学习篇1]VBS脚本基础编写总结 VBS初始及变量常量注释与数学运算布尔类型 if判断 select语句实现多条件循环循环结构循环嵌套数组的定义与应用定义二维数组及应用初识 ...
博途中WinCC VBS 脚本的基础用法
VBS 脚本可以用在 WinCC Comfort/Advanced Runtime.下面就是一些很实用技巧,希望对大家有所帮助! 1.为什么一个由内部变量的 "数值改变" 事件触发 ...
VBS脚本病毒的特点！
VBS病毒是用VB Script编写而成的,该脚本语言功能非常强大,它们利用Windows系统的开放性特点, 通过调用一些现成的Windous对象,组件,可以直接对文件系统,注册表等进行控制,功能非常 ...
php ppt转视频教程,狸窝ppt转换器软件新手使用教程 ppt转换成视频格式
下图我们看到的是自定义界面自定义设置:换片时间 | 背景音乐 | 声音设置 | 幻灯片 | 转换设置背景音乐,添加mp3按钮,删除已添加的音乐或声音等: 声音设置,打勾:忽略PowerPo ...

ppt转成wmv的VBS脚本

ppt转成wmv的VBS脚本相关推荐

最新文章

热门文章