[JamesQ]

Код:

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'

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

[Pyro]

обязательно через Word?

[JamesQ]

да исходный файл в Worde

[Pyro]

Можно в html сохранить и его как обычный текст или через какойниб xml-парсер

[JamesQ]

если проще в html то без проблем, главное чтобы работало

[Pyro]

Главное чтобы вам было проще