[ID CC-CC2022] Помогите определить Story

  • Автор темы Автор темы hulk1776
  • Дата начала Дата начала

hulk1776

Топикстартер
15 лет на форуме
Сообщения
746
Реакции
21
Перевожу JSX в VBA.
Затыка такая:
Код:
mPath = "d:\123.rtf"
Set myInd = CreateObject("InDesign.Application.CC.2017")
Set aD = myInd.ActiveDocument
Set mStoryFr = aD.Pages("200").Place(mPath, Array(55, 40), , False, True)

Set mStory = mStoryFr.ParentStory '' на этой строке пишет doesn't support method or properties

А когда на целевой странице рисовал ректангл и уже в нем размещал файл, все понималось.
Но при рисовании rectungl приходится описывать разливку переполнившегося фрейма, что занудно. А если Place'ить не в текстфрейм, а сразу на страницу, то разольется автоматом.
 
Я не настоящий сварщик, но полагаю, что в вашем варианте mStoryFr вернет nothing (а в жаваскрипте вернуло бы undefined).
Получайте стори через текстфреймы страницы, на которую плейсите.
 
  • Спасибо
Реакции: hulk1776
Код:
Set mStory = mStoryFr(0).ParentStory
VBA все равно не понимает.
Что mStoryFr(0), что mStoryFr(1).
Придется брать первый текстфрейм на странице. А он всегда будет первый.
Код:
Set mStory = myPage.TextFrames(1).ParentStory
 
Код:
Set myInd = CreateObject("InDesign.Application")
Set aD = myInd.ActiveDocument
Set aP = aD.Pages(1)

Set mStory = aP.Place("C:/Temp/physic_lek.doc", Array(55, 40), , False, True)

MsgBox TypeName(mStory)
 
Код:
Set myInd = CreateObject("InDesign.Application")
Set aD = myInd.ActiveDocument
Set aP = aD.Pages(1)

Set mStory = aP.Place("C:/Temp/physic_lek.doc", Array(55, 40), , False, True)

MsgBox TypeName(mStory)
MsgBox TypeName(mStory) пишет Objects. Но узнать его начинку не получается (VBA-отладчик пишет, что все переменные пустые - какой-то глючок Ворда-VBA). А со свойством ParentStory опять doesn't support method or properties.
 
MsgBox TypeName(mStory(1))
Свойство ParentStory есть у фрейма.
У Story такого свойства нет.
 
  • Спасибо
Реакции: hulk1776