I have a document that is formatted as such:

    level1\level2a
    level1\level2b  '(change level1 text to gray)
    level1\level2c  '(change level1 text to gray)
    level1a\level2a
    level1a\level2b '(change level1a text to gray)
    level1a\level2c '(change level1a text to gray)
    level1a\level2d '(change level1a text to gray)
    .
    .
    .

I want to format the level1 text (set it to a light color gray) on each line
if the level1 text on the line above it is the same.  The first instance of
the level1 text would remain colored black - all subsequent instance would be
gray.  I'm new to VBA, and here is my first stab.  I'm just not sure where to
go from here.

Sub FormatStrings()

Dim oPar As Paragraph
Dim sString1 As String
Dim sString2 As String
sString1 = ""

For Each oPar In ActiveDocument.Paragraphs
   sString2 = oPar.Range.Sentences(1)
   sString2 = Left(sString2, InStr(0, sString2, "\"))
   If sString2 = sString1 Then
       'Set the format of only the text before the \
   Else
       'Do nothing, go to next line
   End If
Next oPar

End Sub

Thanks