Classe RevisionsFilter (Word VBA)

A classe RevisionsFilter representa as configurações atuais relacionadas à exibição de comentários de revisores e marcas de revisão no documento. Para usar uma variável de classe RevisionsFilter, ela primeiro precisa ser instanciada por exemplo

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

Markup

Retorna ou define uma constante WdRevisionsMarkup que especifica a extensão da marcação de revisor exibida no documento. Leitura/gravação. Os valores de retorno possíveis são wdRevisionsMarkupAll - Exibe o documento final com todas as marcações visíveis, wdRevisionsMarkupNone - Exibe o documento final sem marcação visível, wdRevisionsMarkupSimple - Exibe o documento final em marcação simples: com revisões incorporadas, mas sem marcação visível.

Public Sub Markup_Example()

    ActiveWindow.View.RevisionsFilter.Markup = wdRevisionsMarkupAll

End Sub

Reviewers

Retorna um objeto reviewers que representa a coleção de revisores de um ou mais documentos.

A coleção reviewers retornada por revisores contém os nomes de todos os revisores que revisaram documentos abertos ou editados em um computador.

Public Sub Reviewers_Example()

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

End Sub

ToggleShowAllReviewers

Mostra ou oculta todas as revisões em um documento que contenham comentários e alterações controladas.

Nas versões anteriores do Word, o método ToggleShowAllReviewers estava no objeto Window . A partir do Word, esse método é oculto.

ActiveWindow.View.RevisionsFilter.ToggleShowAllReviewers

View

Define ou retorna uma constante WdRevisionsView que representa a opção global que especifica se o Word exibe a versão original de um documento ou a versão final, que pode ter revisões e alterações de formatação aplicadas. Leitura/gravação. Os valores de retorno possíveis são wdRevisionsViewFinal - Exibe o documento com alterações aplicadas de conteúdo e formatação, wdRevisionsViewOriginal - Exibe o documento como era antes de as alterações serem feitas.

A propriedade RevisionsFilter. View substitui a propriedade View. RevisionsView que estava na versão anterior do 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