Практическое задание 1.

Запишем макрос с именем «мой_первый_макрос», в который запишем следующие команды:

§ Альбомная ориентация страницы

§ Масштаб просмотра – 33%

В результате получим следующий код

Sub мой_первый_макрос()

'

' мой_первый_макрос Макрос

' Макрос записан 03.12.07

'

With ActiveDocument.PageSetup

.LineNumbering.Active = False

.Orientation = wdOrientLandscape

.TopMargin = CentimetersToPoints(1.5)

.BottomMargin = CentimetersToPoints(3)

.LeftMargin = CentimetersToPoints(2)

.RightMargin = CentimetersToPoints(2)

.Gutter = CentimetersToPoints(0)

.HeaderDistance = CentimetersToPoints(1.25)

.FooterDistance = CentimetersToPoints(1.25)

.PageWidth = CentimetersToPoints(29.7)

.PageHeight = CentimetersToPoints(21)

.FirstPageTray = wdPrinterDefaultBin

.OtherPagesTray = wdPrinterDefaultBin

.SectionStart = wdSectionNewPage

.OddAndEvenPagesHeaderFooter = False

.DifferentFirstPageHeaderFooter = False

.VerticalAlignment = wdAlignVerticalTop

.SuppressEndnotes = False

.MirrorMargins = False

.TwoPagesOnOne = False

.GutterPos = wdGutterPosLeft

End With

ActiveWindow.ActivePane.View.Zoom.Percentage = 33

End Sub

Можно исправить текст этого макроса, например,

• изменим процент, например 33 на 42
• изменим поля
• заменим False на True в строке .LineNumbering.Active = False (будет автонумерация строк)
• заменим в строке .Orientation = wdOrientLandscape на wdOrientPortrait , ориентация бумаги будет книжная

После сохранения данный макрос можно вновь запустить для любого другого документа.