CATIA Macro drawing renaming

[elmundo777]

Hello. I am looking for options for how to write a macro that would change the name of the drawing document. And the second item would save the drawing with that name.
But, at least to rename

 

[Little Cthulhu]

Name of any drawing document is the name of it's .CATDrawing file.
So to rename it you should save it as new file (CATIA.ActiveDocument.SaveAs)