宏-关闭除当前文档以外的所有文档

wonboy · 发表于 2017-8-3 22:40:44

Jake Carr编写的代码，并于8/28/2017上传到3D内容中心。
此宏关闭除了活动文档以外的所有打开的文档。
的前提条件：
1。打开多个文件打开
2。建议在运行前先做一个保存
“后置条件：
1。除活动文档外所有文件均已关闭。
感谢原著
在原创基础上，增加一段全部保存代码，勿需担忧忘记保存。
2013版本测试正常。其它版本如遇问题，请自行添加引用。

Close Docs.rar (9.08 KB, 下载次数: 148)

Option Explicit
'********************************************************************************************************************************************************
' Code written by Jake Carr and uploaded to 3D Content Central on 8/28/2017
' This macro closes all open documents except active document
' Preconditions:
' 1. Solidworks open with multiple documents open
' 2. Recommend do a save all before running
' Postconditions:
' 1. All documents closed except active document
'********************************************************************************************************************************************************
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim vModels As Variant
Dim modNames() As String
Dim docCount As Integer
Dim swModelName As String
Dim swDocType As Integer
Dim i As Integer
Sub main()
'********************************************************************************************************************************************************
' Get Application and active doc. Get active document name. Get documens variant.
'********************************************************************************************************************************************************
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
swModelName = swModel.GetTitle
swDocType = swModel.GetType
vModels = swApp.GetDocuments
'+++++++
swApp.RunCommand swCommands_SaveAll, Empty '增加段，保存所有文档
'+++++++
'********************************************************************************************************************************************************
'Build a list of document names to close
'********************************************************************************************************************************************************
docCount = 1
For i = 0 To UBound(vModels)
If Not vModels(i).GetTitle = swModelName Then
ReDim Preserve modNames(docCount)
modNames(docCount) = vModels(i).GetTitle
docCount = docCount + 1
End If
Next i
'********************************************************************************************************************************************************
' Close the documents in the array created
'********************************************************************************************************************************************************
For i = 1 To UBound(modNames)
'Debug.Print (modName)
swApp.CloseDoc (modNames(i))
Next
End Sub