Hiding comments by saving markup and view status, then restoring markup and view status as follows:

Dim intRevisionsMarkup As Integer
Dim intRevisionsView As Integer
...
intRevisionsMarkup = ActiveWindow.View.RevisionsFilter.Markup
intRevisionsView = ActiveWindow.View.RevisionsFilter.View
ActiveWindow.View.RevisionsFilter.Markup = wdRevisionsMarkupNone
...
i = Selection.MoveUntil(Cset:="+", Count:=-100)
...
ActiveWindow.View.RevisionsFilter.Markup = intRevisionsMarkup
ActiveWindow.View.RevisionsFilter.View = intRevisionsView

does not help. Word still hangs!