4. Скопировать текст макроса в окно Visual Basic Editor.
Создайте в редакторе VBA новый модуль для записи макроса.
Модуль будет храниться в нашем файле Word (для примера, файл называется Макросы - Тест.docx).
Для создания модуля, сохраняемого в файле, выберите в области Project (в левой верхней части редактора VBA) строку Project (Макросы - Тест) и затем выберите в меню редактора команду Insert - Module.
Видеофильм о создании нового модуля см. здесь:
внешняя ссылка
Примечание - Для сохранения макроса в файле в Word 2007 или 2010 нужно, чтобы файл был сохранен в формате с поддержкой макросов.
Далее обычным образом скопируйте текст макроса в созданный модуль в редакторе Visual Basic Editor.
Поскольку иногда наши коллеги приводят текст макроса без первого и последнего операторов, проверьте, чтобы макрос начинался оператором Sub и заканчивался оператором End Sub.
Sub [Наименование_макроса]()
(…)
End Sub
Наименование макроса должно состоять из одного слова и может включать в себя буквы латиницы, кириллицы (русского алфавита), цифры и знаки подчеркивания (причем в начале наименования макроса обязательно должна стоять буква). Например:
Sub Мой_макрос01()
(…)
End Sub
Например:
Sub Hello1()
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeParagraph
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.TypeText Text:="Привет, мир!"
Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
Selection.Font.Name = "Times New Roman"
Selection.Font.Size = 36
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.Font.Bold = wdToggle
Selection.MoveLeft Unit:=wdCharacter, Count:=1
End Sub
Сохраняем скопированный макрос (Ctrl+C).
Видеофильм о копировании и сохранении макроса см. здесь:
внешняя ссылка
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.