Макрос для замены текста в word

Обновлено: 07.07.2024

В этом разделе Visual Basic примеры, связанные с задачами, которые определены в следующих разделах.

Сведения о других задачах редактирования и примеры из них см. в следующих темах:

Определение выбора текста

Обрушение выбора или диапазона

Используйте метод Collapse, чтобы свернуть объект Selection или объект Range до его точки начала или окончания. В следующем примере выбор сводится к точке вставки в начале выбора.

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

Расширение выбора или диапазона

В следующем примере используется MoveEnd].. /.. /.. /api/Word.Selection.MoveEnd.md) метод объекта Selection, чтобы расширить конец выбора, чтобы включить три дополнительных слова. MoveLeft, * MoveRight].. /.. /.. /api/Word.Selection.MoveRight.md), ** MoveUp](.. /.. /.. /api/Word.Selection.MoveUp.md) и **Down также можно использовать для расширения объекта иона **Se.

В следующем примере используется MoveEnd].. /.. /.. /api/Word.Range.MoveEnd.md) метод объекта Range для расширения диапазона, чтобы включить первые три абзаца в активный документ.

Переопределение выбора или диапазона

Используйте метод GetRange для переопределения существующего объекта Selection или объекта Range. Дополнительные сведения см. в дополнительных сведениях "Работа с объектом Selection" или "Работа с объектами Диапазона".

Изменение текста

Можно изменить существующий текст, изменив содержимое диапазона. Следующая инструкция изменяет первое слово в активном документе, установив Текст].. /.. /.. /api/Word.Range.Text.md) свойства объекта nge на "The".

Вы также можете использовать метод Delete, объект Selection или объект Range для удаления существующего текста, а затем вставить новый текст с помощью метода InsertAfter или метода InertBefore. В следующем примере удаляется первый абзац в активном документе и вставляется новый текст.

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

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

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

Запись макроса, который запускается с помощью кнопки

В меню Вид последовательно выберите пункты Макросы и Записать макрос.

Введите имя макроса.

Чтобы использовать этот макрос во всех новых документах, проверьте, что в поле Сохранить изменения в указано значение Всех документов (Normal.dotm).

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

Щелкните новый макрос (у него будет имя примерно следующего вида: Normal.NewMacros.<имя вашего макроса>), а затем нажмите кнопку Добавить.

Выберите изображение для кнопки, введите нужное имя и дважды нажмите OK.

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

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

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

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

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

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

В меню Вид последовательно выберите пункты Макросы и Записать макрос.

Введите имя макроса.

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

Введите сочетание клавиш в поле Новое сочетание клавиш.

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

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

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

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

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

В меню Вид последовательно выберите пункты Макросы и Просмотр макросов.

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

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

Откройте документ, в котором содержится макрос.

В меню Вид последовательно выберите пункты Макросы и Просмотр макросов.

Щелкните макрос, который вы хотите добавить в шаблон Normal.dotm, а затем нажмите кнопку Копировать.

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

В пункте Выбрать команды из выберите пункт Макросы.

Выберите нужный макрос.

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

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

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

Дважды нажмите кнопку OK.

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

В поле Имя макроса введите имя нового макроса.

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

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

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

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

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

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

Выберите категорию Основные.

В группе Основные параметры работы с Word установите флажок Показывать вкладку "Разработчик" на ленте.

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

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

В поле Имя макроса введите имя нового макроса.

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

В списке Макрос доступен для щелкните шаблон или документ, в котором нужно сохранить макрос.

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

Введите описание макроса в поле Описание.

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

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

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

Щелкните кнопке.

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

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

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

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

В поле Символ выберите нужный символ для кнопки.

В поле Отображаемое имя введите имя макроса, которое должно отображаться.

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

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

Назначьте сочетание клавиш. Чтобы назначить макросу сочетание клавиш, сделайте следующее:

Выберите пункт Клавиатура.

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

В поле Новое сочетание клавиш введите любую последовательность клавиш и нажмите кнопку Назначить.

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

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

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

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

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

Выберите команду Настройка .

Рядом с полем Сочетания клавиш нажмите Настройка.

В списке Категории выберите пункт Макросы.

