Случайный выбор слов.

[nestorr]

Добрый день.
Есть задача и я прошу помочь ее решить.
Суть- есть любой текст в нем часть слов процентов 60-70 выделена синим цветом, необходимо не выделенные цветом слова, с определенной вероятностью, или в определенном порядке например каждое 3е, окрашивать в жёлтый цвет

[CyberMen]

nestorr
витер алекс нужен здесь.

[nestorr]

в тексте отдельные слова выделены синим цветом, надо из тех слов что не выделены цветом выбирать например каждое 5е слово и окрашивать его в жёлтый цвет.

[CyberMen]

nestorr
а в чём смысл вообще? Если документ большой, то времени много займёт.

[nestorr]

вот что я придумал, но как вставить сюда выбор слов с вероятностью какой-то я не знаю.

Sub new()
For Each curWord In ActiveDocument.Words

 If curWord.Font.Color = wdColorAutomatic Then
    curWord.Font.Color = wdColorYellow
 
 End If
Next

End Sub

[viter.alex]

Вот так подойдёт

Sub RandomColor()
  Selection.HomeKey wdStory
  With Selection.Find
    .Text = "<[А-Яа-яЁё]@>" 'Ищем целые слова
    .Font.Color = wdColorAutomatic 'Цвет по умолчанию
    .MatchWildcards = True 'С помощью подстановочных знаков
    While .Execute
      Randomize 'Инициализация генератора случайных чисел
      'Если случайное число меньше 0,5, то окрашиваем найденный фрагмент
      If Rnd < 0.5 Then
        Selection.Font.Color = wdColorYellow
      End If
    Wend
  End With
End Sub