Language="VBSCRIPT"

Sub CATMain()
msgbox "Update and save of the document"

CATIA.ActiveDocument.Part.Update
CATIA.ActiveDocument.Save
'CATIA.ActiveDocument.Close
msgbox "The document has been saved"

End Sub