Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.philol.msu.ru/~yegorov/macro/?st=1
Дата изменения: Unknown
Дата индексирования: Mon Feb 4 13:06:17 2013
Кодировка: Windows-1251
Полезные макросы для MS Word 98/2000
На главную страницу   На домашнюю страницу автора
Примечание
1. Что? Зачем?
2. Как внедрить макрос и назначить его выполнение клавиатуре?
3. Преобразование из ASCII в UNICODE и обратно
4. Увеличение / уменьшение межбуквенного интервала выделенного текста
5. Увеличение / уменьшение растояния между абзацами
6. Увеличение / уменьшение межстрочного интервала
7. Последний предлог в строке
8. Первый дефис в строке
9. Создание вхождения указателя
10. Поиск "ц" и "ч", после которых следует точка или запятая
11. Удалить гиперссылку
12. Вставка элемента оглавления
13. Поменять дефис между цифрами на тире
14. Поставить препинание после сноски
15. Удаление пробела перед знаком сноски
16. Поиск инициалов при фамилии и вставка неразравных пробелов
17. Вспомогательные функции

Как внедрить макрос и назначить его выполнение клавиатуре?

Внедрить

Для внедрения текста макроса с этого сайта в Word надо проделать следующие действия:

  • Выделите текст макроса мышкой (текст макроса отображается шрифтом Courier) и поместите его в буфер обмена (Ctrl+C).
  • Переключитесь в MS Word, откройте окно разработки макросов на Visual Basic, как это было показано в предыдущем разделе (Alt+F11).
  • Если вы предварительно не записывали макрос, необходимо всавить новый модуль в шаблон "Normal". Для этого выберите в окне "Project" слово "Normal", затем выберите меню "Insert" и подменю "Module". После этого в ваш проект вставиться новый модуль под именем "Module1", а в окне справа появится новое окно с заголовком "Normal - Module1 (Code)". В это окно и надо вставить текст макроса. Если вы уже производили запись макроса, как было показано в предыдущем разделе, текст макроса можно вставить в модуль под названием "NewMacros".
  • Для всавки текста макроса теперь нажмите Ctrl+V, после этого вы увидите текст макроса.
Если в тексте макроса используются вспомогательные функции, то их необходимо также скопировать в модуль.
Назначить

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

  • Переключитесь в Word.
  • Выберите меню "Сервис" -> "Настройка". В окне "Настройка" нажмите кнопку "Клавиатура...".
  • В списке "Категории" найдите слово "Макросы".
  • В списке "Макросы:" найдите макрос, которому надо присвоить сочетание клавиш.
  • Щелкните мышью в окне "Новое сочетание клавиш:" и после этого нажмите сочетание клавиш, которое вы хотите присвоить для выполнение данного макроса. Например, для макроса Ascii2Unicode удобно назначить сочетание "Alt+Ctrl+C", так как преобразованный текст хранится в буфере обмена.
  • Нажмите клавишу "Назначить", после чего сочетание клавиш появится в списке "Текущие сочетания клавиш".
  • Наконец, закрываем окно "Настройка клавиатуры" и "Настройка".

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