用脚本批量迁移docker容器 vbs脚本批量将转换为.pdf 2页
【vbs 脚本批量将ppt 转换为word】||过滤掉表格和图片 2008 年01 月11 日星期五 15:44将下面代码复制下来用脚本批量迁移docker容器，另存为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 FileListIf 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.CountFor j = 1 To pptSelection.Slides(i).Shapes.Countif i =1 thenobjSelection.Font.Name = "黑体"objSelection.TypeText pptSelection.Slides(i).Shapes(j).TextFrame.TextRange.textobjSelection.TypeParagraph()objSelection.Font.Name = "宋体"end ifobjSelection.TypeText pptSelection.Slides(i).Shapes(j).TextFrame.TextRange.textobjSelection.TypeText vbcrlfNext 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 " " 表示消息框用脚本批量迁移docker容器，引号里面是消息框显示内容。 "vbcrlf" 是 vb 换行代码。...
来源：【九爱网址导航www.fuzhukm.com】 免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！
