KutoolsforOffice — Одно решение — пять мощных инструментов.Меньше усилий — больше результата.

Поиск и замена тексты в основном тексте, верхних и нижних колонтитулах документа Word

АвторSiluviaДата изменения

Обычно функция «Найти и заменить» позволяет одновременно искать и заменять определённый текст в основном содержимом документа Word, а также в его верхних и нижних колонтитулах. А пробовали ли вы когда-нибудь выполнять поиск и замену текста только в колонтитулах? Или искать и заменять сразу несколько разных фрагментов текста в одном документе Word или даже в нескольких документах одновременно? В этом руководстве описаны способы решения именно таких задач.

Выполнить Поиск и замена одного и того же текста в документе Word с помощью функции Поиск и замена
Выполнить Поиск и замена одного и того же текста только в колонтитулах с помощью кода VBA
Выполнить Поиск и замена разных текстов одновременно с помощью мощной функции

Выполнить Поиск и замена одного и того же текста в документе Word с помощью функции Поиск и замена

Воспользоваться функцией «Найти и заменить» в документе Word очень просто.

1. Откройте документ, содержащий слова, которые нужно заменить, и одновременно нажмите клавиши Ctrl+H, чтобы открыть диалоговое окно Поиск и замена.

2. В диалоговом окне Поиск и замена на вкладке Заменить введите искомый текст «Старый текст» и текст для замены «Новый текст» соответственно в поля Найти и Заменить на, затем нажмите кнопку Заменить все. См. скриншот:

Диалоговое окно «Найти и заменить» с отображаемой вкладкой «Заменить»

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

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

Диалоговое окно успешного завершения

Выполнить Поиск и замена одного и того же текста только в колонтитулах с помощью кода VBA

Если вы хотите выполнить поиск и замену только в верхних и нижних колонтитулах документа, воспользуйтесь методом, описанным в этом разделе.

1. Откройте документ, в колонтитулах которого нужно выполнить поиск и замену текста, и одновременно нажмите клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.

2. В окне Microsoft Visual Basic для приложений выберите Вставка > Модуль, затем скопируйте приведённый ниже код VBA в окно модуля.

Код VBA: Поиск и замена текст только в колонтитулах

Sub FindAndReplaceOfHeaderAndFooter()
'Update by Extendoffice 20190805
    Dim xDoc As Document
    Dim xSelection As Selection
    Dim xSec As Section
    Dim xHeader As HeaderFooter
Dim xFooter As HeaderFooter
On Error Resume Next
    Set xDoc = Application.ActiveDocument
    For Each xSec In xDoc.Sections
        For Each xHeader In xSec.Headers
            xHeader.Range.Select
            Set xSelection = xDoc.Application.Selection
            With xSelection.Find
                .Text = "I've found header text" 'Enter the old header text here!
               .Replacement.Text = "I've found header text" 'Enter the new header text here!
                .Wrap = wdFindContinue
                .Execute Replace:=wdReplaceAll
            End With
        Next xHeader
        For Each xFooter In xSec.Footers
            xFooter.Range.Select
            Set xSelection = xDoc.Application.Selection
            With xSelection.Find
                .Text = "I've found footer text" 'Enter the old footer text here!
                .Replacement.Text = "I've found footer text" 'Enter the old footer text here!
                .Wrap = wdFindContinue
                .Execute Replace:=wdReplaceAll
            End With
        Next xFooter
    Next xSec
    xDoc.ActiveWindow.ActivePane.Close
    If xDoc.ActiveWindow.View.SplitSpecial = wdPaneNone Then
        xDoc.ActiveWindow.View.Type = wdPrintView
    Else
        xDoc.ActiveWindow.View.Type = wdPrintView
    End If
    xDoc.Activate
End Sub

Примечание: В коде замените «Найти текст в верхнем колонтитуле» и «Найти текст в нижнем колонтитуле» на тексты, которые нужно найти в колонтитулах, а также замените «Найден текст в верхнем колонтитуле» и «Найден текст в нижнем колонтитуле» на новые тексты для верхнего и нижнего колонтитулов соответственно.

3. Нажмите клавишу F5, чтобы запустить код. После этого указанные тексты в колонтитулах будут заменены на новый текст.

Выполнить Поиск и замена разных текстов одновременно с помощью мощной функции

Функция Пакетный поиск и замена из Kutools для Word позволяет легко выполнять поиск и замену различных текстов в одном документе или сразу в нескольких документах.

Перед использованием этой функции потратьте несколько минут, чтобы сначала загрузить и установить её.

1. Запустите приложение Microsoft Word и нажмите KUTOOLS PLUS > Пакетный поиск и замена.

Кнопка «Пакетный поиск и замена» на вкладке Kutools Plus на ленте

