Как найти и выделить повторяющиеся абзацы в документе Word?
Предположим, у вас есть большой документ Word, который может содержать сотни страниц, и теперь вы хотите проверить, есть ли в нем повторяющиеся абзацы, а затем выделить их, чтобы они выделялись, для того чтобы вы могли обработать повторяющиеся предложения. Как можно быстро и легко найти и выделить повторяющиеся абзацы в документе Word?
Найти и выделить повторяющиеся абзацы в документе Word с помощью кода VBA
Найти и выделить повторяющиеся абзацы в документе Word с помощью кода VBA
Чтобы найти и выделить повторяющиеся абзацы в документе Word, следующий код VBA может помочь вам, пожалуйста, сделайте следующее:
1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. Затем нажмите Вставить > Модуль, скопируйте и вставьте приведенный ниже код в открытый пустой модуль:
Код VBA: Найти и выделить повторяющиеся абзацы в документе Word:
Sub highlightdup()
Dim I, J As Long
Dim xRngFind, xRng As Range
Dim xStrFind, xStr As String
Options.DefaultHighlightColorIndex = wdYellow
Application.ScreenUpdating = False
With ActiveDocument
For I = 1 To .Paragraphs.Count - 1
Set xRngFind = .Paragraphs(I).Range
If xRngFind.HighlightColorIndex <> wdYellow Then
For J = I + 1 To .Paragraphs.Count
Set xRng = .Paragraphs(J).Range
If xRngFind.Text = xRng.Text Then
xRngFind.HighlightColorIndex = wdBrightGreen
xRng.HighlightColorIndex = wdYellow
End If
Next
End If
Next
End With
End Sub
3. После этого нажмите клавишу F5, чтобы запустить этот код; все повторяющиеся предложения будут выделены одновременно. Первые найденные повторяющиеся абзацы будут выделены зеленым цветом, а остальные дубликаты — желтым цветом, см. скриншот:
Лучшие инструменты для повышения производительности в Office
Kutools для Word– улучшите свой опыт работы с Word с помощью более чем 100 выдающихся функций!
🤖 Возможности Kutools AI: AI Ассистент / Ассистент в Реальном Времени / Супер Полировка (с сохранением формата) / Супер Перевод (с сохранением формата) / Искусственный интеллект для редактирования / Проверка с помощью ИИ...
📘 Мастерство работы с документами: Разделить страницы / Объединить документы / Экспортировать выделенное в различных форматах (PDF/TXT/DOC/HTML...) / Пакетно преобразовать в PDF...
✏ Редактирование содержимого: Пакетный поиск и замена в нескольких файлах / Изменить размер всех изображений / Транспонировать строки и столбцы таблицы / Преобразовать таблицу в текст...
🧹 Лёгкая очистка: Удалите лишние пробелы / Разрывы разделов / текстовые поля / гиперссылки. Для других инструментов удаления перейдите в группу Удалить...
➕ Творческие вставки: Вставить разделитель разрядов / Флажки / Переключатели / QR-код / Штрихкод / Несколько изображений. Откройте больше возможностей в группе Вставить...
🔍 Точные выделения: Точно определяйте нужные страницы / таблицы / фигуры / абзацы заголовка. Улучшайте навигацию благодаря расширенным функциям Выбрать ...
⭐ Уникальные улучшения: Переходите к любому расположению / Автоматически вставляйте повторяющийся текст / Переключайтесь между окнами документа /11 инструментов преобразования...
🌍 Поддержка более40 языков: Используйте Kutools на удобном вам языке – поддерживаются английский, испанский, немецкий, французский, китайский и ещё более40 языков!

Лучшие инструменты для повышения производительности в Office
Kutools для Word – 100+ инструментов для Word
- 🤖 Возможности Kutools AI: AI Ассистент / Ассистент в Реальном Времени / Супер Полировка / Супер Перевод / Искусственный интеллект для редактирования / Проверка с помощью ИИ
- 📘 Мастерство работы с документами: Разделить страницы / Объединить документы / Пакетно преобразовать в PDF
- ✏ Редактирование содержимого: Пакетный поиск и замена / Изменить размер всех изображений
- 🧹 Лёгкая очистка: Удалить лишние пробелы / Удалить разрывы разделов
- ➕ Творческие вставки: Вставить разделитель разрядов / Вставить флажки / Создать QR-коды
- 🌍 Поддержка более40 языков: Kutools говорит на вашем языке – поддерживается более40 языков!