vba закрасить все циклы синим цветом

[Berckyt]

В Word'e в активном документе есть текст программы на VBA, нужно закрасить циклы в этом тексте синим цветом. Моих знаний хватило на написание программы, которая закрашивает только отдельные слова в синий цвет

Private Sub CommandButton1_Click()
Dim aStr As Variant
aStr = Array("While", "Wend")
Dim i As Byte
Dim d As Object
For Each d In ActiveDocument.Words
For i = LBound(aStr) To UBound(aStr)
If d Like aStr(i) Then
d.Font.Color = wdColorDarkBlue
End If
Next
Next
End Sub

Как закрасить полностью циклы? Например от слова While до Wend