Returns the editable object corresponding to this rule.
Be careful that, according to your licence, or the type of rule
you're handling, you may not have the right to edit the rule.
Dim aRuleEdition As ExpertRule
Set aRuleEdition = aRuleRuntime.RuleEdition
If not(aRuleEdition is Nothing) Then
CATIA.SystemService.Print aRuleEdition.Body
End if