Como aceitar apenas as alterações controladas feitas por um utilizador específico num documento do Word?

Imagine que tem um documento do Word revisto por várias pessoas, como mostra a seguinte captura de ecrã. Agora, precisa apenas de aceitar as alterações efetuadas por uma pessoa específica. Como pode realizar esta tarefa num documento do Word?

Aceitar alterações controladas de um utilizador específico no Word

Aceitar alterações controladas de um utilizador específico com código VBA

---

Aceitar alterações controladas de um utilizador específico no Word

Para aceitar as alterações controladas de apenas um utilizador, a funcionalidade Mostrar Marcações do Word pode ajudá-lo. Siga estes passos:

1. Abra o ficheiro do Word que contém as alterações controladas e, em seguida, clique em Rever > Mostrar Marcações > Pessoas Específicas e, depois, desmarque Todos os Revisores para ocultar todas as revisões, conforme mostra a captura de ecrã:

2. Em seguida, clique sucessivamente em Mostrar Marcações > Pessoas Específicas e selecione o revisor cujas alterações controladas pretende aceitar, conforme mostra a captura de ecrã:

3. Depois, clique em Aceitar > Aceitar Todas as Alterações Mostradas, conforme mostra a captura de ecrã:

4. Agora, apenas as alterações controladas dessa pessoa específica foram aceites, como mostra a captura de ecrã:

5. Por fim, deverá voltar a apresentar as alterações controladas dos restantes revisores. Para tal, clique em Mostrar Marcações > Pessoas Específicas, marque Todos os Revisores, conforme mostra a seguinte captura de ecrã:

---

Aceitar alterações controladas de um utilizador específico com código VBA

Se o método anterior lhe parecer um pouco complicado, aqui está um código VBA simples que também poderá ser útil. Siga os passos seguintes:

1. Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole a seguinte macro na janela do Módulo.

Código VBA: Aceitar alterações controladas de um utilizador:

Sub Acceptoneuser()
    For Each xChange In ActiveDocument.Revisions
        If xChange.Author = "RubyMie" Then
            xChange.Accept
        End If
    Next
End Sub

Nota: No código acima, substitua o nome de utilizador "RubyMie" pelo seu próprio nome, conforme necessário.

3. Em seguida, prima a tecla F5 para executar este código e serão aceites apenas as alterações controladas do revisor que especificou no código, conforme mostra a captura de ecrã: