VPF::Delphi+Word - Форум программистов

JamesQ

Дата 21.9.2011, 08:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 6.8.2010

Репутация: нет
Всего: нет

Код

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 - 22.9.2011, 07:37

~FoX~

Дата 22.9.2011, 09:34 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 5
Всего: 68

из BC 6,0

Код


typedef enum WdInformation
{
  wdActiveEndAdjustedPageNumber = 1, 
  wdActiveEndSectionNumber = 2, 
  wdActiveEndPageNumber = 3, 
  wdNumberOfPagesInDocument = 4, 
  wdHorizontalPositionRelativeToPage = 5, 
  wdVerticalPositionRelativeToPage = 6, 
  wdHorizontalPositionRelativeToTextBoundary = 7, 
  wdVerticalPositionRelativeToTextBoundary = 8, 
  wdFirstCharacterColumnNumber = 9, 
  wdFirstCharacterLineNumber = 10,  // <---- there is
  wdFrameIsSelected = 11, 
  wdWithInTable = 12, 
  wdStartOfRangeRowNumber = 13, 
  wdEndOfRangeRowNumber = 14, 
  wdMaximumNumberOfRows = 15, 
  wdStartOfRangeColumnNumber = 16, 
  wdEndOfRangeColumnNumber = 17, 
  wdMaximumNumberOfColumns = 18, 
  wdZoomPercentage = 19, 
  wdSelectionMode = 20, 
  wdCapsLock = 21, 
  wdNumLock = 22, 
  wdOverType = 23, 
  wdRevisionMarking = 24, 
  wdInFootnoteEndnotePane = 25, 
  wdInCommentPane = 26, 
  wdInHeaderFooter = 28, 
  wdAtEndOfRowMarker = 31, 
  wdReferenceOfType = 32, 
  wdHeaderFooterType = 33, 
  wdInMasterDocument = 34, 
  wdInFootnote = 35, 
  wdInEndnote = 36, 
  wdInWordMail = 37, 
  wdInClipboard = 38
} WdInformation;

А разве в делфях в модуле wordXX не описаны эти переменные?

Это сообщение отредактировал(а) ~FoX~ - 22.9.2011, 09:35

--------------------

…множественность никогда не следует полагать без необходимости…

Данкинг

Дата 22.9.2011, 09:59 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Цитата(~FoX~ @ 22.9.2011, 10:34

)

А разве в делфях в модуле wordXX не описаны эти переменные?

Для Ёкселя есть Excel2000, а для ворда - не знаю даже.

--------------------

There's nothing left but silent epitaphs.

Keeper89

Дата 22.9.2011, 22:28 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58

В WordXP эта константа есть.

Это сообщение отредактировал(а) Keeper89 - 22.9.2011, 22:28

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »