批量将Visio文件转为SVG

项目需求中涉及将Visio文件转换为SVG格式,通过查阅资料并编写VBS脚本实现这一转换。转换代码可在文本文件中保存并另存为VBS执行。参考资源:MSDN Library 中的 Visio 2010 Automation Reference。
摘要由CSDN通过智能技术生成

最近在做一个项目,由于客户提供的是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
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值