Макрос для word 2013 - Word и Excel - помощь в работе с программами

Содержание

0.1 Области использования макросов:
0.2 Включение макросов
0.3 Запись макросов
0.4 Изменение комбинаций клавиш для макроса
0.5 Запуск макроса
0.6 Создание нового макроса
0.7 Помогла ли вам эта статья?

1 Что это — макросы в «Ворде»?
2 Word 2010-2016: запись макроса, запускающегося кнопкой
3 Word 2010-2016: запись макроса, запускающегося комбинацией клавиш
4 Word 2007: начало создания макроса
5 Word 2007: три варианта записи макроса
6 Открытие файлов с макросами
7 Включение макросов
8 Отключение макросов

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

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

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

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

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

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

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

1. Откройте меню “Файл” (кнопка “Microsoft Office” ранее).

2. Выберите пункт “Параметры” (ранее “Параметры Word”).

3. Откройте в окне “Параметры” категорию “Основные” и перейдите в группе “Основные параметры работы”.

4. Установите галочку напротив пункта “Показывать вкладку “Разработчик” на ленте”.

5. На панели управления появится вкладка “Разработчик”, в которой и будет находиться пункт “Макросы”.

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

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

2. Задайте имя для создаваемого макроса.

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

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

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

5. Выполните одно из действий, указанных ниже:

Начните запись — чтобы приступить к началу записи макроса, не связывая его при этом с кнопкой на панели управления или комбинацией клавиш, нажмите “ОК”. Создайте кнопку — чтобы связать создаваемый макрос с кнопкой, расположенной на панели управления, выполните следующее:

Нажмите “кнопке”;

Выберите документ или документы, в которых требуется добавить создаваемый макрос на панель быстрого доступа (раздел “Настройка панели быстрого доступа”);

В окне “Макрос из” (ранее “Выбрать команды из”) выберите макрос, который следует записать, нажмите “Добавить”.

Если вы хотите настроить эту кнопку, нажмите “Изменить”;

Выберите подходящий символ для создаваемой кнопки в поле “Символ”;

Введите имя макроса, которое будет отображаться в дальнейшем в поле “Отображаемое имя”;

Для начала записи макроса дважды кликните по кнопке “ОК”.

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

Назначьте сочетание клавиш — Для того, чтобы назначить комбинацию клавиш для создаваемого макроса, выполните следующие действия:

Кликните по кнопке “Клавишами” (ранее “Клавиатура”);

В разделе “Команды” выберите макрос, который необходимо записать;

В разделе “Новое сочетание клавиш” введите любую удобную для вас комбинацию, после чего нажмите кнопку “Назначить”;

Для начала записи макроса нажмите “Закрыть”.

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

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

Урок: Горячие клавиши в Ворде

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

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

1. Откройте окно “Параметры” (меню “Файл” или кнопка “MS Office”).

2. Выберите пункт “Настройка”.

3. Нажмите на кнопку “Настройка”, расположенную рядом с полем “Сочетание клавиш”.

4. В разделе “Категории” выберите “Макросы”.

5. В открывшемся списке выберите макрос, который необходимо изменить.

6. Кликните по полю “Новое сочетание клавиш” и нажмите клавиши или комбинацию клавиш, которые вы хотите назначить для конкретного макроса.

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

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

9. Нажмите “Закрыть”.

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

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

2. Выберите макрос, который хотите запустить (список “Имя макроса”).

3. Нажмите “Выполнить”.

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

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

2. Задайте имя для нового макроса в соответствующем поле.

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

4. Нажмите “Создать”. Будет открыт редактор Visual Basic, в котором и можно будет создать новый макрос на языке Visual Basic.

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

Мы рады, что смогли помочь Вам в решении проблемы.

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

Помогла ли вам эта статья?

Да Нет

А вы знали, что часто повторяемые действия в текстовом редакторе Word последних версий (2007, 2010, 2013, 2016) можно автоматизировать? Достигается это путем создания макросов в «Ворде». Что это, как их сделать, включить/отключить, как открыть файл с такими элементами, мы обязательно разберем далее.

Что это — макросы в «Ворде»?

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

Чаще всего макросы применяются пользователем для:

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

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

Word 2010-2016: запись макроса, запускающегося кнопкой

Разберем, как создать макрос в «Ворде» этого типа:

Зайдите в «Вид», выберите «Макрос» — «Создать…».
Придумайте имя для этого комплекса команд.
Если вы хотите использовать его для всех файлов, то обязательно выберите доступность «Для всех документов».
Кликните на назначение «По кнопке».
В следующем окне кликните на новый макрос. Его наименование будет начинаться с Normal — NewMacros, после чего будет следовать имя, которым вы его обозначили.
Далее — щелчок на «Добавить», а затем на «Изменить».
Из предложенной палитры выберите значок для своего макроса в «Ворде».
Теперь самая важная часть: запись шагов. Для каждого нужно выбрать команду или нажать определенную клавишу. Текст необходимо выделять с помощью клавиатуры. Система будет записывать все шаги, что вы сделаете, — нажатия клавиш, действия мышью.
Когда вы завершите задуманное, закончите запись: зайдя в раздел «Макросы», выберите «Остановить…»

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

Word 2010-2016: запись макроса, запускающегося комбинацией клавиш

Теперь разберем, как создать макрос в «Ворде», который активируется нажатием сочетания кнопок:

Зайдите в «Вид», найдите «Макросы». Далее — «Записать…»
Введите его имя. Не забудьте указать, если это нужно, что макрос доступен для всех документов.
Выберете значок доступности по клавиатуре.
В поле «Новое сочетание…» введите определенную комбинацию клавиш, которая будет запускать в действие макрос. Если она будет совпадать с другой стандартной командой, то нужно придумать иное сочетание.
Кликните на «Назначить».
Теперь запись шагов для макроса: для каждого из них выставляйте определенную команду, щелчок мышкой. Все действия будут сохраняться системой.
Когда все будет готово, зайдите в «Макросы» (меню «Вид») и остановите запись.

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

