anchor.diff:      procedure Add_Text;
       procedure Traite_Node; virtual; abstract;
     public
  -    function Format: String; //non rentrant/multithread
  +    function Format: String; //non réentrant/multithread
     end;
   
    TStyle_DateTime_class= class of TStyle_DateTime;
  
positive.code:     function  Named_Range_Cherche( _Nom: String): TDOMNode;
      function  Named_Range_Assure ( _Nom: String): TDOMNode;
      procedure Named_Range_Set    ( _Nom, _Base_Cell, _Cell_Range: String);
    //Mthodes cres pour compatibilit OOo
    private
      function Cherche_field( _Name: String): TDOMNode;
      procedure Enumere_field_Racine( _Racine_Name: String; _CallBack: TEnumere_field_Racine_Callback);
  
negative.code:         S:= S + C;
          Ajoute_S;
  
          L:= 2;//le premier caractère a déjà été testé
          while     (Index <= Length( _Value))
                and (_Value[Index] = ' ')
          do
  