C++ builder 控制word替换文字的一个函数

这个函数摘自网上,做了一些小的修改.

bool __fastcall TZYSCCDF::Word_StringReplace(Variant   WordApp,AnsiString   SearchString,AnsiString   ReplaceString,TWordReplaceFlags   Flags)
  {  
        const     wdFindContinue   =   1;  
        const     wdReplaceOne   =   1;  
        const     wdReplaceAll   =   2;  
        const     wdDoNotSaveChanges   =   0;  

        bool   Result;
        Result   =   False;
   

              Variant   Selection=WordApp.OlePropertyGet("Selection");
              Variant   Find=Selection.OlePropertyGet("Find");
              Find.Exec(Procedure("ClearFormatting"));  

              if   (Flags.Contains(   wrfReplaceAll))  
              {  

                    Find.Exec(Procedure("Execute")  
                    //   FindText  
                    <<SearchString.c_str()  
                    //MatchCase  
                    <<Variant(Flags.Contains(wrfMatchCase))  
                    //MatchWholeWord  
                    <<Variant(false)  
                    //MatchWilddeards
                    <<Variant(Flags.Contains(wrfMatchWildcards))  
                    //MatchSoundsLike  
                    <<Variant(false)  
                    //MatchAllWordForms  
                    <<Variant(false)  
                    //Forward  
                    <<Variant(true)  
                    //Wrap
                    <<Variant(wdFindContinue)  
                    //Format  
                    <<Variant(false)  
                    //ReplaceWith  
                    <<ReplaceString.c_str()  
                    //Replace  
                    <<wdReplaceAll  
                    );
              }  
              else  
              {  
                    Find.Exec(Procedure("Execute")  
                    //   FindText  
                    <<SearchString.c_str()  
                    //MatchCase  
                    <<Variant(Flags.Contains(wrfMatchCase))
                    //MatchWholeWord  
                    <<Variant(false)  
                    //MatchWilddeards  
                    <<Variant(Flags.Contains(wrfMatchWildcards))  
                    //MatchSoundsLike  
                    <<Variant(false)  
                    //MatchAllWordForms  
                    <<Variant(false)
                    //Forward  
                    <<Variant(true)  
                    //Wrap  
                    <<Variant(wdFindContinue)  
                    //Format  
                    <<Variant(false)
                    //ReplaceWith
                    <<ReplaceString.c_str()
                    //Replace
                    <<wdReplaceOne
                    );
              }

           //   Variant   ActiveDocument=WordApp.OlePropertyGet("ActiveDocument");

              Result   =   true;

        }

  }