The code below works like a charm. It lists the highlighted text in a String.
What I would like to ask though, is to modify this code a bit so I get the number of the highlight color next to each string catch.
Dim rng As Range
Dim strText As String
Set rng = ActiveDocument.Range
.Highlight = True
.Forward = True
.Wrap = wdFindStop
.Format = True
If .Execute Then
strText = strText & rng.Text & vbCr
rng.End = ActiveDocument.Range.End
Loop While True
Thank you with love again as always.
I give full 250 points with an A classification for this.