строки из word

← →
rosl (2005-02-22 05:44) [0]

помогите. нужно в документе word найти строки начинабщиеся на "Счет №" и скопировать их в memo, но строки целиком
ищу строки так:
var
MSWord: Variant;
j: Integer;
begin
MSWord := CreateOleObject("word.Application");
MSWord.Documents.Open("c:\1.rtf");
for j:=0 to MSWord.ActiveDocument.Words.Count do begin
MSWord.Selection.Find.Text:="Счет №";
if MSWord.Selection.Find.Execute=-1 then begin
memo1.Lines.Add(\\ что здесь писать?\\);
end;
end;
MSWord.visible:=true;
end;

← →
YurikGL © (2005-02-22 21:41) [1]

http://delphimaster.net/view/10-1108842379/

строки из word Найти похожие ветки