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

Word+Delphi   Найти похожие ветки 

← →
JamesQ ©   (2011-09-22 08:51) [0]

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"

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

---

← →
И. Павел ©   (2011-09-22 09:07) [1]

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

wdFirstCharacterLineNumber = $0000000A;

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

---

← →
JamesQ ©   (2011-09-22 09:27) [2]

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

---

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

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



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