Re: Print Selection

Написал vavalexus в 22/06/2010 11:42:50

Пока проблему решал так:
В нужных местах вызывал макросы:

Sub MasterFalse()
ActivePage.Layers("Test".Master = False
.
.
End Sub

Sub MasterTrue()
ActivePage.Layers("Test".Master = True
.
.
End Sub

Но сталкнулся с проблемой. У меня 12 корел EN, и лицензия X3 Rus. Так вот, на EN эти макросы по MASTER=TRUE/FALSE работают, а на X3 - слой вне диапазона. Если автозаписываем макрос в X3 по убиранию слоя из MASTER, потом делаем UNDO и пытаемся запустить - то вылетает ошибка - слой вне диапазона. Код правильный, на 12 работает. Подозрение, что это косяк локализации. Слои называются Слой-Шаблон Test. VBA не понимает имя?
Если написать ActiveDocument.Pages(0).Layers("Test".Master = False - пустой слой убирается из шаблонов, а ActiveDocument.Pages(0).Layers("Test".Master = True - добавляется. Но стоит в этом слое что-то нарисовать, при выполнении команды ActiveDocument.Pages(0).Layers("Test".Master = False происходит подвисание корела. Если руками перевести, а потом ActiveDocument.Pages(0).Layers("Test".Master = True - то добавляется в шаблоны.