Получение номера страницы в Word - Microsoft Office Word

Kasyan666 · 10.06.2011, 15:30

Язык - Delphi.
В приведенных ниже процедурах, необходимо получить номер обрабатываемой страницы. Мне всегда выдает "1". Ткните носом, что я делаю не так.
Да, и вообще, плз, гляньте что там, и как.

viter.alex · 10.06.2011, 22:09

Ты запрашиваешь номер страницы от Selection

Код:

InsText('(кн. ' + {??? + }', с. ' + FloatToStr(WordApp.Selection.Information[PageNumber]) + ')');

т.е. от положения курсора. Но нигде больше с Selection не работаешь, а значит оно остаётся на первой странице. Да и зачем тебе Selection, если работаешь с Range? Думаю, ошибки не будет, если написать:

Код:

InsText('(кн. ' + {??? + }', с. ' + FloatToStr(MyRange.Information[PageNumber]) + ')');

Kasyan666 · 10.06.2011, 23:32

Спасибо! Заработало!

10.06.2011, 22:09	#2
viter.alex Балуюсь кодами Участник клуба Регистрация: 09.01.2009 Сообщений: 1,837	Ты запрашиваешь номер страницы от Selection Код: `InsText('(кн. ' + {??? + }', с. ' + FloatToStr(WordApp.Selection.Information[PageNumber]) + ')');` т.е. от положения курсора. Но нигде больше с Selection не работаешь, а значит оно остаётся на первой странице. Да и зачем тебе Selection, если работаешь с Range? Думаю, ошибки не будет, если написать: Код: `InsText('(кн. ' + {??? + }', с. ' + FloatToStr(MyRange.Information[PageNumber]) + ')');` Лучше день потерять — потом за пять минут долететь!©

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Поле колонтитула зависимое от номера страницы	philko	Microsoft Office Word	6	14.02.2011 14:08
Получение номера дня в месяце	JasperCRT	Общие вопросы Delphi	13	18.01.2011 21:02
FastReport: Назначить переменной значение номера страницы	LENA28	БД в Delphi	2	28.10.2010 07:56
Получение номера z-порядка у контрола	antoha73	Общие вопросы Delphi	12	20.12.2009 14:18
Получения номера страницы по выделенной ячейки	brezze	Microsoft Office Excel	1	11.07.2008 22:06

10.06.2011, 23:32	#3
Kasyan666 Пользователь Регистрация: 15.03.2011 Сообщений: 11	Спасибо! Заработало!