Как найти и выделить повторяющиеся абзацы в документе Word?
Предположим, у вас есть большой документ Word, который может содержать сотни страниц, теперь вы хотите проверить, есть ли повторяющиеся абзацы, а затем выделить их, чтобы сделать их выдающимися, чтобы вы могли иметь дело с повторяющимися предложениями. Как быстро и легко найти и выделить повторяющиеся абзацы в документе Word?
Найдите и выделите повторяющиеся абзацы в документе Word с кодом VBA
Найдите и выделите повторяющиеся абзацы в документе Word с кодом VBA
Чтобы найти и выделить повторяющиеся абзацы в документе Word, следующий код VBA может оказать вам услугу, сделайте следующее:
1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
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 нажмите клавишу для запуска этого кода, все повторяющиеся предложения выделяются сразу, первые отображенные повторяющиеся абзацы выделяются зеленым цветом, а другие дубликаты выделяются желтым цветом, см. снимок экрана:
Лучшие инструменты для офисной работы
Kutools for Word - Повысьте свой опыт работы со словом с помощью Over 100 Замечательные особенности!
🤖 Kutools AI Помощник: Преобразуйте свое письмо с помощью искусственного интеллекта. Создать контент / Переписать текст / Обобщение документов / Запросить информацию на основе документа, все в Word
📘 Владение документами: Разделить страницы / Объединить документы / Экспортировать выбранное в различные форматы (PDF/TXT/DOC/HTML...) / Пакетное преобразование в PDF / Экспортировать страницы как изображения / Печать нескольких файлов одновременно...
✏ Редактирование содержания: Пакетный поиск и замена через несколько файлов / Изменить размер всех изображений / Транспонировать строки и столбцы таблицы / Преобразовать таблицу в текст...
🧹 Легкая очистка: Убрать Дополнительные места / Разрывы разделов / Все заголовки / Текстовые поля / Гиперссылки / Чтобы получить дополнительные инструменты для удаления, посетите наш Удалить группу...
➕ Креативные вставки: Вставлять Разделители тысяч / Флажки / радио кнопки / QR код / Штрих-код / Таблица диагональных линий / Заголовок уравнения / Заголовок изображения / Заголовок таблицы / Несколько изображений / Узнайте больше в Вставить группу...
???? Точный выбор: Точно определить конкретные страницы / Эта таблица / формы / заголовки абзацев / Улучшите навигацию с помощью БОЛЕЕ Выберите функции...
⭐ Звездные улучшения: Быстро перемещайтесь в любое место / автоматическая вставка повторяющегося текста / плавно переключаться между окнами документов / 11 инструментов преобразования...