这个函数摘自网上,做了一些小的修改.
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()