Форум: "Corba";
Текущий архив: 2005.12.11;
Скачать: [xml.tar.bz2];

Вниз

строки из 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 вся ветка

Форум: "Corba";
Текущий архив: 2005.12.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.041 c