Z
zjhjp
Unregistered / Unconfirmed
GUEST, unregistred user!
我现在已经实现查找功能,但是在替换时却只能替换到光标位置处,如何将光标定位到我已经找到的地方?部分代码如下: 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);是希望可以替换更多内容!