Clase RevisionsFilter (Word VBA)

La clase RevisionsFilter representa la configuración actual relacionada con la presentación de los comentarios y las marcas de revisión de los revisores en el documento. Para usar una variable de clase RevisionsFilter, primero debe ser instanciado, por ejemplo

Dim rfr as RevisionsFilter
Set rfr = ActiveWindow.View.RevisionsFilter

Markup

Devuelve o establece una constante WdRevisionsMarkup que especifica la extensión del marcado de revisor que se muestra en el documento. Posibles valores de retorno son wdRevisionsMarkupAll - Muestra el documento final con todas las marcas visibles, wdRevisionsMarkupNone - Muestra el documento final sin marcado visible, wdRevisionsMarkupSimple - Muestra el documento final en marcado simple: con las revisiones incorporadas, pero sin ningún marcado visible.

Public Sub Markup_Example()

    ActiveWindow.View.RevisionsFilter.Markup = wdRevisionsMarkupAll

End Sub

Reviewers

Devuelve un objeto Reviewers que representa la colección de revisores de uno o más documentos.

La colección Reviewers devuelta por Reviewers contiene los nombres de todos los revisores que han revisado documentos abiertos o modificados en un equipo.

Public Sub Reviewers_Example()

   Debug.Print ActiveWindow.View.RevisionsFilter.Reviewers.Count

End Sub

ToggleShowAllReviewers

Muestra u oculta todas las revisiones de un documento que contiene comentarios y marcas de revisión.

En versiones anteriores de Word, el método ToggleShowAllReviewers se encontraba en el objeto Window .

ActiveWindow.View.RevisionsFilter.ToggleShowAllReviewers

View

Establece o devuelve una constante WdRevisionsView ( que representa la opción global que especifica si Word muestra la versión original de un documento o la versión final, que puede tener revisiones y cambios de formato aplicados. Posibles valores de retorno son wdRevisionsViewFinal - Muestra el documento con los cambios de formato y contenido aplicados, wdRevisionsViewOriginal - Muestra el documento antes de realizar los cambios.

La propiedad RevisionsFilter. View reemplaza a la propiedad View. RevisionsView que estaba en la versión anterior de 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