用delphi控制word（查找问题）200大洋(200分)

roger_ting · 2003-05-31

欲把word文件中已用红色标记的文字输出到新建的word文件。
需要有建设性或直接源代码，请发至:roger_ting@sina.com
看过源程序后，立即给分。
当然如果你愿意在此处留下代码也可以。另，至于编程思想之类
的指导性帖子，恕不能给分。

quejian · 2003-05-31

我已经给你发了源程序，我的mail是quejian@163.com，看看收到没有？你可以按照程序，可以自己定制一些功能，已经写了挺多的

roger_ting · 2003-06-01

To quejian:
抱歉我不能给你分数，没达到我的意思。另外请看../Borland/Delphi7/Demos/Activex/OleAuto/SrvComp/Word底下的程序，是否发觉和你提供的极似。
欢迎有人解答。

wfzha · 2003-06-05

参考下面的代码：
for i:=1 to a.Selection.Characters.Count do begin
if a.Selection.Characters.Item(i).Font.Color=wdcolorred then
//add to other Doc
end;
end;

hnlygtjj · 2003-06-05

http://www.delphibbs.com/delphibbs/dispq.asp?lid=737517
去看看吧,

xiaxueyi · 2003-06-11

VBA的参考手册上有事例！