.BottomMargin = CentimetersToPoints(2)

.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

.BookFoldPrinting = False

.BookFoldRevPrinting = False

.BookFoldPrintingSheets = 1

.GutterPos = wdGutterPosLeft

End With

End Sub

Редактирование макроса

Чтобы отредактировать сделанный макрос выполните команду Вид =>Макросы, откроется окно Макрос и выбираем наш записанный макрос (рис. 6). Нажимаем «Изменить». Открывается окно редактирования макроса (рис. 7).

В этом окне можно подкорректировать макрос.

Макрос1 был изменён добавлена красная строка. Код красной строки:

With Selection.ParagraphFormat