Как включить макросы в Word: пошаговая инструкция

Макрос — это набор определенных действий, команд и/или инструкций, которые сгруппированы в одну целостную команду, обеспечивающую автоматическое выполнение той или иной задачи. Если вы активный пользователь MS Word, вы тоже можете автоматизировать часто выполняемые задачи, создав для них соответствующие макросы.

Именно о том, как включить макросы в Ворд, как их создавать и использовать для упрощения, ускорения рабочего процесса и пойдет речь в этой статье. И все же, для начала не лишним будет более подробно разобраться в том, зачем вообще они нужны.

Области использования макросов:

• Ускорение часто выполняемых операций. В числе таковых форматирование и редактирование.
• Объединение нескольких команд в целостное действие “от и до”. Например, с помощью макроса можно вставить таблицу заданного размера с необходимым количеством строк и столбцов.
• Упрощение доступа к некоторым параметрам и инструментам, расположенным в различных диалоговых окнах программы.
• Автоматизация сложных последовательностей действий.

Последовательность макросов может быть записана или создана с нуля путем введения кода в редактор Visual Basic на одноименном языке программирования.

Включение макросов

По умолчанию макросы доступны не во всех версиях MS Word, точнее, они просто не включены. Чтобы активировать их необходимо включить средства разработчика. После этого на панели управления программы появится вкладка “Разработчик”. О том, как это сделать, читайте ниже.

Примечание: В версиях программы, в которых макросы доступны изначально (например, Ворд 2016), средства для работы с ними находятся во вкладке “Вид” в группе “Макросы”.

1. Откройте меню “Файл” (кнопка “Microsoft Office” ранее).
2. Выберите пункт “Параметры” (ранее “Параметры Word”).
3. Откройте в окне “Параметры” категорию “Основные” и перейдите в группе “Основные параметры работы”.
4. Установите галочку напротив пункта “Показывать вкладку “Разработчик” на ленте”.
5. На панели управления появится вкладка “Разработчик”, в которой и будет находиться пункт “Макросы”.

Запись макросов

1. Во вкладке “Разработчик” или, в зависимости от используемой версии Ворда, во вкладке “Вид”, нажмите кнопку “Макросы” и выберите пункт “Запись макроса”.
2. Задайте имя для создаваемого макроса.

Примечание: Если вы, создавая новый макрос, даете ему точно такое же имя, как у встроенного в программу, действия, записанные вами в новый макрос, будут выполняться взамен стандартным. Для просмотра макросов, доступных в MS Word по умолчанию, в меню кнопки “Макросы” выберите “Команды Word”.

В пункте “Макрос доступен для” выберите то, для чего он будет доступен: шаблон или документ, в который его следует сохранить.

Если вы хотите, чтобы создаваемый макрос был доступен во всех документах, с которыми вы работаете в дальнейшем, выберите параметр “Normal.dotm”.

В поле “Описание” введите описание для создаваемого макроса.

Совет: Чтобы создаваемый макрос был доступен для всех документов, выберите параметр “Normal.dotm”.

• В окне “Макрос из” (ранее “Выбрать команды из”) выберите макрос, который следует записать, нажмите “Добавить”. >
• Если вы хотите настроить эту кнопку, нажмите “Изменить”;
• Выберите подходящий символ для создаваемой кнопки в поле “Символ”;
• Введите имя макроса, которое будет отображаться в дальнейшем в поле “Отображаемое имя”;
• Для начала записи макроса дважды кликните по кнопке “ОК”.



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

• Назначьте сочетание клавиш — Для того, чтобы назначить комбинацию клавиш для создаваемого макроса, выполните следующие действия: >
• Кликните по кнопке “Клавишами” (ранее “Клавиатура”);
• В разделе “Команды” выберите макрос, который необходимо записать;
• В разделе “Новое сочетание клавиш” введите любую удобную для вас комбинацию, после чего нажмите кнопку “Назначить”;
• Для начала записи макроса нажмите “Закрыть”.

Выполните поочередно все те действия, которые необходимо включить в макрос.

Примечание: Во время записи макроса нельзя использовать мышь для выделения текста, а вот для выбора команд и параметров нужно использовать именно ее. При необходимости, выделить текст можно с помощью клавиатуры.



