строки из word [Delphi, Windows]
rosl © (2005-02-22 05:44:00)
помогите. нужно в документе 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:00) [1]
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1108842379&n=8
Наверх 
ЧАТ |
Орешник |
|
