Форум: "Начинающим";
Текущий архив: 2012.01.01;
Скачать: [xml.tar.bz2];
Вниз
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 вся ветка
Форум: "Начинающим";
Текущий архив: 2012.01.01;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.004 c