• Для остановки записи макроса нажмите “Остановить запись”, эта команда расположена в меню кнопки “Макросы” на панели управления.

Изменение комбинаций клавиш для макроса

1. Откройте окно “Параметры” (меню “Файл” или кнопка “MS Office”).
2. Выберите пункт “Настройка”.
3. Нажмите на кнопку “Настройка”, расположенную рядом с полем “Сочетание клавиш”.
4. В разделе “Категории” выберите “Макросы”.
5. В открывшемся списке выберите макрос, который необходимо изменить.
6. Кликните по полю “Новое сочетание клавиш” и нажмите клавиши или комбинацию клавиш, которые вы хотите назначить для конкретного макроса.

• Убедитесь, что назначенное вами сочетание клавиш не используется для выполнения другой задачи (поле “Текущее сочетание”).
• В разделе “Сохранить изменения” выберите подходящий вариант (место) для сохранения места, где макрос будет запускаться.

Если вы хотите, чтобы макрос был доступен к использованию во всех документах, выберите параметр “Normal.dotm”.

Запуск макроса

1. Нажмите на кнопку “Макросы” (вкладка “Вид” или “Разработчик”, в зависимости от используемой версии программы).
2. Выберите макрос, который хотите запустить (список “Имя макроса”).
3. Нажмите “Выполнить”.

Создание нового макроса

1. Нажмите кнопку “Макросы”.

• Задайте имя для нового макроса в соответствующем поле.
• В разделе “Макросы из” выберите шаблон или документ, для которого будет сохранен создаваемый макрос.

Если вы хотите, чтобы макрос стал доступен во всех документах, выберите параметр “Normal.dotm”.

На этом все, теперь вы знаете, что такое макросы в MS Word, зачем они нужны, как их создавать и как с ними работать. Надеемся, информация из этой статьи будет полезной для вас и действительно поможет упростить, ускорить работу со столь продвинутой офисной программой.

Включение макросов в word

Выполнение в Word повторяющейся задачи, требующей большого количества щелчков мыши или нажатий клавиш, каждый раз вызывает только раздражение. С помощью макроса можно объединить набор команд и заставить Word выполнять их по щелчку мыши или нажатию клавиши.

Включение макроса в Word 2010 Перейдите на вкладку ленты Разработчик. Если этой вкладки на вашей ленте нет, откройте окно Параметры Word и на вкладке Основные установите флажок на параметре Показывать вкладку «Разработчик» на ленте.

На вкладке “Разработчик” в группе команд “Код” нажмите кнопку “Начать запись”. Откроется диалоговое окно Запись макроса.

Для примера сделаем простую запись макроса, которая будет выполнять вставку текста в то место, где будет стоять курсор.Запускаем запись макроса и в диалоговом окне пишем его название и описание, а так же выбираем доступ.

Нажмем ОК и начнется запись макроса.Напечатаем текст и добавим ему цвет.

После чего нажмем “Остановить макрос”. Для запуска макроса нужно нажать кнопку “Макросы” или комбинацию клавиш “Alt + F8”, так же макросу можно задать в личную комбинацию клавиш или вывести кнопку в меню.

Запустив окно “Макрос” выбираем нужный нам макрос и нажимаем выполнить, после чего он вставить в нужное нам место наш текст.

Создание макроса с помощью редактора Visual Basic for Applications (VBA).

Создадим простейший макрос, который будет позволять щелкать по гиперссылке в документе Word без нажатой клавиши Ctrl

Макросы для Word пишутся на языке программирования Visual Basic for Applications (VBA).Макросы создаются в компоненте Word, который большинство пользователей никогда не видят, — в редакторе Visual Basic (VBE). Открыть редактор Visual Basic можно одним из указанных ниже способов.

• Нажмите сочетание клавиш ALT + F11
• Нажмите кнопку Visual Basic на вкладке Разработчик. Для этого откройте вкладку Файл и нажмите кнопку Параметры. В диалоговом окне Параметры Word нажмите кнопку Настройка ленты. В правой части диалогового окна выберите вкладку Разработчик. Нажмите кнопку ОК, чтобы вернуться к документу, а затем нажмите на вкладке Разработчик кнопку Visual Basic.
• Добавление команды Visual Basic на панель быстрого доступа.

