Есть объект Text, как узнать на какой странице он находится?

  • Автор темы Автор темы TAlex
  • Дата начала Дата начала
Статус
Закрыто для дальнейших ответов.

TAlex

Участник
Топикстартер
Сообщения
62
Реакции
0
Вот такое начало:

Dim myCurTitle As InDesign.Text
...
Set myCurTitle = myFoundItems(i).Texts(1)
numCurPage = ???

А каким будет продолжение?
Перерыл все Parent и не нашел нужного :(
 
Ответ: Есть объект Text, как узнать на какой странице он находится?

А у тебя Text разве прямо на странице стоит? А не в TextFrame положен? :)
 
Ответ: Есть объект Text, как узнать на какой странице он находится?

vbatushev сказал(а):
А у тебя Text разве прямо на странице стоит? А не в TextFrame положен? :)

Да я и в TextFrame искал, но наверное поздно было. Сейчас получилось. Или можно попроще:
Код:
Set myTextFrame = myCurTitle.ParentTextFrames
numCurPage = myTextFrame(1).Parent.PageItems(1).Parent.Name

И какого типа получается myTextFrame? Пробовал назначать и InDesign.TextFrames, и InDesign.TextFrame -- пишет "Несоответствие типов".
 
Ответ: Есть объект Text, как узнать на какой странице он находится?

var myPageName = myTextFrame.parent.name;
 
Ответ: Есть объект Text, как узнать на какой странице он находится?

TAlex сказал(а):
Да я и в TextFrame искал, но наверное поздно было. Сейчас получилось. Или можно попроще:
Код:
Set myTextFrame = myCurTitle.ParentTextFrames
numCurPage = myTextFrame(1).Parent.PageItems(1).Parent.Name

И какого типа получается myTextFrame? Пробовал назначать и InDesign.TextFrames, и InDesign.TextFrame -- пишет "Несоответствие типов".

Если myCurTitle -- это текст, тогда
myCurTitle.ParentTextFrames -- это список текстовых фреймов в которых
находится наш объект. Даже если фрейм один то это все равно список, то есть объект Texts
Чтобы получить фрейм нам нужно взять первый элемент этого списка.
Для фрейма Parent -- это страница

Если нам нужна страница как объект:
Set myPage = myCurTitle.ParentTextFrames.FirstItem.Parent

Если нужен номер страницы:
myPageNum = myCurTitle.ParentTextFrames.FirstItem.Parent.Name
 
Статус
Закрыто для дальнейших ответов.