Hello,

I have been using following macro to find and highlight all bold elements in documents:

Sub BoldHighlight()

Dim r As Range
Set r = ActiveDocument.Range

With r.Find
.Font.Bold = True
Do While .Execute(Forward:=True) = True
r.HighlightColorIndex = wdGreen
Loop
End With

End Sub


I would really appreciate help in two areas:

1. It works good in small documents, but crashes (freezes Word) when used on bigger documents / documents containing a lot of comments, track changes etc. Does anyone know what could be the issue in that approach and how to fix it? Maybe there is better approach to highlighting bold in the document?

2. Could anyone guide me how to "make it" search for bold in Footnotes as well? I have tried with StoryRanges but with no success, couldn't find any relatable examples.

Thank you in advance!