Перед тем как приступить к работе с редактором Visual Basic, выберите в меню Сервис пункт Параметры. В диалоговом окне Параметры установите на вкладке Редактор все флажки.

В левом верхнем углу редактора Visual Basic расположено Окно проекта. В нем отображаются все файлы, открытые в Word в настоящий момент. Там должны отображаться файлы Normal (соответствующий шаблону Normal.dotm) и TheDocument (только что созданный файл).

На приведенном ниже рисунке показан проект TheDocument в окне проекта редактора Visual Basic.В файле макросы хранятся в виде модулей. Чтобы добавить в файл модуль, выберите в окне проекта файл TheDocument. В меню Вставка выберите пункт Модуль. После добавлении модуля в файл этот модуль появится в окне проекта и в расположенном под ним окне свойств. В окне свойств модуль можно переименовать или оставить имя по умолчанию Module1.

Написание макроса

Большая белая область в правой части редактора Visual Basic предназначена для написания кода макроса. Если она не отображается, выберите в меню Вид пункт Код, чтобы вывести окно кода. Приложение Word автоматически вставит в начало кода оператор Option Explicit. Не удаляйте его.

Нам нужен макрос для переключения между двумя способами перехода по гиперссылке в Word. Он будет работать так же, как и другие кнопки, предназначенные для переключения между значениями параметра в Word. Кнопка Полужирный на вкладке "Главная", например, выделяет текст полужирным шрифтом, если он не был выделен, и отменяет полужирное начертание в противном случае.

Скопируйте и вставьте через буфер обмена приведенный ниже пример кода макроса в окно кода.

Sub ToggleHyperlinkCtrlClick() Options.CtrlClickHyperlinkToOpen = Not Options.CtrlClickHyperlinkToOpen End Sub

Это короткий макрос ToggleHyperlinkCtrlClick, состоящий только из одной строки кода. Эта строка означает "Изменить текущее значение параметра Word, определяющего необходимость использования сочетания CTRL + щелчок для перехода по гиперссылке, на противоположное (Not).

Тестирование макроса

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

1. Разместите окна Word и редактора Visual Basic рядом друг с другом.
2. Щелкните главное окно Word. Введите в документ http://google.com
3. В редакторе Visual Basic щелкните в любом месте макроса. Чтобы запустить макрос, выберите в меню Выполнить команду Выполнить процедуру/форму пользователя или нажмите клавишу F5.
4. Значение параметра, определяющего способ перехода по гиперссылке, изменится. Наведите указатель мыши на гиперссылку в главном окне Word и убедитесь, что подсказка изменилась.
5. Чтобы переключить значение, запустите макрос повторно.

Макрос также можно запустить непосредственно в приложении Word. На вкладке Вид в группе Макросы нажмите кнопку Макросы. Откроется диалоговое окно Макрос, где в списке макросов будет и макрос ToggleHyperlinkCtrlClick. Чтобы запустить ваш макрос, щелкните его имя и нажмите кнопку Выполнить.

Создание на панели быстрого доступа кнопки для запуска макросаЧтобы запускать макрос одним щелчком мыши, можно добавить кнопку на панель быстрого доступа. Для этого выполните указанные ниже действия.

Создание кнопки на панели быстрого доступа

1. Щелкните панель быстрого доступа правой кнопкой мыши и выберите в контекстном меню команду Настройка панели быстрого доступа. В разделе Настройка панели быстрого доступа выберите в списке Выбрать команды из пункт Макросы. В списке "Настройка панели быстрого доступа" выберите файл MyWordTools.dotm. (Это необходимо, чтобы приложение Word сохранило кнопку на панели быстрого доступа в файле MyWordTools.dotm. Если этого не сделать, при копировании файла на другой компьютер кнопка отображаться не будет.) Выберите макрос ToggleHyperlinkCtrlClick и нажмите кнопку Добавить.
2. Нажмите кнопку Изменить, чтобы выбрать символ и изменить имя на ToggleHyperlinkCtrlClick.
3. Теперь макрос можно запустить в любой момент, нажав кнопку на панели быстрого доступа.

