Code to "white-out" specific lines in a very large Word document

[John]

Hi

For the lines that start with the following text, I'd like like to
change the font colour of the ENTIRE line to white:
- Diagnosis:
- Rating:
- Analogue:

(note the colon [:] at the end in each case)


Thanks very much

John

 

[Graham Mayor]

If by 'line', which is a vague concept, you mean 'paragraph' then

Dim vFindText
Dim oRng As Range
Dim i As Long
vFindText = Array("- Diagnosis:", "- Rating:", "- Analogue:")
For i = 0 To UBound(vFindText)
Set oRng = ActiveDocument.Range
With oRng.Find
.Text = vFindText(i)
Do While .Execute(Forward:=True) = True
oRng.Paragraphs(1).Range.Font.Color = wdColorWhite
Loop
End With
Next

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>