帮我写一段SOLIDWORKS2022宏代码，功能：保存并关闭当前工作窗口

在 SolidWorks 中编写宏代码可以自动化一些操作，例如保存并关闭当前工作窗口。以下是一个简单的 SolidWorks VBA (Visual Basic for Applications) 宏示例，它实现了这个功能：

Sub SaveAndCloseCurrentPart()
    '声明变量
    Dim swApp As Application
    Dim swDoc As Document
    
    '创建Application对象实例
    Set swApp = GetObject(, "SolidWorks.Application")
    
    '检查是否已打开SolidWorks
    If swApp Is Nothing Then
        MsgBox "SolidWorks is not running."
        Exit Sub
    End If
    
    '获取当前文档
    Set swDoc = swApp.ActiveDocument
    
    '保存文档（如果尚未保存）
    If Not swDoc.IsSaved Then
        swDoc.SaveAs Filename:=swDoc.Name
    Else
        MsgBox "Document already saved."
    End If
    
    '关闭文档
    swDoc.Close SaveChanges:=True
    
    '清理对象
    Set swDoc = Nothing
    Set swApp = Nothing
    
    MsgBox "Document has been saved and closed.", vbInformation, "Save and Close"
End Sub

当你运行这段代码，程序会先检查是否打开了 SolidWorks。如果没有，会提示你 SolidWorks 未运行；然后它会尝试保存当前文档，如果文档未保存则自动保存；最后，它会关闭文档，并显示一条消息确认操作完成。