Word 2007: начало создания макроса

Теперь расскажем, как сделать макрос в «Ворде 2007». Процесс немного отличается от того, что представлен для поздних версий этого текстового редактора.

Первым делом вам нужно активировать вкладку разработчика:

Кликните на кнопку Microsoft Office (круглую, с логотипом компании).
Выберите «Параметры «Ворда»».
В «Основных параметрах…» сделайте активным пункт «Показывать «Разработчик» на ленте».

Теперь переходим непосредственно к созданию комплекса команд:

Зайдите на появившуюся вкладку «Разработчик». В «Коде» выберите «Запись макроса».
В «Имя…» введите название. Будьте внимательны: если оно будет совпадать с наименованием стандартного макроса, то новая запись заменит его. Поэтому для проверки в «Макросах» группы «Код» найдите «Команды Word» и убедитесь, что придуманное имя не совпадает с там присутствующими.
В «Макрос доступен…» выберите, где его можно применять. Если для всех файлов, то остановитесь на Normal.dotm.
Введите описание.

Word 2007: три варианта записи макроса

Далее вы можете пойти тремя путями.

Запись без привязки. Вы пишете макрос, не связывая его ни с кнопкой, ни с сочетанием клавиш. Для этого достаточно нажать на ОК.

Привязка макроса к кнопке. Тут следует пойти таким путем:

Щелкните на «По кнопке».
В «Настройки панели быстрого доступа» выберите все документы или отдельный файл, где можно применять этот макрос.
В окне «Выбрать команды» нажмите на нужный макрос. Затем — щелчок на «Добавить».
Для настройки кликните на «Изменить».
В «Символе» выберите значок для кнопки.
«Отображаемое имя» — наименование макроса.
Два раза кликните на ОК, чтобы начать запись.

Привязка макроса к сочетанию клавиш. Здесь следующий путь:

Остановитесь на «Клавиатуре».
В «Командах» найдите макрос, который вы собрались записать.
В «Новом сочетании клавиш» введите придуманную комбинацию. Клик на «Назначить».
Щелкните на «Закрыть», чтобы начать запись.

Далее путь становится единым для всех вариантов:

Выполните последовательность действий, которую нужно включить в макрос.
Завершить процесс можно выбором «Остановить запись» во вкладке «Код».

Открытие файлов с макросами

Документы, поддерживающие макросы, имеют расширение .docm. Трудности с ними иногда возникают на моменте запуска — текстовой редактор выдает ошибку. Разберем, как открыть «Ворд» с макросами:

Два раза щелкните на данный документ. Система сама выберет программу на вашем ПК, способную его открыть.
При неудаче измените расширение на .doc, .docx.
В случае неудовлетворительного результата воспользуйтесь программами:
Word 2007, распознающий Open XML.
«Ворд» 2010.
Приложение FileViewPro.

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

Как включить макросы в «Ворде»? Есть три варианта.

При появлении панели сообщений. Как только вы открываете файл с макросами, перед вами на экране выходит желтое окошко с щитом и просьбой включить данный комплекс команд. Только если вы уверены в надежности источника документа, нажмите на панели «Включить содержимое».

С помощью представления Backstage. При открытии файла с макросами сделайте следующее:

Кликните на «Файл».
В «Предупреждении системы безопасности» нажмите на пункт «Включить содержимое».
В данном разделе сделайте активным «Всегда включать…» Это превратит документ в надежный.

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

Откройте вкладку с названием «Файл».
В «Предупреждении системы безопасности» нажмите на «Включить содержимое».
Перейдете в «Доп. параметры».
В «Параметрах безопасности…» выберите «Включить лишь для этого сеанса» в отношении каждого из имеющихся в документе макросов.
Подтвердите нажатием ОК.

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

Напоследок разберем, как убрать макросы в «Ворде»:

Во вкладке «Файл» перейдите на «Параметры».
В «Центре управления…» выберите «Параметры центра…»
Щелкните на «Параметры макросов».
Выберите, что вам нужно:
- Отключить все без уведомления (как макросы, так и предупреждения об опасности/безопасности).
- Отключить все с уведомлением (убираются только макросы, уведомления о безопасности остаются).
- Отключить все, кроме макросов с цифровой подписью (отображаются только макросы издателя, которому выражено доверие, — на их включение нужно согласиться в уведомлении при открытии файла).
Подтвердите выбор нажатием на ОК.

Создание макросов имеет свои особенности в различных версиях текстового редактора «Ворд». А при открытии файла с данной группой команд в данной программе вы можете выбрать, включать или не активировать их.

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

Сначала необходимо записать макрос. Перейдите на вкладку Вид и в группе Макросы последовательно выберите пункты Макросы и Запись макроса. Введите имя макроса. Чтобы использовать этот макрос во всех новых документах, проверьте, что в поле Макрос доступен для указано значение Всех документов (Normal.dotm). Чтобы запускать макрос нажатием кнопки, в группе Назначить макрос выберите Кнопке. Чтобы запускать макрос с помощью сочетания клавиш, – выберите Клавишам.

Если для запуска макроса используется кнопка, необходимо в открывшемся окне выделить новый макрос, а затем нажать последовательно кнопки Добавить и Изменить. Выберите изображение для кнопки и дважды щелкните OK.

Если для запуска макроса используется сочетание клавиш, необходимо в поле Новое сочетание клавиш ввести сочетание клавиш, отличное от сочетания клавиш других команд. Затем нажмите кнопку Назначить.

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

