请教……还是进来看看看吧！ 知者不难

Question

有种处理方法,你可以把你的range的text直接赋值哦.再者不要用查找替换这种动作,既然有range,就可以直接把字符串取出来在delphi中操作费那么多劲作甚?

Answer 1

直接用ansireplacetext函数即可达到你替换的目的.

Answer 2

to winglion(狂言):分割肯定是不行的了，一份完整的文档，怎么好分割操作呢！而且不是纯文本文件

Answer 3

to: 1860(hzy)    比如我上面代码那样，如果我要定义一个range（这个Range应该就是要查找的 Delphi 部分），怎么定义呢？
  又：我从数据库里取出的ReplaceWith:=TBlobField   (ADOQuery1.FieldByName('content')).Value  如果ReplaceWith：oleVariant 则WordDocument.Rang.text:=ReplaceWith后
，被ReplaceWith替换的内容根本就不是我原来的.Doc而只有几个乱码 如果ReplaceWith：WideString  则WordDocument.Rang.text:=ReplaceWith后
，被ReplaceWith替换的内容根本就不是我原来的.Doc而只有  一堆长长的  乱码
怎么解决呢？