最近在做一个项目,由于客户提供的是Visio文件,可是我们要操作的SVG文件,所以找了相关资料之后,就有了这段代码。
将Visio文件转为SVG文件,将如下代码保存在文本文件中,另存为VBS文件
PS:对于Visio的操作可以参见点击打开链接(MSDN Library -> Office Development -> Microsoft Office 2010 -> Visio 2010 -> Visio 2010 SDK -> Visio 2010 Automation Reference -> Reference)
'VSD2SVG.vbs
'Describe:批量将Visio文件转为SVG
'Author:Haber
'QQ:542143331
'Version:V1.0
'Date:2012-05-04
On Error Resume Next
Set objVisio = CreateObject("Visio.Application")
objVisio.Visible = False'
Set objShell = CreateObject("Wscript.Shell")
Set Fso = CreateObject("Scripting.FileSystemObject")
Set MyFolder=FSO.GetFolder("D:\sh") '源文件目录
Set File