Как скалировать страницу со всеми элементами?

[teatral]

Преобразовываю документ для печати в документ для цифровой публикации.
Естественно нужно масштабировать объекты:

  Set MyPage = MyDocument.Pages(NumPage)
  Set PgItems = MyPage.PageItems
  Set Grp = MyPage.Groups.Add(PgItems)
  Grp.HorizontalScale = 181
  Grp.VerticalScale = 181

Но с этим возникает 2 проблемы:
1) Текст в таблицах не скалируется
2) Элементы MasterPage не скалируются
Как с этим быть?

 

[teatral]

Методом тыка нашел. Сначала нужно группу преобразовать в кнопку, потом скалировать, потом преобразовать снова в объект.
К сожалению метода преобразовать в кнопку не нашел, делаю через меню.

  Set MyPage = MyDocument.Pages(NumPage)
  Set PgItems = MyPage.PageItems
  Set Grp = MyPage.Groups.Add(PgItems)
  Set myInDesign.Selection = Grp
  Set Butt = myInDesign.MenuActions.Item("$ID/$$$/Dialog/CmdName/CreateButton")
  Call Butt.Invoke
  Set Grp = myInDesign.Selection(1)
  Grp.HorizontalScale = 180
  Grp.VerticalScale = 180
  Grp.move (Array(88, 20))
  Call Grp.ConvertToObject
  Grp.Ungroup

 

[teatral]

И вдогонку по моему вопросу - обработка всех MasterPage:

For NumMaster = 1 To MyDocument.MasterSpreads.Count
    Set CollPages = MyDocument.MasterSpreads(NumMaster).Pages
    ...
    ' Та же обработка коллекции страниц
    ...
    next NumMaster

 

[teatral]

Проблема вот в чем - нельзя группу в которой есть кнопки преобразовать к кнопку (вполне логично)
Так что вышеуказанный метод для страницы с кнопками не подходит

 

[LeshikSan]

Отмаштабированый таким образом объект начинает жить двойной жизнью: сохраняются и старые и новые значения. Например у текста значение кегля выглядит так: 24 пт(12), где первое значение - исходное, а в скобках - текущее. Это вообще что такое?