' NOTE: This is an IMPORTANT TIME SAVER because it allows you to show the User progress of a macro -- while keeping the memory-consuming screen updating turned off. Increases the speed of execution many orders of magnitude.
For Each Paragraph In ActiveDocument.Paragraphs
ParaCount = ParaCount + 1
Application.StatusBar = " . . . . . . . . . . . . . . . . . . " & _
Int(100 * (ParaCount / ActiveDocument.Paragraphs.Count)) & _
"% of document scanned."
Next
' ************** Alternative way to show document position ************** Application.StatusBar = " . . . . . . . . . . . . . . . . . . " & _
Int(100 * (Selection.Start / ActiveDocument.Range.End)) & _
"% of document scanned and" & _
Str(Count) & " revisions located."