2. В окне Пакетный поиск и замена выполните следующие действия.

  • 2,1 Нажмите кнопку Окно «Пакетный поиск и замена» с выделенной кнопкой «Добавить» Добавить файл или Добавить папку, чтобы добавить документы, в которых необходимо выполнить поиск и замену текста.
    Окно «Пакетный поиск и замена» с выделенной кнопкой «Добавить»
  • 2,2 Нажмите кнопку Добавить строку, чтобы добавить поля Поиск и замена. Если вам нужно одновременно выполнить поиск и замену для трёх разных текстов — создайте три строки.
  • 2,3 В каждую строку введите исходный текст, который нужно заменить, в столбец Найти, а затем — новый текст в столбец Заменить.
  • 2,4 Укажите Тип поиска для каждой строки.
  • 2,5 В столбце Найти в выберите, где применять поиск и замену. Доступные варианты: Основной документ, Колонтитул (верхний) и Колонтитул (нижний). Вы можете выбрать один, два или все варианты — в зависимости от ваших задач.
  • 2,6. Нажмите кнопку Заменить, чтобы запустить операцию. См. скриншот:

Окно «Пакетный поиск и замена»

Теперь все указанные тексты заменены во всех выбранных документах.

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

Хотите быстрее справляться с похожими задачами в Word? Попробуйте Kutools для Word и сделайте свою повседневную работу проще!

СкачатьПодробнее

Связанные статьи

Поиск и замена нескольких слов одновременно в документе Word
Word предлагает встроенную функцию «Найти и заменить», которая позволяет находить все вхождения слова или фразы и заменять их на новое слово за один раз. Однако если вам нужно выполнить поиск и замену сразу нескольких разных слов, стандартные средства не справятся. В этой статье описан метод на основе VBA, позволяющий заменять сразу несколько различных слов в документе Word.

Поиск и замена в нескольких файлах Word
У вас есть несколько десятков документов Word с одинаковым содержимым — например, колонтитулами, определёнными словами или числами — и нужно заменить его во всех сразу? Конечно, можно открывать файлы по одному и выполнять замену вручную, но это займёт уйму времени и изрядно утомит. В этом руководстве мы покажем эффективный способ заменить одинаковый текст сразу во всех документах Word.

Замена жёстких переносов на мягкие в Word
Хотите быстро отформатировать документ Word, заменив знаки абзаца (жёсткие переносы) на ручные разрывы строк (мягкие переносы)? В этом руководстве — несколько эффективных способов преобразовать жёсткие переносы в мягкие.

Замена мягких переносов на жёсткие в Word
Хотите привести документ Word в порядок, заменив ручные разрывы строк (мягкие переносы) на знаки абзаца (жёсткие переносы)? В этом руководстве вы найдёте несколько быстрых способов преобразовать мягкие переносы в жёсткие.

Лучшие инструменты для повышения продуктивности в Office

Kutools для Word — раскройте весь потенциал Word с помощью более чем 100 мощных функций!

🤖Функции KUTOOLS AI: AI Ассистент / Ассистент в реальном времени / Супер полировка (сохранить формат) / Супер перевод (сохранить формат) / Искусственный интеллект для редактирования / Проверка с помощью ИИ…

📘Мастерство работы с документами: Разделение страниц / Объединение документов / Экспорт выделенного фрагмента в различных форматах (PDF, TXT, DOC, HTML и др.) / Пакетное преобразование в PDF…

✏Редактирование содержимого: Пакетный поиск и замена в нескольких файлах / Изменение размера всех изображений / Транспонировать таблицу строк и столбцов / Преобразовать таблицу в текст…

🧹Легкая очистка: удалите лишние пробелы, разрывы разделов, текстовые поля и гиперссылки. Чтобы узнать больше об инструментах удаления, перейдите в группу Удалить…

➕Креативные вставки: вставляйте разделители разрядов, флажки, переключатели, QR-коды, штрихкоды и несколько изображений. Узнайте больше в группе Вставка…

🔍Точное выделение: выделяйте определённые страницы, таблицы, фигуры и абзацы заголовков — улучшите навигацию с помощью расширенных функций выделенияfeatures ……

⭐Звёздные улучшения: Переход к любому месту / Автоматическая вставка повторяющегося текста / Переключение между документами Windows / 11преобразования Инструменты…

🌍Поддержка более чем 40 языков: Используйте Kutools на предпочитаемом языке — доступны английский, испанский, немецкий, французский, китайский и ещё более 40 языков!

Вкладки Kutools for Word на ленте
 
 

Office Tab– Добавляет вкладки в Office и значительно упрощает вашу работу

  • Включите редактирование и чтение с вкладками в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в отдельных окнах.
  • Повышает продуктивность на 50 % и экономит сотни кликов мышью каждый день!

✨ Kutools for Office – Одна установка, пять мощных инструментов!

Включает в себя Office Tab Pro·Kutools для Excel·Kutools для Outlook·Kutools для Word·Kutools for PowerPoint

📦 Получите все 5 инструментов в одном пакете | 🔗 Бесшовная интеграция с Microsoft Office | ⚡ Экономия времени и мгновенно повысьте продуктивность

Лучшие инструменты для повышения продуктивности в Office

Kutools для Word– 100+ инструментов для Word

Бесплатно скачатьКупить сейчасПодробнее о Kutools