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

@YuliaK · Регистрация: 29.04.2012

Студворк — интернет-сервис помощи студентам

В тексте, находящийся в word 2007, выделить цветом и подсчитать слова, содержащие не менее двух повторяющихся букв.
Вот что у меня получилось:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub macros
Dim oWrd As Range
Dim parazit As String
Dim i, j As Long
parazit = ",.;:!?""'|/*+-=()[]{}_`~%^@" '???????-????????
For Each oWrd In Selection.Paragraphs(1).Range.Words
   If (InStr(parazit, RTrim(oWrd)) = 0) And (oWrd <> Chr(13)) Then
      oWrd.Select
      With Selection
        If Right(.Range, 1) = Chr(32) Then
          .MoveLeft unit:=wdCharacter, Count:=1, Extend:=wdExtend
           Set oWrd = .Range
         End If
      End With
      For i = 1 To (Len(RTrim(oWrd)) - 1)
      char = Mid(oWrd, i, 1)
       For j = 2 To Len(RTrim(oWrd))
       char2 = Mid(oWrd, j, 1)
       If char = char2 Then
        oWrd.HighlightColorIndex = wdBlue
        Exit For
        Exit For
        Else
        oWrd.HighlightColorIndex = wdRed
       End If
       Next j
       Next i
   End If
Next oWrd
End Sub

Однако текст выделяется не правильно. Кто может помочь?
Как еще вывести в отдельной строке укрупненным шрифтом число выделенных слов.

@Settel · 10.10.2017, 11:58

Сообщение от Sasha_Smirnov

Так рабочая фунция получилась «вообще простой» — слова уже выделены (ячейками Excel)!

Александр, класс!
Уже опробовал. Вечером проштудирую.

Низкий поклон и здоровья Вам и близким!

Новые блоги и статьи Все статьи Все блоги /
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .