| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Word+Delphi

JamesQ ©   (2011-09-22 08:51:00) 

procedure TForm1.Button1Click(Sender: TObject);
var
 fileName: string;
 a: Integer;
 W: Variant;
begin
 if OpenDialog1.Execute then
   begin
     fileName := OpenDialog1.FileName;
     W := CreateOleObject('Word.Application');
     W.Documents.Open(fileName := fileName, ReadOnly := True);
     W.Documents.Item(1).Activate;
     W.ActiveDocument.Range.Select;
     W.Selection.Find.Text := '1.9 Список основной литературы:';
     a := W.Selection.Information[wdFirstCharacterLineNumber]; //пытаюсь получить номер строки в которой нахожусь
   end;
end;

но delphi выдает ошибку  [Error] Unit1.pas(45): Undeclared identifier: 'wdFirstCharacterLineNumber'

Нужен номер строки, помогите пожалуйста

---

JamesQ   (2011-09-22 09:27:00) [1]

а модно получить номер строки во всем документе, а не только на данном листе?

---

И. Павел   (2011-09-22 09:07:00) [2]

30 сек. поиска в гугле:

wdFirstCharacterLineNumber = $0000000A;

http://read.pudn.com/downloads150/sourcecode/delphi_control/648379/Word/U_WordConst.pas__.htm

---

Наверх