Como selecionar todo o texto DELETED (ou ALL ADDED) (alteração de faixa) no MS Word 2016

Question

é uma variação da questão MS Word: Como faço para formatar todos alterar o texto rastreado de uma só vez?

Estou encontrando dificuldade em trabalhar com as cores fornecidas no MS Word (estou em 2016) para alteração de faixa. As cores são tão poucas e tão escuras ou obscuras que a faixa de texto excluído / adicionado mudou e não aparece na tela para chamar minha atenção. Muitas vezes, os caracteres de tamanho pequeno (como.,; A) são tão pequenos que a adição / exclusão passa despercebida, pois eles não são tão visíveis e acabam deixando-os desassistidos. sublinhado _ ou traço - ou separação char - são mais um problema, porque eles são usados como o estilo de exclusão / adição no trackchange e se esse mesmo personagem estava lá e é excluído, ou não estava lá e é adicionado, é simplesmente impossível descobrir porque esse char tem dois significados.

Eu dei cores diferentes para adição (vermelho) e para exclusão (azul), então é um pouco melhor, mas essas são cores tão maçantes que ainda não conseguem chamar a atenção.

Eu quero selecionar todo o texto excluído de uma só vez e destacá-lo com (digamos) amarelo, Quero selecionar todo o texto adicionado de uma só vez e realçá-lo com (digamos) verde, Eu acho que então não pode passar despercebido.

Eu explorei o STYLES, mas não consegui descobrir nenhuma categoria para o texto alterado da faixa.

Como selecionar TODO o texto DELETADO e, em seguida, TODO o texto ADICIONADO (alteração de faixa) de uma só vez no MS Word 2016 (w8) para fazer o acima?

Obrigado.

adicionado

Nesta página, você encontrará várias macros, que vão para cada texto / frase alterado por faixa, um por um. Essas macros estão extraindo rastrear texto alterado para arquivos do Excel ou Word ou apenas exibindo na tela. link

Eu não sei muito vba, alguém pode tirar qualquer macro de lá e modificar de modo que vá somente para todos os textos de mudança de trilha adicionados e / ou todos apagados um por um, e então apenas mude a cor ou destaque ou o que quer que seja.

Obrigado.

    

Answer 1

Eu modifiquei uma macro do link que você deu. Abaixo funciona para mim no Word 2010, então talvez funcione em 2016 também.

Sub MarkChanges()
Dim arev As Revision
With ActiveDocument
    For Each arev In .Revisions
        If arev.Type = wdRevisionDelete Then
            arev.Range.HighlightColorIndex = wdYellow
        ElseIf arev.Type = wdRevisionInsert Then
            arev.Range.HighlightColorIndex = wdGreen
        End If
    Next arev
End With
End Sub

    

Answer 2

macro do endrju modificado para remover destaques, se for necessário.

Sub RemoveHighlightTrackChanges()
Dim arev As Revision
With ActiveDocument
    For Each arev In .Revisions
        If arev.Type = wdRevisionDelete Then
            arev.Range.HighlightColorIndex = wdNoHighlight
        ElseIf arev.Type = wdRevisionInsert Then
            arev.Range.HighlightColorIndex = wdNoHighlight
        End If
    Next arev
End With
End Sub

Tentei eu mesmo. está funcionando.

Obrigado.

    

Answer 3

uma extensão deste tópico postada aqui ms word 2016 - como verifique se o texto já está destacado ou não

Obrigado.