Здравствуйте, подскажите, пожалуйста, как можно через макрос поставить значение "особый колонтитул для первой страницы"
Всё, что найдено в интернете выдаёт ошибку
Всё, что найдено в интернете выдаёт ошибку
Код |
---|
Sub macros() ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.HeaderFooter.LinkToPrevious = Not Selection.HeaderFooter.LinkToPrevious ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter = True With ActiveSheet.PageSetup .CenterHeader = _ "&""Arial Cyr,полужирный""текст" .LeftMargin = Application.InchesToPoints(0.7) .RightMargin = Application.InchesToPoints(0.7) .TopMargin = Application.InchesToPoints(1.07291666666667) .BottomMargin = Application.InchesToPoints(0.75) .HeaderMargin = Application.InchesToPoints(0.3) .FooterMargin = Application.InchesToPoints(0.3) .Zoom = 100 .PrintErrors = xlPrintErrorsDisplayed .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .ScaleWithDocHeaderFooter = True .AlignMarginsHeaderFooter = True End With End Sub |