2020-01-14
107
Самый простой способ создать макрос - воспользоваться средством записи макросов. Для этого нужно просто запустить средство записи и затем выполнить операции, которые вы хотите автоматизировать (таким образом можно выделить текст, а также выбирать команды меню или изменить опции диалогового окна.) Средство записи переведет все, что вы сделаете, в соответствующие операторы VBA. Результат записи будет сохранен в отдельной области, называемой модулем, откуда можно будет повторить всю процедуру в любое время.
Для записи макроса выполняются следующие действия:
Открытие и подготовка приложения, в котором будет записывать макрос. В Microsoft Office, например, если хотите записать последовательность параметров форматирования, выделите текст, с которым будете работать.
Выберите команду меню Вид => Макросы =>Начать запись (рис. 4а). На экране появится диалоговое окно Запись макроса (рис. 5).
В поле Имя макроса по умолчанию предлагается стандартное имя макроса (такое как Макрос1), но его можно заменить любым другим. Тем не менее, есть несколько ограничений на имена макросов. Имя не может состоять более чем из 255 символов. Первым символом в имени должна быть буква или символ подчеркивания "_". В именах не допускается использование точек и пробелов.
|
|
|
В поле "Описание" можно ввести описание макроса.
Щелкните на кнопке ОК. В результате вы вернетесь в документ, а под мышкой будет значок кассеты который означает запись макроса, а также отобразится панель инструментов «Остановить запись» и «Пауза» (рис. 4б).
Выполните действия, которые нужно записать в макросе. Поскольку средство записи записывает все ваши действия (кроме щелчков на кнопках, расположенных на панели инструментов "Остановить запись"), будьте внимательны и не выполняйте никаких лишних действий и команд во время записи макроса.
После того как все действия будут записаны, выполните команду Вид =>Макросы =>Остановить запись, которая расположена на одноименной панели инструментов.
Был создан макрос который выделял весь текст ставил шрифт Times New Roman, размер шрифта 10, положение текста на странице По ширине, альбомная ориентация страницы, отступ по левому и правому и сверху, и снизу - 2см.
Код макроса:
Sub Макрос1()
'' Макрос1 Макрос
'Selection.WholeStory
Selection.Font.Name = "Times New Roman"
Selection.Font.Size = 10
Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify
With ActiveDocument.Styles(wdStyleNormal).Font
If.NameFarEast =.NameAscii Then
.NameAscii = ""
End If
.NameFarEast = ""
End With
With ActiveDocument.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientLandscape
.TopMargin = CentimetersToPoints(2)
.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
