如何在word中搜索关键字，并让其闪烁？（请帮忙找出本贴代码的错误之处）

Question

放test按钮，worddocument1,WordApplication1,edit1。
procedure TForm1.testClick(Sender: TObject);
var
  Filename,
  findtext, replacewith,MatchCase, MatchWholeWord, MatchWildcards,
  MatchSoundsLike,MatchAllWordForms, Forward1, Wrap, Format, Replace: OleVariant;
begin
  WordApplication1.Connect;
  WordApplication1.Visible:=True;
  Filename:='c:\test.doc';
  WordApplication1.Documents.Open(Filename,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
  worddocument1.ConnectTo(WordApplication1.ActiveDocument);
  worddocument1.Activate;
  worddocument1.Range.Find.Replacement.Font.Animation:=0; //闪烁关键字，参数设置0，1，2都不对：（看来是Format参数没有起作用。
  findtext := edit1.text; //待查找的文字
  replacewith :=findtext;
  Wrap := 2;              //全文查找
  Replace :=2;            //全部代替
  Format:=true;
  worddocument1.range.find.execute(FindText, MatchCase, MatchWholeWord,
  MatchWildcards, MatchSoundsLike, MatchAllWordForms, Forward1, Wrap,  Format,replacewith,Replace,EmptyParam,EmptyParam,EmptyParam,EmptyParam );
end;

Answer 1

真是受不了，论坛里面好多人，只知道写个什么顶啊，学习啊之类的话来骗分，我晕，有了10个星又怎么样？大家来这里是讨论问题的，如果不知道，你可以不说话，发些无意义的东西，除了浪费网络资源以外，一点意思都没有！当你拿出自己的星星炫耀的时候，被人家看到原来星星都是这么顶来的，不知道会怎么想，奉劝一句，有顶贴的时间，还不如多看看，多思考一下！