一. 连接到现有文档
Dim swApp As SldWorks.SldWorks
Dim part As ModelDoc2
Dim longstatus As Boolean
Set swApp = Application.SldWorks
Set part = swApp.ActiveDoc
二. 以模板形式打开文档
Dim swApp As SldWorks.SldWorks
Dim part As ModelDoc2
Dim longstatus As Boolean
Set swApp = Application.SldWorks
Set part = swApp.NewDocument(模板名, 大小, 宽-doouble, 高-double)
打开零件文档可以 将模板名写成路径，大小宽高为0
三. 打开文档
Dim swApp As SldWorks.SldWorks
Dim part As ModelDoc2
Dim longstatus As Boolean
Set swApp = Application.SldWorks
Set part = swApp.OpenDoc6(FileName, Type, Options, Configuration, Errors, Warnings)
