var
  findtext, matchcase, matchwholeword, matchwildcards, matchsoundslike,
  matchallwordforms, forward, wrap, format, replacewith, replace: olevariant;
begin
  findtext := '<#name> ';
  matchcase := false;
  matchwholeword := true;
  matchwildcards := false;
  matchsoundslike := false;
  matchallwordforms := false;
  forward := true;
  wrap := wdfindcontinue;
  format := false;
  replacewith := 'delphi';
  replace := true;

  wrdcmnt1.range.find.Execute( findtext, matchcase, matchwholeword,
  matchwildcards, matchsoundslike, matchallwordforms, forward,
  wrap, format, replacewith, replace);
end;

wrdcmnt1是wordDocument的name

你想问啥