Private Function testingRegEx()
    Dim re As RegExp
    Dim txt As String
    Dim allmatches As MatchCollection, m As Match
    
    Set re = New RegExp
    
    re.Pattern = "(Lorem)"
    re.IgnoreCase = True
    re.Global = True
    
    txt = ActiveDocument.Range.Text
    
    If re.TEST(txt) Then
        'get all matches
        Set allmatches = re.Execute(txt)
        'look at each match and hilight corresponding range
        For Each m In allmatches
            With oDoc.Range.Find
                .ClearFormatting
                .Replacement.ClearFormatting
                .Text = m
                .Replacement.Text = "^&"
                .Replacement.Highlight = True
                .Forward = True
                .Wrap = wdFindStop
                .Execute Replace:=wdReplaceAll
            End With
        Next m
    End If
End Function