Class RevisionsFilter (Word VBA)
The class RevisionsFilter represents the current settings related to display of reviewers' comments and revision marks in the document.
To use a RevisionsFilter class variable it first needs to be instantiated, for example
Dim rfr as RevisionsFilter Set rfr = ActiveWindow.View.RevisionsFilter
RevisionsFilter class variables can be set using the View.RevisionsFilter procedure.
Returns or sets a WdRevisionsMarkup constant that specifies the extent of reviewer markup displayed in the document.Possible Values are wdRevisionsMarkupAll - Displays the final document with all markup visible, wdRevisionsMarkupNone - Displays the final document with no markup visible, wdRevisionsMarkupSimple - Displays the final document in simple markup: with revisions incorporated, but with no markup visible.
Public Sub Markup_Example() ActiveWindow.View.RevisionsFilter.Markup = wdRevisionsMarkupAll End Sub
Returns a Reviewers object that represents the collection of reviewers of one or more documents.
The Reviewers collection returned by Reviewers contains the names of all reviewers who have reviewed documents opened or edited on a computer.
Public Sub Reviewers_Example() Debug.Print ActiveWindow.View.RevisionsFilter.Reviewers.Count End Sub
Shows or hides all revisions in a document that contains comments and tracked changes.
In previous versions of Word, the ToggleShowAllReviewers method was on the Window object. As of Word, that method is hidden.
Sets or returns a WdRevisionsView constant that represents the global option that specifies whether Word displays the original version of a document or the final version, which might have revisions and formatting changes applied.Possible Values are wdRevisionsViewFinal - Displays the document with formatting and content changes applied, wdRevisionsViewOriginal - Displays the document before changes were made.
The RevisionsFilter.View property replaces the View.RevisionsView property that was in previous version of Word.
Sub RevisionsFilter_View_Example() With ActiveWindow.View If .RevisionsFilter.View = wdRevisionsViewFinal Then .RevisionsFilter.View = wdRevisionsViewOriginal Else .RevisionsFilter.View = wdRevisionsViewFinal End If End With End Sub