Скачать: CL | DM;

строки из 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/

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.025 c