批量将Visio文件转为SVG

最新推荐文章于 2024-08-23 09:50:07 发布

Haber001

最新推荐文章于 2024-08-23 09:50:07 发布

阅读量6.7k

点赞数 1

分类专栏： SVG 文章标签： visio transformation reference microsoft file office

本文链接：https://blog.csdn.net/heboblog/article/details/7536551

版权

项目需求中涉及将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