Чтобы остановить запись, на вкладку Вид в группе Макросы последовательно выберите пункты Макросы и Остановить запись.

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

Источник

Word для Microsoft 365 Word для Интернета Word 2021 Word 2019 Word 2016 Word 2013 Word 2010 Word 2007 Еще…Меньше

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

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

В меню Вид последовательно выберите пункты Макросы и Записать макрос.
Введите имя макроса.
Чтобы использовать этот макрос во всех новых документах, проверьте, что в поле Сохранить изменения в указано значение Всех документов (Normal.dotm).
Чтобы запускать макрос нажатием кнопки, выберите пункт Кнопка.
Щелкните новый макрос (у него будет имя примерно следующего вида: Normal.NewMacros.<имя вашего макроса>), а затем нажмите кнопку Добавить.
Нажмите кнопку Изменить.
Выберите изображение для кнопки, введите нужное имя и дважды нажмите OK.
Теперь необходимо записать все шаги макроса. Выбирайте команды или нажимайте клавиши для каждого шага задачи. Word будет записывать все, что вы щелкаете мышью, и все клавиши, которые вы нажимаете.

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

На панели быстрого доступа появится кнопка для вашего макроса.

Чтобы запустить макрос, нажмите эту кнопку.

В меню Вид последовательно выберите пункты Макросы и Записать макрос.
Введите имя макроса.
Чтобы использовать этот макрос во всех новых документах, проверьте, что в поле Сохранить изменения в указано значение Всех документов (Normal.dotm).
Чтобы запускать макрос с помощью сочетания клавиш, выберите пункт Клавиатура.
Введите сочетание клавиш в поле Новое сочетание клавиш.
Проверьте, не назначено ли такое же сочетание клавиш какой-либо другой команде. Если такое сочетание клавиш назначено какой-либо другой команде, то попробуйте использовать другое сочетание клавиш.
Чтобы использовать этот макрос во всех новых документах, проверьте, что в поле Сохранить в указано значение Normal.dotm.
Нажмите кнопку Назначить.
Теперь необходимо записать все шаги макроса. Выбирайте команды или нажимайте клавиши для каждого шага задачи. Word будет записывать все, что вы щелкаете мышью, и все клавиши, которые вы нажимаете.

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

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

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

В меню Вид последовательно выберите пункты Макросы и Просмотр макросов.
В пункте Имя макроса выберите в списке макрос, который вы хотите запустить.
Нажмите кнопку Запустить.

Чтобы сделать макрос в одном документе доступным во всех новых документах, добавьте его в шаблон Normal.dotm.

Откройте документ, в котором содержится макрос.
В меню Вид последовательно выберите пункты Макросы и Просмотр макросов.
Нажмите кнопку Организатор.
Щелкните макрос, который вы хотите добавить в шаблон Normal.dotm, а затем нажмите кнопку Копировать.

В меню Файл последовательно выберите пункты Параметры и Настроить ленту.
В пункте Выбрать команды из выберите пункт Макросы.
Выберите нужный макрос.
В пункте Настройка ленты выберите вкладку и настраиваемую группу, в которую вы хотите добавить макрос.

Если у вас нет настраиваемой группы, то нажмите кнопку Новая группа. Затем нажмите кнопку Переименовать и введите имя настраиваемой группы.

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

На вкладке Разработчик в группе Код нажмите кнопку Макросы.
В поле Имя макроса введите имя нового макроса.

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

Чтобы макрос был доступен во всех документах, выберите Normal.dotm.
Нажмите кнопку Создать, чтобы вызвать редактор Visual Basic.

После запуска редактора Visual Basic могут потребоваться дополнительные сведения о работе с языком Visual Basic для приложений. Для получения сведений выберите в меню Help (Справка) пункт Microsoft Visual Basic Help (Справка по Microsoft Visual Basic) или нажмите клавишу F1.

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

Примечание: Чтобы работать с макросами в приложении Office Word 2007, необходимо отобразить вкладку Разработчик.

Нажмите кнопку Microsoft Office , а затем — Параметры Word.
Выберите категорию Основные.
В группе Основные параметры работы с Word установите флажок Показывать вкладку «Разработчик» на ленте.

Примечание: Лента входит в Пользовательский интерфейс Microsoft Office Fluent.

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

Примечание: Если новому макросу присвоить то же самое имя, что и макросу, встроенному в Office Word 2007, новые макрокоманды будут выполняться вместо встроенных. Чтобы просмотреть список встроенных макросов, на вкладке Разработчик в группе Код нажмите кнопку Макросы. В списке Макросы из выберите вариант Команды Word.
В списке Макрос доступен для щелкните шаблон или документ, в котором нужно сохранить макрос.

Важно: Чтобы макрос был доступен во всех документах, выберите Normal.dotm.
Введите описание макроса в поле Описание.
Выполните одно из указанных ниже действий.
- Начните запись. Чтобы начать запись макроса, не связывая его с кнопкой на панели быстрого доступа или сочетанием клавиш, нажмите кнопку ОК.
- Создайте кнопку. Чтобы связать макрос с кнопкой на панели быстрого доступа, сделайте следующее:
  1. Щелкните кнопке.
  2. В группе Настройка панели быстрого доступа выберите документ или все документы, для которых требуется добавить макрос на панель быстрого доступа.
    
    Важно: Чтобы макрос был доступен во всех документах, выберите Normal.dotm.
  3. В диалоговом окне Выбрать команды из выберите макрос, который требуется записать, и нажмите кнопку Добавить.
  4. Чтобы настроить кнопку, нажмите кнопку Изменить.
  5. В поле Символ выберите нужный символ для кнопки.
  6. В поле Отображаемое имя введите имя макроса, которое должно отображаться.
  7. Чтобы начать запись макроса, нажмите кнопку ОК два раза.
    
    На панели быстрого доступа будет показан выбранный символ. Заданное имя отображается при наведении указателя на символ.
