Макрос — это набор команд и инструкций, группируемых вместе в виде единой команды для автоматического выполнения задачи. Вы можете записать последовательность действий или создать макрос с нуля, введя код на языке Visual Basic для приложений в редактор Visual Basic.

Постановка задачи: Создать макрос, который будет форматировать текст в соответствии к стандартам Единой конструкторской документации: 14 шрифт Times New Roman, полуторный междустрочный интервал, выравнивание по ширине листа, поля со всех сторон по 2 см.
Чтобы создать и использовать макрос нам нужно настроить наш Word. Для этого нажмем Файл=>Параметры=>Настройка ленты и поставим галочку напротив надписи «Разработчик». Теперь мы можем использовать макросы.
Для создания собственного макроса нужно перейти на вкладку Разработчик и нажать «Макросы», ввести название нашего будущего макроса и нажать «Создать». Откроется окно Microsoft Visual Basic for Applicatios(дальше VBA) в котором можно наполнить макрос кодом.


Sub Marcos()
'
' Marcos Макрос
'
'
End Sub

Теперь перейдем к самому коду. Сначала выделим весь документ, для того чтобы редактировать его.


Sub Marco()

'Выделяем ведь документ
Selection.WholeStory

Изменяем стиль на «Без интервала», чтобы избавиться от междустрочных интервалов.


'Стиль "Без интервала"
Selection.Style = ActiveDocument.Styles("Без интервала")

Приступаем к функциям форматирования текста. Выравниваем данный нам текст по ширине листа


'Выравнивание по ширине
ActiveDocument.Range.ParagraphFormat.Alignment = wdAlignParagraphJustify

Редактируем шрифт и его размер.


'Изменение шрифта
ActiveDocument.Range.Font.Name = "Times New Roman"

'Изменение размера шрифта
Selection.Font.Size = "14"

Так как междустрочный интервал мы убрали, то теперь можем изменить его на полуторный.


'Изменение междустрочного интервала
ActiveDocument.Range.ParagraphFormat.LineSpacingRule = WdLineSpacing.wdLineSpace1pt5

Для полного выполнения задачи нам не хватает только полей. Делаем поля с каждой стороны по 2 см.


'Изменение полей
'Поле слева
ActiveDocument.Range.PageSetup.LeftMargin = Application.InchesToPoints(0.786)
'Поле справа
ActiveDocument.Range.PageSetup.RightMargin = Application.InchesToPoints(0.786)
'Поле сверху
ActiveDocument.Range.PageSetup.TopMargin = Application.InchesToPoints(0.786)
'Поле снизу
ActiveDocument.Range.PageSetup.BottomMargin = Application.InchesToPoints(0.786)

Завершая помещаем курсор в конец документа, чтобы снять выделение и выводим сообщение, что документ отредактирован.


'Курсор в конец документа
Selection.MoveDown Unit:=wdLine, Count:=1

'отчёт
MsgBox "Документ отредактирован"

End Sub

Наш макрос готов. Чтобы его запустить надо закрыть окно VBA и перейти Разработчик=>Макросы выбрать наш макрос и нажать «Выполнить». Если окно VBA не открылось, не указало вам на ошибку и сообщение об успешном форматировании текста вывелось на экран - значит макрос успешно создан. Теперь сохраните его. Для этого нажмите Файл=>Сохранит как, выберите «Документ Word с поддержкой макросов(*.docm)» и укажите директорию в которую хотите его сохранить.

Автор: Beznoschenko


 Похожие публикации
2016-05-26 • Просмотров [ 345 ]