在DELPHI中控制WORD中的查找功能，已经找到要查找的内容，能不能移动光标到找到的字符串处？(100)

我现在已经实现查找功能，但是在替换时却只能替换到光标位置处，如何将光标定位到我已经找到的地方？部分代码如下： WordApp.Selection.Find.Text:=Edit4.Text; //查询的内容 WordApp.Selection.Find.Replacement.Text:=''; //Edit5.Tex;t; //要替换的内容 WordApp.Selection.Find.Forward := True; // WordApp.Selection.Find.Wrap := 1; //找到一个后继续下一个查询 if WordApp.Selection.Find.Execute(replace:=wdReplaceall) = True then //替换所有找到的内容 //if WordApp.Selection.Find = True then begin //WordApp.Selection.Find.Text:=Memo1.Text; WordApp.Selection.InsertBefore(Memo1.Text); WordApp.Selection.MoveRight; ShowMessage('Find IT'); end else ShowMessage('Sorry,I can''t find it!');其中没有使用替换字符串是因为有些需要替换的内容太长了，直接查找替换不行，报错说字符串太长了，所以采用WordApp.Selection.InsertBefore(Memo1.Text);是希望可以替换更多内容！

网上找到很多帖子，但基本上都无法实现在selection的内容，比如，要查找的内容是“Test”,要替换的内容是“Replace”，在表格的第一个格子里，现在光标在第二个格子里，执行上述语句时，第一个格子里的内容被清空，第二个格子里的内容变为“Replace”，这不是我所要的结果

肯定可以的.你用VB宏跟踪一下,根据生成的代码修改一下就可以了.