В списке Макросы выберите макрос, который нужно изменить.

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

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

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

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

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

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

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

В поле Имя макроса введите имя нового макроса.

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

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

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

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

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

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

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

Поиск и замена выставлены объектами Поиска и Замены. Объект Find доступен в объекте Selection и объекте Range. Действие поиска немного отличается в зависимости от того, имеется ли доступ к объекту Find из объекта Selection или объекта Range.

Поиск текста и его выбор

Если объект Find имеет доступ к объекту Selection, выбор меняется при обнаружении критериев поиска. В следующем примере выбирается следующее появление слова "Hello". Если конец документа достигнут до того, как будет найдено слово "Hello", поиск будет остановлен.

Объект Find содержит свойства, которые относятся к параметрам в диалоговом окне Найти и заменить. Можно установить отдельные свойства объекта Find или использовать аргументы с методом Execute, как показано в следующем примере.

Поиск текста без изменения выбора

Если объект Find имеет доступ к объекту Range, выбор не меняется, но диапазон переопределяется при обнаружении критериев поиска. В следующем примере обнаруживается первое появление слова "синий" в активном документе. Если операция поиска будет успешной, диапазон будет переопределяться и к слову "синий" применяется смелый форматирование.

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

Использование объекта Replacement

Объект Replacement представляет критерии замены для операции поиска и замены. Свойства и методы объекта Replacement соответствуют параметрам в диалоговом окне Найти и заменить (Изменить меню).

Объект Replacement доступен в объекте Find. В следующем примере все вхождения слова "привет" заменяется на "hello". Выбор изменяется при обнаружении критериев поиска, так как объект Find имеет доступ к объекту Selection.

В следующем примере удаляется жирный форматирование в активном документе. Свойство Bold — true для объекта Find и False для объекта Replacement. Чтобы найти и заменить форматирование, установите поиск и замените текст пустыми строками ("") и установите аргумент Format метода Execute к True. Выбор остается неизменным, так как объект Find имеет доступ к объекту Range (свойство Content возвращает объект Range).

Поддержка и обратная связь

Имеется большое количество документов Word или Excel и в каждом документе нужно изменить несколько фраз. В каждом документе через замену (Найти и заменить ) это слишком долго.

a) для Microsoft Excel:
Скопировать макрос в папку с файлами, запустить макрос, задать условия замены, заключая их в кавычки. выбрать любой файл из папки.

б) для Microsoft Word:
Создать новый документ Word , открыть редактор Microsoft VBA , добавить новый модуль, скопировать текст процедуры ниже. О том как создать макрос более подробно написано здесь. При выполнении макроса нужно выбрать файлы, данные в которых подлежат замене:

Что изменить и на что изменить прописывается в теле макроса:
что_заменить = "123"
чем_заменить = "1234"

Для документов Word подойдет @Text Replacer - бecплaтнaя пpoгpaммa для быcтpoгo пoиcкa и зaмeны тeкcтa в фaйлax из выбpaннoй пaпки и влoжeнныx пoдпaпoк. Работает с дoкумeнтaми тeкcтoвoгo peдaктopa Word: *.doc, *.docx, *.rtf , фaйлaми тeкcтoвoгo фopмaтa: *.txt, *.ini, *.html, *.php и дp., paбoтa c кoтopыми вoзмoжнa чepeз cтaндapтный Блoкнoт Windows . Вce фaйлы дpугиx типoв oбpaбaтывaютcя пpoгpaммoй кaк тeкcтoвыe.

Пpoгpaммoй пoддepживaeтcя пoиcк и зaмeнa мнoгocтpoчныx фpaгмeнтoв тeкcтa c учeтoм peгиcтpa и игнopиpуeмыx cимвoлoв - тaкиx кaк пpoбeлы и пepeвoды cтpoки (windows / *nix) . Программа бесплатная, скачать можно по ссылке с официального сайта программы

Не пробуйте @Text Replacer для документов Excel – программа их портит!

Для документов Excel попробуйте FireBall.exe – небольшую программу, не требующую установки. Файлы Excel необходимо скопировать в папку с FireBall.exe .

Читайте также: