Save method example
Private Sub SaveExample()
' This example saves the drawing.
Application.ActiveDocument.Save
End Sub