Classe RevisionsFilter (Word VBA)

La classe RevisionsFilter représente les paramètres actuels liés à l’affichage des commentaires des relecteurs et des marques de révision dans le document. Pour utiliser une variable de classe RevisionsFilter, elle doit d'abord être instanciée, par exemple

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

Markup

Cette propriété renvoie ou définit une constante WdRevisionsMarkup qui spécifie l’étendue des marques de révision affichées dans le document. Les valeurs de retour possibles sont wdRevisionsMarkupAll - Affiche le document final avec tous les marques de révision visibles, wdRevisionsMarkupNone - Affiche le document final sans marques de révision visibles, wdRevisionsMarkupSimple - Affiche le document final dans le balisage simple : avec les révisions incorporées, mais sans aucun balisage visible.

Public Sub Markup_Example()

    ActiveWindow.View.RevisionsFilter.Markup = wdRevisionsMarkupAll

End Sub

Reviewers

Renvoie un objet Reviewers qui représente la collection de relecteurs d’un ou de plusieurs documents.

La collection Reviewers renvoyée par Reviewers contient les noms de tous les relecteurs qui ont ouvert ou modifié sur un ordinateur des documents.

Public Sub Reviewers_Example()

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

End Sub

ToggleShowAllReviewers

Affiche ou masque toutes les révisions dans un document qui contient des commentaires et des marques de révision.

Dans les versions précédentes de Word, la méthode ToggleShowAllReviewers, était sur l’objet Window .

ActiveWindow.View.RevisionsFilter.ToggleShowAllReviewers

View

Définit ou renvoie une constante WdRevisionsView qui représente l’option globale qui spécifie si Word affiche la version d’origine d’un document ou de la version finale, qui peut avoir des révisions et des modifications de mise en forme appliquées. Les valeurs de retour possibles sont wdRevisionsViewFinal - Le document affiché comprend les modifications de mise en forme et de contenu, wdRevisionsViewOriginal - Affiche le document d'origine, avant toute modification.

La propriété RevisionsFilter. View remplace la propriété View. RevisionsView qui était dans la version précédente 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