Как выделить одинаковые слова в ворде
Компьютерные шпаргалки от Константина Фёста
(основано на Windows 7 Максимальная и MS Office 2010)
Как выделять текст с одинаковым форматированием
Довольно часто возникает необходимость изменить оформление частей текста, которые уже имеют одинаковое форматирование.
Например, у вас в документе есть подзаголовки, которые выделены жирным, а вам нужно сделать их подчеркнутыми.
Неискушенный пользователь в таком случае начнет вручную пролистывать документ, искать в нем все эти подзаголовки, выделять каждый из них по-отдельности и менять его форматирование.
В Word’е есть много инструментов автоматизации, которые облегчают выполнение рутинных операций, но мало кто из пользователей знает об их существовании и умеет ими пользоваться.
Посмотрим, что создатели текстового редактора приготовили для описанного выше случая.
Это инструмент, который я называю «Выделение по формату». Его суть в том, что если вы укажете Ворду текст с определенным форматированием и примените этот инструмент, то будут найдены и выделены участки текста с аналогичным оформлением по всему документу. А уже после того как они выделены, вы можете одним махом изменить оформление всех этих частей текста.
Вот как это работает.
Находясь в документе, нужно установить курсор на какой-либо участок текста, который будет являться образцом. Именно части текста с таким оформлением программа нам выделит после применения инструмента.
Затем, находясь на вкладке меню «Главная», нужно нажать кнопку «Выделить» и выбрать там пункт «Выделить текст, имеющий такой же формат» (кликните на картинке, чтобы увеличить):
Вуаля! Все кусочки текста с совпадающим форматированием оказались выделены (красные стрелки):
Теперь не составит труда соответствующими кнопками убрать с них выделение жирным и включить подчеркивание (или любые другие свойства оформления).
Но у этого способа есть особенность, которую нужно понимать. Наверняка вы заметили, что некоторые части текста, которые тоже являются жирными, не были выделены в результате использования данной функции (зеленые стрелки).
Это произошло потому, что при поиске текста с форматированием как на образце, функция проверяет и другие параметры оформления (не только выделение жирным). Наш образец является маркированным списком, а части текста, которые не были выделены в результате применения инструмента, являются обычным текстом.
Желаю удачного использования этой полезной функции!
Пишите в комментариях какие еще вопросы и проблемы с Word’ом для Вас актуальны.
И не забывайте о возможности заказать видеокурс «Античайник», который делает из новичков уверенных пользователей компьютера:
А если вам понравилась шпаргалка, порекомендуйте ее друзьям с соцсетях, отправьте кому-нибудь по емейлу или распечатайте. Все это можно сделать с помощью следующих кнопок:
Подсчет одинаковых слов
Подсчитывает количество одинаковых слов в тексте. Может удалять повторяющиеся слова, выдает общее количество слов и количество уникальных слов.
По запросу повторяющиеся слова публикуем калькулятор, вычисляющий количество повторяющихся слов. Калькулятор считает общее количество слов, количество уникальных слов (количество слов за вычетом всех повторов), также выводит текст с указанием количества слов и имеет возможность удалять все повторяющиеся слова из оригинального текста.
Как выделить одинаковые слова в Ворде?
Через Ctrl+F нашла все одинаковые слова. Теперь нужно выделить их ВСЕ и сразу одним цветом, например, красным. Как это сделать?
комментировать
в избранное
vdtes t [38K]
4 года назад
Чтобы выделить все необходимые слова необходимо после нажатия CTRL+F нажать кнопку и в открывшемся меню выбрать пункт .
Выбираем команду изменение цвета текста, теперь изменение цвета текста будет происходить одновременно во всех найденных словах:
система выбрала этот ответ лучшим
в избранное ссылка отблагодарить
Zolotynka [558K]
В Вашем варианте выделяется только ОДНО слово, а нужно, чтобы выделились ВСЕ: например, если в тексте 15 раз употребляется слово «карта», все 15 слов «карта» должны стать красными, а не одно. Смысл задачи в этом. — 4 года назад
vdtest [38K]
На скриншотах хорошо видно, что в приведённом фрагменте выделяются все появления слова, а потом изменения формата применяются сразу ко всем выделенным словам документа, потому что был выбран пункт <Основной документ>из меню , а если нажать кнопку , то выделится только одно слово. — 4 года назад
комментировать
Zolot ynka [558K]
4 года назад
Объясню на примере. Допустим, у нас есть текст (я взяла отрывок из «12 стульев»), и нам нужно найти и выделить красным цветом все встречающиеся в нем местоимения ед.ч. ж.р. — «она».
1) Заходим во вкладку «Главная», в верхней панели в крайнем правом окошке жмем «заменить»:
2) Во всплывающем окне в поле «найти» пишем она. И опять пишем она в поле «заменить на»
3) Нажимаем кнопку «больше» и выбираем: формат/выделение цветом.
4) Теперь ниже фразы «заменить на» должно появиться — выделение цветом:
5) Наконец жмем кнопку «заменить все».
Теперь все слова «она», имеющиеся в тексте выделены нужным нам цветом.
Кстати, можно выделять не только целые слова, но и части слов — например, только корень или только несколько цифр в длинных числах и т.д.
комментировать
в избранное ссылка отблагодарить
алекс андр Глущу к [2.9K]
4 года назад
Выделение всех одинаковых слов в ворде происходит следующим методом. Нажмите Ctrl + f, после чего в выберите пункт «найти в» и в всплывающем меню выбрать основной документ. После чего ввести слово, которое вам нужно в графу поиска. Всё одинаковые слова выделяется, после чего можно делать с ними что угодно, изменить цвет, подчеркнуть, выделить жирным и тд.
покупка
Как найти и выделить повторяющиеся абзацы в документе Word?
Предположим, у вас есть большой документ Word, который может содержать сотни страниц, теперь вы хотите проверить, есть ли повторяющиеся абзацы, а затем выделить их, чтобы сделать их выдающимися, чтобы вы могли иметь дело с повторяющимися предложениями. Как быстро и легко найти и выделить повторяющиеся абзацы в документе Word?
Найдите и выделите повторяющиеся абзацы в документе 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 Замечательные особенности!
Преобразуйте свои задачи Word с помощью Kutools. �� Загрузите 30-дневную пробную версию прямо сейчас ��.
Узнать больше Бесплатная загрузка покупка
Newest First
Sort comments by
Comments ( 15 )
Rated 4.5 out of 5 · 1 ratings
about 2 years ago
This comment was minimized by the moderator on the site
about 2 years ago
This comment was minimized by the moderator on the site
Hi, mình chạy đoạn code trên nhưng không thấy ra kết quả giống bài viết, mình dùng word 2019, Ad support giúp mình nhé
about 2 years ago
This comment was minimized by the moderator on the site
Hi, can anyone please suggest me to prepare a macro in ms word for finding error in paragraph.
Like:- «and or» «that that» «of the of the» «Sentence end without dot (.)» «New Sentence start with initial caps without ending the sending».
about 2 years ago
This comment was minimized by the moderator on the site
Thanks so much.A very valuable article, helped me with my duplicate copies and paste paragraphs!You are awesome.
about 3 years ago
This comment was minimized by the moderator on the site
Tried this for my book in MS Word. First, it would not work because I had bullet points. I removed them and then it only found 2 instances «blank page» and «table of contents». I purposely have several sentences repeated, and this macro did not find them. Thank you for trying, but I would say this doesn’t work.
about 3 years ago
This comment was minimized by the moderator on the site
I had a very long document to process, the code above would take at least 100 days to finish and blocked everything while working at it. The main culprit is the «Set xRng = .Paragraphs(J).Range» which is very slow. I did an alternative version which ran in just 4 hours and presents a continuous report on the processing status and time to end. (To see the report in real time you have to open the «immediate window» by pressing Ctrl+G in the Microsoft Visual Basic for Applications window.) The code works well, except that it predicts a longer time to end than is actually the case (depends on the document). The code is as follows:
Sub highlightdup()
Dim StartTime, SecondsElapsed As Date
Dim secondsPerComparison As Double
Dim I, J, PC, totalComparisons, comparisonsDone, C, secondsToFinish As Long
Dim xRngFind, xRng As Range
Dim xStrg, minutesToFinish As String
Dim currentParag, nextParag As Paragraph
‘Options.DefaultHighlightColorIndex = wdYellow
Application.ScreenUpdating = False
With ActiveDocument
StartTime = Now()
C = 0
PC = .Paragraphs.Count
totalComparisons = CLng((PC * (PC + 1)) / 2)
Set currentParag = .Paragraphs(1)
For I = 1 To PC — 1
‘Debug.Print «processing paragraph » & I & » of a total of » & PC & » » & currentParag.Range.Text
‘Debug.Print Len(currentParag) & currentParag
If currentParag.Range.HighlightColorIndex <> wdYellow Then
If currentParag.Range.HighlightColorIndex <> wdBrightGreen Then
Set nextParag = currentParag
For J = I + 1 To PC
Set nextParag = nextParag.Next
If currentParag.Range.Text = nextParag.Range.Text Then
currentParag.Range.HighlightColorIndex = wdBrightGreen
nextParag.Range.HighlightColorIndex = wdYellow
Debug.Print «found one!! » & » I = » & I & » J s», StartTime, Now())
secondsPerComparison = CLng(SecondsElapsed) / comparisonsDone
secondsToFinish = CLng(secondsPerComparison * (totalComparisons — comparisonsDone))
minutesToFinish = Format(secondsToFinish / 86400, «hh:mm:ss»)
elapsedTime = Format(SecondsElapsed / 86400, «hh:mm:ss»)
Debug.Print «Finished procesing paragraph » & I & » of » & PC & «. Elapsed time = » & elapsedTime & «. Time to finish kt-editor-attachments» data-kt-attachment-wrapper=»»>