Re: Огромная коллекция макросов для Corel12/X3

Написал Ander_OS в 29/03/2011 17:06:39

Нацарапал простенькую. Не дождался профессиональную

Private Sub ScrollScreen_OS()
Dim Left, Top, Right, Bottom As Double

Left = 25
Top = ActivePage.SizeWidth * 25.4 / 17.7
Right = ((ActivePage.SizeWidth * 25.4 - 250) / 11.54) - 2
Bottom = -1

ActiveDocument.ActiveWindow.ActiveView.ToFitArea Left, Top, Right, Bottom
ActiveDocument.ActiveWindow.Refresh

End Sub