Word+Delphi

[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'

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

[Stilet]

Все верно. Делфи не знает этой константы. Впрочем может быть и знает - нужно пройтись поиском по PAS файлам ее модулей, но я предпочитаю вместо нее ставить цифру, которая соответствует этой константе, описание которой можно найти в хелпе VBA Оффиса:

wdFirstCharacterLineNumber 10 Returns the character position of the first character in the specified selection or range. If the selection or range is collapsed, the character number immediately to the right of the range or selection is returned (this is the same as the character line number displayed in the status bar after "Ln").

[JamesQ]

ух ты, спасибо большое, и правда, если подставить вместо wdFirstCharacterLineNumber цифру 10, выводит номер строки. спасибо.
ps правда выдает номер строки на листе, а не на всем документе