Макросы Word могут быть длинными, сложными и многофункциональными. Например, можно написать макрос для обращения к внешней базе данных, выполнения с полученными данными определенных вычислений и возврата результатов в Word. Также можно написать макрос Word для взаимодействия с Excel, PowerPoint или Outlook. В некоторых случаях и простые макросы могут оказаться полезными, позволяя сэкономить время.

Для форматирования текста больше подходят стили, чем макросы. Для изменения макета документа лучше создать новый шаблон. Кроме того, для выполнения поставленной задачи уже может существовать встроенная команда, которую можно добавить на панель быстрого доступа (при настройке панели быстрого доступа выберите в списке Выбрать команды из: пункт Все команды).

Как назначить сочетания клавиш для макросов

• Откройте диалоговое окно Параметры Word.
• Перейдите на закладку Настройка ленты и выбираем в командах: Макросы.
• Потом выбираем наш макрос и с низу жмем сочетание клавиш – настройки.
• В диалоговом окне настройки клавиатуры выбираем в категории макросы и в окне макросы выбираем нужный нам макрос.
• Щелкаем в новое сочетание клавиш и жмем на клавиатуре нужную нам комбинацию.
• Жмем назначить и ок

Примеры кодов:Удаление лишних пробелов в тексте без использования диалогового окна “Найти и заменить”

Sub ReplaceMultiSpaces() Dim oChar As Range For Each oChar In ActiveDocument.Characters If oChar.Text = " " Then While oChar.Next(wdCharacter).Text = " " oChar.Next(wdCharacter).Delete Wend End If Next End Sub

Расположение двух открытых документов Word рядом

Sub ArrangeDocWindows() ‘ ArrangeDocWindows Macro ‘ Arranges two document windows side by side vertically Dim iMiddle As Integer Dim iClientWid As Integer Dim iClientHi As Integer Dim iWin1 As Integer Dim iWin2 As Integer Dim sPrompt As String Dim sWins As String Dim i As Integer iClientWid = Application.Width — 9 iMiddle = Fix((iClientWid) / 2) iClientHi = Application.Height — 94 iWin1 = 1 iWin2 = 2 If Application.Windows.Count > 2 Then For i = 1 To Application.Windows.Count sPrompt = sPrompt " — " vbLf Next sWins = InputBox("Enter numbers of windows to arrange separated by space." sPrompt, _ "Choose windows", "1 2") If sWins = "" Then Exit Sub End If iWin1 = CInt(Left(sWins, InStr(sWins, " ") — 1)) iWin2 = CInt(Mid(sWins, InStr(sWins, " ") + 1)) End If Application.Windows(iWin1).Activate Application.Windows(iWin1).WindowState = wdWindowStateNormal With ActiveWindow .Left = 0 .Top = 0 .Height = iClientHi .Width = iMiddle End With Application.Windows(iWin2).Activate Application.Windows(iWin2).WindowState = wdWindowStateNormal With ActiveWindow .Left = iMiddle .Top = 0 .Height = iClientHi .Width = iClientWid — iMiddle End With End Sub Обратите внимание, что если у вас будет открыто только одно окно, то после нажатия этой кнопки может появиться окно с сообщением редактора кода Visual Basic об ошибке. Закройте его нажав на кнопку End. А в следующий раз будьте внимательны.

Преобразование гиперссылки в документе Word в обычный текст

Sub RemoveHyperlinks() While ActiveDocument.Hyperlinks.Count > 0 ActiveDocument.Hyperlinks(1).Delete Wend Application.Options.AutoFormatAsYouTypeReplaceHyperlinks = False End Sub

Изменения цвета заглавных букв в тексте

Sub colorAllBig() Dim fChar As Range Dim seltext As Range Dim i As Long Set seltext = Selection.Range If Selection.Type = wdSelectionIP Then MsgBox "Выделите текст" Else For Each fChar In seltext.Words For i = 1 To fChar.Characters.Count If fChar.Characters(i).Case = wdUpperCase Then fChar.Characters(i).Font.Color = wdColorRed Else fChar.Characters(i).Font.Color = wdColorBlack End If Next i Next fChar End If End Sub