- Назначьте сочетание клавиш. Чтобы назначить макросу сочетание клавиш, сделайте следующее:
  1. Выберите пункт Клавиатура.
  2. В списке Команды выберите макрос, который требуется записать.
  3. В поле Новое сочетание клавиш введите любую последовательность клавиш и нажмите кнопку Назначить.
  4. Чтобы начать запись макроса, нажмите кнопку Закрыть.
Выполните действия, которые следует включить в макрос.

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

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

Нажмите кнопку Microsoft Office , а затем — Параметры Word.
Выберите команду Настройка .
Рядом с полем Сочетания клавиш нажмите Настройка.
В списке Категории выберите пункт Макросы.
В списке Макросы выберите макрос, который нужно изменить.
Щелкните поле Новое сочетание клавиш и нажмите клавиши, которые следует назначить.
В поле Текущие сочетания проверьте, не используется ли назначаемое сочетание для выполнения другой задачи.
В списке Сохранить изменения в выберите вариант, который соответствует месту, в котором должен запускаться макрос.

Важно: Чтобы макрос был доступен во всех документах, выберите Normal.dotm.
Нажмите кнопку Закрыть.

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

На вкладке Разработчик в группе Код нажмите кнопку Макросы.
В поле Имя макроса введите имя нового макроса.

Примечание: Если новому макросу присвоить то же самое имя, что и макросу, встроенному в Office Word 2007, новые макрокоманды будут выполняться вместо встроенных. Чтобы просмотреть список встроенных макросов, выберите пункт Команды Word в списке Макросы из.
В списке Макросы из щелкните шаблон или документ, в котором нужно сохранить макрос.

Чтобы макрос был доступен во всех документах, выберите Normal.dotm.
Нажмите кнопку Создать, чтобы вызвать редактор Visual Basic.

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

Если у вас есть Word, нажмите кнопку Открыть в Word, чтобы открыть документ в Word.

Затем следуйте инструкциям для классических версий Word.

Если вы запустите макрос в Word и сохраните документ, вы увидите результаты работы макроса при повторном открытии документа в Word в Интернете.

Нужна дополнительная помощь?

Источник

Содержание

Области использования макросов:
Включение макросов
Запись макросов
Изменение комбинаций клавиш для макроса
Запуск макроса
Создание нового макроса
Вопросы и ответы

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

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

3. Упрощение доступа к некоторым параметрам и инструментам, расположенным в различных диалоговых окнах программы.

4. Автоматизация сложных последовательностей действий.

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

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

1. Откройте меню “Файл” (кнопка “Microsoft Office” ранее).

2. Выберите пункт “Параметры” (ранее “Параметры Word”).

4. Установите галочку напротив пункта “Показывать вкладку “Разработчик” на ленте”.

5. На панели управления появится вкладка “Разработчик”, в которой и будет находиться пункт “Макросы”.

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

2. Задайте имя для создаваемого макроса.

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

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

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

5. Выполните одно из действий, указанных ниже:

Начните запись — чтобы приступить к началу записи макроса, не связывая его при этом с кнопкой на панели управления или комбинацией клавиш, нажмите “ОК”.

Создайте кнопку — чтобы связать создаваемый макрос с кнопкой, расположенной на панели управления, выполните следующее:

Нажмите “кнопке”;

Выберите документ или документы, в которых требуется добавить создаваемый макрос на панель быстрого доступа (раздел “Настройка панели быстрого доступа”);

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

Если вы хотите настроить эту кнопку, нажмите “Изменить”;

Выберите подходящий символ для создаваемой кнопки в поле “Символ”;

Введите имя макроса, которое будет отображаться в дальнейшем в поле “Отображаемое имя”;

Для начала записи макроса дважды кликните по кнопке “ОК”.

Кликните по кнопке “Клавишами” (ранее “Клавиатура”);

В разделе “Команды” выберите макрос, который необходимо записать;

В разделе “Новое сочетание клавиш” введите любую удобную для вас комбинацию, после чего нажмите кнопку “Назначить”;

Для начала записи макроса нажмите “Закрыть”.

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

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

Урок: Горячие клавиши в Ворде

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

1. Откройте окно “Параметры” (меню “Файл” или кнопка “MS Office”).

2. Выберите пункт “Настройка”.

3. Нажмите на кнопку “Настройка”, расположенную рядом с полем “Сочетание клавиш”.

4. В разделе “Категории” выберите “Макросы”.

5. В открывшемся списке выберите макрос, который необходимо изменить.

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

9. Нажмите “Закрыть”.

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

2. Выберите макрос, который хотите запустить (список “Имя макроса”).

3. Нажмите “Выполнить”.

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

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

2. Задайте имя для нового макроса в соответствующем поле.

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

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

Источник

Разбивка на слоги

Признаюсь, всё, что касается применения программ к языку, словам, речи, отпугивает меня своей сложностью. Я считаю, что мне это пока что не под силу. Так было и в этот раз, когда на форуме я увидел тему о расстановке переносов. При обсуждении упомянули алгоритм Ляна-Кнута, суть которого состоит в определении набора правил переноса (шаблонов) и применения этих шаблонов к словам. Я нашёл упрощённый вариант этого алгоритма, который подкупает простотой и ясностью.
Итак, каждое слово представляется как набор из трёх видов букв: гласных (g), согласных (s) и букв й, ь, ъ (x). Например, слово «семейство» будет выглядеть как «sgsgxsssg». Для такого упрощённого представления слова можно сформулировать несколько правил переноса (я реализовал 19):

