чётные и нечётные мастер-слои

[qzmin]

приветствую!

понадобилось назначать в многостраничном документе мастер-слои соответствующим страницам

нашел вот только такой макрос

Sub Masters()
Dim p As Page, flip As Boolean
flip = False
'enable all my master pages
For Each p In ActiveDocument.Pages
p.Layers("odd").Visible = True
p.Layers("odd").Printable = True
p.Layers("even").Visible = True
p.Layers("even").Printable = True
Next p


'disable unneded master pages
For Each p In ActiveDocument.Pages
If flip Then
p.Layers("odd").Visible = False
p.Layers("odd").Printable = False
flip = False
Else
p.Layers("even").Visible = False
p.Layers("even").Printable = False
flip = True
End If
Next p
End Sub


но что-то он не работает на корел 14.0.0.701 (sp2)

помогите пожалуйста найти причину

 

[dik973]

Ответ: чётные и нечётные мастер-слои

Сам макрос работает -- только он включает/отключает видимость мастера для всех страниц. Смотри по ссылке последний комментарий от lev
http://forum.rudtp.ru/showthread.php?t=36407&highlight=%D0%BC%D0%B0%D11%D12%D0%B5%D10+%D0%B4%D0%BB%D1F+%D11%D12%D10%D0%B0%D0%BD%D0%B8%D16%D1B