Prev: Inserting multiple pictures into a Word table cell
Next: Is there code to toggle "show column headers and row headers"
From: John on 29 Mar 2010 05:14
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
From: Graham Mayor on 29 Mar 2010 06:43
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

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>


"John" <helpme.code(a)yahoo.com> wrote in message
news:c37ff838-4e24-47f0-8c75-66ae18e708a6(a)z35g2000yqd.googlegroups.com...
> 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


 | 
Pages: 1
Prev: Inserting multiple pictures into a Word table cell
Next: Is there code to toggle "show column headers and row headers"