«gssssg» → «gs-sssg», как в слове «чув-ствовать»
«gsssg» → «gss-sg», как в слове «шест-надцать»
«sgsssg» → «sgsssg», как в слове «откры-вать»
«gssxg» → «gs-sxg», как в слове «счас-тье«
«xgsg» → «xgsg», как в слове «кой-ка«
«xgg» → «xgg», как в слове «?»
«gssg» → «gs-sg», как в слове «оловян-ный»
«sgsg» → «sg-sg», как в слове «пе-рестройка»
«sggg» → «sggg», как в слове «?»
«sggs» → «sggs», как в слове «?»
«xgsg» → «xg-sg», как в слове «йо-гурт»
«xss» → «xss», как в слове «?»
«sgxsg» → «sgx-sg», как в слове «Незнай-ка«
«gsg» → «g-sg», как в слове «а-бажур»
«sgg» → «sg-g», как в слове «си-яние»
«sgsssgx» → «sgsssgx», как в слове «пере-стройка»
«sgsxsg» → «sgsx-sg», как в слове «малень-кий»
«sgssg» → «sg-ssg», как в слове «за-крывать»
«sgxg» → «sg-xg», как в слове «ра-йон»

 1 
 2 
 3 
 4 
 5 
 6 
 7 
 8 
 9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
Public Type HyphenPair
    Pattern As String
    Position As Integer
End Type

Dim arHPairs() As HyphenPair
Private Const x As String = "йьъ"
Private Const g As String = "аеёиоуыэюяaeiouy"
Private Const s As String = "бвгджзклмнпрстфхцчшщbcdfghjklmnpqrstvwxz"

Public Function HyphenateWord(ByVal text As String, Optional Delimiter As String = "-", Optional DebugMode As Boolean = False) As String
    Dim i As Integer
    Dim sb As String
    Dim sText As String
    
    sText = StrConv(text, vbLowerCase)
    'Инициализация массива с шаблонами переноса
    Call Main
    
    'Формализация текста по шаблону xgs
    For i = 1 To Len(sText)
        If InStr(x, Mid(sText, i, 1)) <> 0 Then
            sb = sb & "x"
        ElseIf InStr(g, Mid(sText, i, 1)) <> 0 Then
            sb = sb & "g"
        ElseIf InStr(s, Mid(sText, i, 1)) <> 0 Then
            sb = sb & "s"
        End If
    Next
    
    Dim hp As HyphenPair 'Текущий шаблон переноса
    Dim index As Integer 'положение шаблона в формализованном тексте
    Dim actualindex As Integer 'положение переноса в реальном тексте
    Dim FirstMatchFound As Boolean 'Флаг найденного совпадения в формализованном тексте
    Dim patternsBuff As String 'Отладочный буфер для записи сработавших шаблонов
    
    Do
        Dim temp As Integer
        Dim hptemp As HyphenPair
        FirstMatchFound = False
        'Поиск совпадения с шаблоном,
        'расположенного ближе всего к началу формализованного текста
        For i = 0 To UBound(arHPairs)
            hptemp = arHPairs(i)
            temp = InStr(sb, hptemp.Pattern)
            'Поиск первого совпадения
            If Not FirstMatchFound Then
                FirstMatchFound = InStr(sb, hptemp.Pattern)
                index = temp
                hp = hptemp
            End If
            If FirstMatchFound And temp <> 0 Then
                If temp < index Then
                    index = temp
                    hp = hptemp
                ElseIf temp = index Then
                    'при равных индексах предпочтение отдаётся более длинному шаблону
                    If Len(hptemp.Pattern) > Len(hp.Pattern) Then
                        index = temp
                        hp = hptemp
                    End If
                End If
            End If
        Next i
        If index <> 0 Then
            actualindex = index + hp.Position
            'Расстановка переносов в шаблоне
            sb = Mid(sb, 1, actualindex - 1) & Delimiter & Mid(sb, actualindex)
            'Расстановка переносов в тексте
            sText = Mid(sText, 1, actualindex - 1) & Delimiter & Mid(sText, actualindex)
            'Запись сработавшего паттерна
            patternsBuff = patternsBuff & " " & hp.Pattern
        End If
    Loop Until index = 0
    HyphenateWord = sText & IIf(DebugMode, vbCr & patternsBuff, "")
End Function

Sub Main()
    Dim hp As HyphenPair
    ReDim arHPairs(18)
    With arHPairs(0): .Pattern = "gssssg": .Position = 2: End With 'чув-ствовать
    With arHPairs(1): .Pattern = "gsssg": .Position = 2: End With 'откры-вать
    With arHPairs(2): .Pattern = "sgsssg": .Position = 4: End With 'шест-надцать
    With arHPairs(3): .Pattern = "gssxg": .Position = 2: End With 'счас-тье
    With arHPairs(4): .Pattern = "xgsg": .Position = 2: End With 'кой-ка
    With arHPairs(5): .Pattern = "xgg": .Position = 1: End With '?
    With arHPairs(6): .Pattern = "gssg": .Position = 2: End With 'оловян-ный
    With arHPairs(7): .Pattern = "sgsg": .Position = 2: End With 'пе-рестройка
    With arHPairs(8): .Pattern = "sggg": .Position = 2: End With '?
    With arHPairs(9): .Pattern = "sggs": .Position = 2: End With '?
    With arHPairs(10): .Pattern = "xgsg": .Position = 2: End With 'йо-гурт
    With arHPairs(11): .Pattern = "xss": .Position = 1: End With '?
    With arHPairs(12): .Pattern = "sgxsg": .Position = 3: End With 'май-ка
    With arHPairs(13): .Pattern = "gsg": .Position = 1: End With 'а-бажур
    With arHPairs(14): .Pattern = "sgg": .Position = 2: End With 'си-яние
    With arHPairs(15): .Pattern = "sgsssgx": .Position = 2: End With 'пере-стройка
    With arHPairs(16): .Pattern = "sgsxsg": .Position = 4: End With 'малень-кий
    With arHPairs(17): .Pattern = "sgssg": .Position = 2: End With 'за-крывать
    With arHPairs(18): .Pattern = "sgxg": .Position = 2: End With 'ра-йон
