[VBA] highlight number listed headings with yellow

[smallxyz]

My word document has numbered titles in the following structure:

***XX ***X ***X
***X *********X *********

1. *********X
1.1 *********X
***X *********X *********
***X *********X *********
1.2 ***X *********X *********
***X *********X *********

1.2.1 ***X *********X *********
***X *********X *********

2. *********X
2.1 *********X
***X *********X *********
2.2 ***X *********X *********
2.3 ***X *********X *********

...

I would like to know how to color those bold line with yellow background automatically.
If possible, a re-usable VBA code would be best.

THank you.

[Paul_Hossler]

This colors the text in the designated style. Is this what you were asking?

I'm sure the more Word-wise members have ways to improve it, but it seems to work

Option Explicit
Sub drv()
    Call HighLightText("Heading 1")
    Call HighLightText("Heading 2", wdColorGreen)
    
End Sub

Private Sub HighLightText(StyleName As String, Optional ColorName As WdColor = wdColorYellow)
    Selection.HomeKey Unit:=wdStory
    With Selection.Find
        .ClearFormatting
        .Style = ActiveDocument.Styles(StyleName)
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    
        Do While .Execute
            With Selection.Font.Shading
                .Texture = wdTextureNone
                .ForegroundPatternColor = wdColorAutomatic
                .BackgroundPatternColor = ColorName
            End With
        
            Selection.MoveRight Unit:=wdCharacter, Count:=1
        Loop
        
    End With
End Sub

[smallxyz]

Hi Paul,
Thanks for the input.
The code works well after changing "Heading 1" to wdStyleHeading1 or wdStyleHeading2

However, I find that not all numbered lines are highlighted in my document.
My document contains 500+ pages. The highlighted lines mostly are within the first 30 pages.
I have tried adding wdStyleHeading3 and wdStyleHeading4.
It gets highlighted more but still not applicable to the fullest document.
Any idea?

[mana]

Option Explicit


Sub test()
    Dim p As Paragraph
    Dim l As List
    
    For Each p In ActiveDocument.Paragraphs
        Set l = Nothing
        On Error Resume Next
        Set l = p.Range.ListFormat.List
        On Error goto 0
        If Not l Is Nothing Then
            p.Range.HighlightColorIndex = wdYellow
        End If
    Next


End Sub

[Paul_Hossler]

Hi Paul,
Thanks for the input.
The code works well after changing "Heading 1" to wdStyleHeading1 or wdStyleHeading2

However, I find that not all numbered lines are highlighted in my document.
My document contains 500+ pages. The highlighted lines mostly are within the first 30 pages.
I have tried adding wdStyleHeading3 and wdStyleHeading4.
It gets highlighted more but still not applicable to the fullest document.
Any idea?

Not sure why you needed to add wdStyleHeading1. The sub drv() takes a style name ("Heading 1") as input; I did it that way for flexibility. You could always incorporate that into the HighLightText sub.

Are you sure that the lines that are being missed are styled with "Heading 1"?

mana raises a good point - there is a difference between the Font attribute .Shading and the .HighLighter. I used the font attribute approach

Can you post a small doc (1-2 pages) with examples of what is not being highlighted

And of course, there's always the very real possibility that my .Find macro was deficient.