Public Sub SaveFile(MyEditor As Editor)
    Dim MyPLMService As PLMPropagateService
    Set MyPLMService = MyEditor.GetService("PLMPropagateService")
    
    MyPLMService.Save
End Sub