End Sub

Теоретически, должно работать для английского и русского, но тонкую подгонку я делал только для русского языка.
Если найдёте слово (а оно есть и не одно), которое разбивается неправильно, — сообщите мне.

Кнопки управления окном на форме VBA

Стандартные средства не позволяют свернуть форму VBA или развернуть на весь экран. Но это можно сделать при помощи WinAPI

 1 
 2 
 3 
 4 
 5 
 6 
 7 
 8 
 9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_MAXIMIZEBOX = &H10000
Private Const GWL_STYLE = (-16)

Public Sub ChangeWindow(f As UserForm)
  Dim hwnd As Long
  Dim retval As Long
  hwnd = FindWindow("ThunderDFrame", f.Caption)
  If hwnd <> 0 Then
    retval = SetWindowLong(hwnd, GWL_STYLE, GetWindowLong(hwnd, GWL_STYLE) Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX)
  End If
  If retval = 0 Then MsgBox "Fail"
End Sub

 1 
 2 
 3 
Private Sub UserForm_Initialize()
  Call ChangeWindow(Me)
End Sub

Результат для формы из старого документа:

Измерение производительности макросов (улучшение)

Предыдущий способ измерения производительности макросов был основан на использовании объекта Timer. Сегодня я хочу поделиться более совершенным инструментом для этой задачи, использующим функции WinAPI. Как и в прошлый раз замер производительности реализован с помощью класса, имеющего два метода Run и StopCounter, соответственно для запуска и остановки счётчика. При запуске можно задать имя процедуры производительность которой измеряется или любой другой поясняющий текст. Результат выводится в ImmediateWindow.
Огромная благодарность пользователю karlex с форума bit.pirit за опубликованный код, на основе которого я сделал этот класс.

 1 
 2 
 3 
 4 
 5 
 6 
 7 
 8 
 9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
Option Explicit

'апи функция для получения значения счетчика
Private Declare Function QueryPerformanceCounter Lib "kernel32" (lpPerformanceCount As LARGE_INTEGER) As Long

'апи функция для получения значения частоты
Private Declare Function QueryPerformanceFrequency Lib "kernel32" (lpFrequency As LARGE_INTEGER) As Long

'апи функция для копирования области памяти
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

'структура для хранения 64-разрядного числа
Private Type LARGE_INTEGER
    LowPart As Long
    HighPart As Long
End Type

Dim T As Long, _
    liFrequency As LARGE_INTEGER, _
    liStart As LARGE_INTEGER, _
    liStop As LARGE_INTEGER
    
Dim cuFrequency As Currency, cuStart As Currency, cuStop As Currency

'Имя процедуры, вызвавшей счётчик
Private m_ProcName As String

'Состояние счётчика производительности
Private m_CounterEnabled As Boolean

Public Property Get Enabled() As Boolean
    Enabled = m_CounterEnabled
End Property

'Запуск счётчика производительности
Public Sub Run(Optional ByVal ProcName As String = "")
    m_CounterEnabled = QueryPerformanceFrequency(liFrequency) <> 0
    If m_CounterEnabled Then
        'конвертировать 64-разрядное число в тип currency
        cuFrequency = LargeIntToCurrency(liFrequency)
        
        'получить количество "тиков"
        QueryPerformanceCounter liStart
    Else
        Debug.Print "Ваше аппаратное обеспечение не поддерживает счетчик производительности высокой точности!"
    End If
     m_ProcName = ProcName
End Sub

'Остановка счётчика производительности
Public Sub StopCounter()
    If m_CounterEnabled Then
        'получить количество "тиков"
        QueryPerformanceCounter liStop
        
        'конвертировать 64-разрядное число в тип currency
        cuStart = LargeIntToCurrency(liStart)
        cuStop = LargeIntToCurrency(liStop)
        
        'вычислить как много времени затрачено, и показать результат
        DebugPrint CStr(Round((cuStop - cuStart) / cuFrequency, 10))
    End If
End Sub

Private Sub DebugPrint(ByVal CounterValue As String)
    Dim s As String
    If Len(m_ProcName) > 0 Then s = "Имя процедуры: " & m_ProcName & vbCr
    s = s & "Длительность: " & CounterValue & " секунд."
    Debug.Print s
End Sub

'функция для конвертирования 64-разрядного числа в тип currency
Private Function LargeIntToCurrency(liInput As LARGE_INTEGER) As Currency
          'копировать 8 байт из 64-разрядного в currency
    CopyMemory LargeIntToCurrency, liInput, LenB(liInput)
    
    'adjust it - хз =)
    LargeIntToCurrency = LargeIntToCurrency * 10000
End Function

Скачать модуль класса
Тест производительности перебора ячеек таблицы двумя разными способами: циклом For Each…Next и циклом Do Until…Loop

 1 
 2 
 3 
 4 
 5 
 6 
 7 
 8 
 9 
10 
11 
12 
13 
14 
15 
Sub test()
    Dim pc As New clPerformanceCounter
    Dim i As Integer
    Dim ocell As Cell
    pc.Run "Перебор ячеек циклом Do loop"
'    pc.Run "Перебор ячеек циклом For Each"
    Set ocell = ActiveDocument.Tables(1).Range.Cells(1)
    Do Until ocell Is Nothing
        Set ocell = ocell.Next
    Loop
'    For Each ocell In ActiveDocument.Tables(1).Range.Cells
'
'    Next
    pc.StopCounter
