怎么实现Word的替换功能？ ( 积分: 50 )

怎么实现Word的替换功能？小弟用了下面几条语句：<br>s:=Memo1.Lines.Text;<br>s:=stringreplace(s,'&quot;','''''',[rfReplaceAll]);<br>Memo1.Lines.Text:=Stringreplace(s,'&quot;','''''',[rfReplaceAll]);<br>可我感觉当memo1里的内容很多的时候，那个s就不够大了，Word是怎么实现这个功能的，我主要是把文本存入数据库，得把特殊字符替换掉，我就想到了单引号这个字符，还有其它字符么？请指教，这个是小问题，主要还是第一个 &nbsp;替换问题 &nbsp; &nbsp;<br> &nbsp;小弟就这些分了 &nbsp;要是不够的话 &nbsp;等小弟涨分在给加 &nbsp; 谢谢

怎么实现Word的替换功能？小弟用了下面几条语句：<br>s:=Memo1.Lines.Text;<br>s:=stringreplace(s,'&quot;','''''',[rfReplaceAll]);<br>Memo1.Lines.Text:=Stringreplace(s,'&quot;','''''',[rfReplaceAll]);<br>可我感觉当memo1里的内容很多的时候，那个s就不够大了，Word是怎么实现这个功能的，我主要是把文本存入数据库，得把特殊字符替换掉，我就想到了单引号这个字符，还有其它字符么？请指教，这个是小问题，主要还是第一个 &nbsp;替换问题 &nbsp; &nbsp;<br> &nbsp;小弟就这些分了 &nbsp;要是不够的话 &nbsp;等小弟涨分在给加 &nbsp; 谢谢

用TReplaceDialog对话框

可我不想显示对话框，之想要那个功能

这里有一个别人的帖子，你可以参考一下。<br><br>　　 unit main;<br>　　 interface<br>　　 ......<br>　　 type<br>　　 TMainForm = class(TForm)<br>　　 first:TEdit;<br>　　 second:TEdit;<br>　　 third:TEdit;<br>　　 createreportbutton: TBitBtn;<br>　　 procedure createreportClick(Sender: TObject);<br>　　 public<br>　　 wordapp:variant;<br>　　 ......<br>　　 end;<br>　　 var<br>　　 MainForm: TMainForm;<br>　　 ......<br>　　 implementation<br>　　 uses ComObj;<br>　　 ......<br>　　 procedure TMainForm.createreport(Sender: TObject);<br>　　 begin<br>　　 if(Application.MessageBox(‘你确定要生成report文档吗？’＃13＃10,<br>　　 ‘提示’,MB_OKCANCEL)=IDOK) then<br>　　 begin<br>　　 wordapp:=CreateOLEObject('Word.Application');<br>　　 wordapp.visible:=true;<br>　　 wordapp.documents.add(‘report.doc’,False);<br>　　 wordapp.Documents.Item(1).Bookmarks.Item(‘first’).Range.InsertAfter(first.text);<br>　　 wordapp.Documents.Item(1).Bookmarks.Item(‘second’).Range.InsertAfter(second.text);<br>　　 wordapp.Documents.Item(1).Bookmarks.Item(‘third’).Range.InsertAfter(third.text);<br>　　 wordapp.Documents.Item(1).Saveas(‘report1.doc’);<br>　　 end;<br>　　 end;

http://www.delphibbs.com/delphibbs/dispq.asp?LID=1411217<br>标题是： 现在流行写心得， 俺也来一篇。 如何高效地操作字符串。 给初学者一点帮助。 （鲜花和板砖都欢迎） (0分)<br><br>http://www.delphibbs.com/delphibbs/dispq.asp?LID=2556377<br>标题是： 字符串替换,速度成问题,各位老大帮忙看看,300分不成敬意 (300分)<br><br>http://www.delphibbs.com/delphibbs/dispq.asp?LID=1414550<br>标题是： 如何高效地操作字符串（二）： 如何高效地进行字符串替换（含与StringReplace的对比测试与分析，这可是我傻乎乎地运行2个多小时得到的结果哦）

录制WORD宏，然后将VBA代码转换成delphi代码即可！

多人接受答案了。