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!
|