End Sub

Результат:

Имя процедуры: Перебор ячеек циклом For Each
Длительность: 0,1546585742 секунд.

Имя процедуры: Перебор ячеек циклом Do loop
Длительность: 0,1063016398 секунд.

Как получить системную иконку для определённого файла?

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

 1 
 2 
 3 
 4 
 5 
 6 
 7 
 8 
 9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
Option Explicit
Public Declare Function OleCreatePictureIndirect Lib "olepro32.dll" _
                        (lpPictDesc As PictDesc, _
                        riid As Guid, _
                        ByVal fPictureOwnsHandle As Long, _
                        ipic As IPicture) As Long
Public Declare Function ExtractAssociatedIcon Lib "shell32.dll" Alias "ExtractAssociatedIconA" _
                        (ByVal hInst As Long, _
                        ByVal lpIconPath As String, _
                        lpiIcon As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
                        (ByVal lpClassName As String, _
                        ByVal lpWindowName As String) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
                        (ByVal hwnd As Long, _
                        ByVal wMsg As Long, _
                        ByVal wParam As Long, _
                        ByVal lParam As Long) As Long
Public Declare Function DestroyIcon Lib "user32" (ByVal hIcon As Long) As Long

Public Const WM_SETICON = &H80

Private Type PictDesc
    cbSizeofStruct As Long
    picType As Long
    hImage As Long
    xExt As Long
    yExt As Long
End Type
Private Type Guid
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(0 To 7) As Byte
End Type
    
Public Function IconToPicture(ByVal hIcon As Long) As IPicture
    
    If hIcon = 0 Then Exit Function
        
    Dim oNewPic As IPicture
    Dim tPicConv As PictDesc
    Dim IGuid As Guid
    
    With tPicConv
       .cbSizeofStruct = Len(tPicConv)
       .picType = 3 'vbPicTypeIcon
       .hImage = hIcon
    End With
    
    ' Fill in magic IPicture GUID {7BF80980-BF32-101A-8BBB-00AA00300CAB}
    With IGuid
        .Data1 = &H7BF80980
        .Data2 = &HBF32
        .Data3 = &H101A
        .Data4(0) = &H8B
        .Data4(1) = &HBB
        .Data4(2) = &H0
        .Data4(3) = &HAA
        .Data4(4) = &H0
        .Data4(5) = &H30
        .Data4(6) = &HC
        .Data4(7) = &HAB
    End With
    OleCreatePictureIndirect tPicConv, IGuid, True, oNewPic
    
    Set IconToPicture = oNewPic
    DestroyIcon hIcon
End Function

 1 
 2 
 3 
 4 
 5 
 6 
 7 
 8 
 9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
Option Explicit

Dim hwnd As Long
Dim hIcon As Long

Private Sub CommandButton1_Click()
    If hwnd <> 0 Then
        hIcon = ExtractAssociatedIcon(hwnd, Application.ActiveDocument.FullName, 0)
        Image1.Picture = IconToPicture(hIcon)
    End If
End Sub

Private Sub CommandButton2_Click()
    If hwnd <> 0 Then
        hIcon = ExtractAssociatedIcon(hwnd, Application.ActiveDocument.FullName, 0)
        SendMessage hwnd, WM_SETICON, 0, hIcon
    End If
End Sub

Private Sub UserForm_Initialize()
    hwnd = FindWindow("ThunderDFrame", Me.Caption)
    Me.Caption = "&H" & Hex(hwnd)
End Sub

Документ с примером

Копирование кода поля в буфер обмена

Часто сталкиваясь с необходимостью копирования кодов полей из Word, я решил упростить себе процесс и, посоветовавшись с сетевым разумом, сделал себе простенький макрос:

 1 
 2 
 3 
 4 
 5 
 6 
 7 
 8 
 9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
Sub CopyFieldCodes()
    If Selection.Range.Fields.Count = 0 Then Exit Sub
    Dim bFld As Boolean
    
    bFld = ActiveWindow.View.ShowFieldCodes
    
    ActiveWindow.View.ShowFieldCodes = True
    Dim s As String
    s = Replace(Replace(Selection.Text, Chr(19), "{"), Chr(21), "}")
    Debug.Print s
    ActiveWindow.View.ShowFieldCodes = bFld
    On Error Resume Next
    Dim dobj As New DataObject
    dobj.SetText s
    dobj.PutInClipboard
    Set dobj = Nothing
    If Err.Number <> 0 Then
        MsgBox "Невозможно скопировать код в буфер обмена", vbOK + vbCritical, "Код поля в буфер"
    Else
        MsgBox "Код поля скопирован в буфер обмена", vbOK + vbInformation, "Код поля в буфер"
    End If
End Sub

Чтобы код работал, нужно подключить Microsoft Forms 2.0 Object Library через меню Tools>References…

Источник

Набор возможностей текстового редактора Microsoft Word действительно очень широк. С помощью этой программы можно решать множество задач, которые возникают при работе с текстовыми документами любой направленности, что и делает этот продукт таким популярным. В Word реализована даже небольшая среда для программирования, с помощью которой можно значительно облегчить себе работу. В самом редакторе это называется макрокомандой или, как называют чаще, макросом. К сожалению, многие пользователи избегают знакомства с эти инструментом, ошибочно полагая, что это что-то сложное и не особо нужное. В этой статье подробно рассмотрим, как создать макрос в Word, что это вообще такое и почему вы делали неправильно, не пользуясь макрокомандами. Давайте разбираться. Поехали!

Что это такое

Макрокоманда — это, по сути, небольшая программа, которая позволяет автоматизировать и облегчить работу с текстом. В большинстве продуктов Microsoft реализована функция, сохраняющая историю действий пользователя, наиболее часто используемые инструменты и прочее. Всё это можно перевести в формат команд, и вместо того, чтобы каждый раз делать одно и то же, вы просто нажмёте клавишу на клавиатуре, и Word всё сделает за вас. Удобно? Ещё бы! На самом деле, это совсем не сложно. Далее в статье по порядку о том, как создать макрос.

Макросы позволяют выполнять несколько основных функций. Они предназначены для реализации следующих задач:

Ускоряют часто выполняемые процедуры и операции внутри текстового редактора Word. Это относится к редактированию, форматированию и не только.
Объединяют несколько команд в цельное действие «от и до». Как пример, используя макрос, можно простыми движениями моментально вставить таблицу, которая будет иметь определённые заданные размеры, а также получит нужное число столбцов и строк.
Упрощают получение доступа к некоторым функциям и инструментам для работы с текстом, графиков и пр. При этом они могут располагаться в разных окнах и разделах программы.
Автоматизируют сложные последовательные операции и действия.

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

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

Алгоритм действий при создании команды следующий:

Определить порядок действий.
Выполнить.
Записать действия в макрос.

Например, вам нужно выделить жирным шрифтом часть текста в таблице. Для записи команды придётся использовать горячие клавиши — комбинации для каждого инструмента вы можете подсмотреть, наведя курсор на нужный инструмент.

Допустим, нужная вторая колонка. Перемещение между столбцами таблицы осуществляется при помощи клавиши «Tab». Вы нажимаете «Tab» необходимое количество раз, пока не дойдёте до нужной колонки. Затем, если вам нужно выделить часть содержимого ячейки, снимаете выделение, нажав стрелку влево. Далее выделим два слова из ячейки. Выполните комбинацию Ctrl+Shift и нажмите стрелку вправо дважды (либо столько раз, сколько слов необходимо выделить). И последний шаг — сделать выделенную область полужирной с помощью комбинации Ctrl+B.

Теперь, определившись с порядком действий, запишите макрокоманду. Для этого, перейдите на вкладку «Вид» и отыщите в панели инструментов кнопку «Макросы». Кликнув по ней, вы увидите маленькое меню, в котором нужно выбрать пункт «Записать макрос». В появившемся окне введите название для команды и нажмите на кнопку «Записать». Сразу после этого, возле курсора появится иконка с кассетой, свидетельствующая о том, что началась запись. Выполните чётко по порядку все необходимые действия (в этом примере для выделения полужирным шрифтом нескольких слов из ячейки таблицы). После того как вы всё сделали, нажмите на значок «Стоп» (квадратик) в нижней части окна программы. Всё, макрос готов.

Как записать макрос

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

Алгоритм действий можно представить в таком виде:

В зависимости от того, какая версия текстового редактора Word используется, откройте вкладку «Разработчик» или «Вид», где располагается кнопка «Макросы». Нужно просто кликнуть по пункту «Запись макроса».
У каждого макроса должно быть своё имя. Его можно задать сугубо на собственное усмотрение. Это на его функциональность никак влиять не будет.
Если дать макросу точно такое же имя, как и у стандартных макросов в программе Word, он будет выполнять его функции вместо основного. Поэтому не поленитесь заглянуть в меню «Макросы» и открыть раздел «Команды Word». Здесь прописаны все стандартные названия.
В строке, которая называется «Макрос доступен для» нужно выбрать, для чего именно он будет доступен.
В графу с описанием нужно ввести собственное описание создаваемого макроса.
Далее можно кликнуть на «Начните запись», либо же «Создайте кнопку». В первом случае запись макроса начнётся без его привязки к кнопке на панели управления или клавиатуре. Во втором макросу будет задана соответствующая клавиша или кнопка.
Добавьте один или несколько документов, куда следует добавить новый макрос. Это делается через «Параметры Word» во вкладке «Панель быстрого доступа».
В левом окне выберите нужный макрос для записи и кликните по кнопке «Добавить».
Для изменения настроек этой кнопки всегда есть возможность кликнуть на «Изменить».
Далее выбирайте символ, который хотите использовать для кнопки.
Укажите имя. Именно оно будет затем отображаться в соответствующем поле.
Дважды кликните ОК, чтобы начать запись макроса.
Когда потребуется остановить запись, жмите соответствующую клавишу в меню «Макросы».

Записанный макрос в дальнейшем можно будет использовать на своё усмотрение.

Использование макросов

Как же всё это использовать? А очень просто: в панели инструментов нажмите кнопку «Макросы» и одноимённый пункт в появившемся меню — перед вами откроется список всех макросов. Выберите сохранённый вами и нажмите «Выполнить». Существует более удобный вариант — создать специальную кнопку в панели инструментов. Делается это следующим образом: перейдите в меню «Файл», затем «Параметры» и кликните по пункту «Панель быстрого доступа». В разделе «Выбрать команды из:» укажите «Макросы» и выберите из них требуемый. После этого кликните по кнопке «Добавить». Также вы можете назначить иконку, которая будет отображаться для этой кнопки. Готово. В ленте инструментов появится соответствующая иконка, нажатием на которую вы запустите записанный вами алгоритм действий.

Создать макрокоманду можно практически для чего угодно. Можно изменять абзацный отступ, межстрочные интервалы, выровнять области текста, выполнить расчёт заданных значений, или настроить автоматическое заполнение таблицы. Нажмите «Записать макрос» и кликайте мышкой, вызывая соответствующие меню и задавая необходимые значения. Только не выделяйте текст мышкой, для этого лучше использовать горячие клавиши или специальный инструмент программы. Как только всё будет сделано, остановите запись.

Подобные команды могут содержать любое количество шагов и быть любого уровня сложности. Процесс создания макрокоманд одинаковый и для Word 2007, и для Word 2010, и для версии Word 2013.

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

Источник