Converter as alterações controladas em realçadas

Question

Estou procurando uma maneira automatizada de converter alterações controladas no Microsoft Word 2010 em texto destacado. Então, basicamente, o que eu gostaria de fazer é:

1. Realce todos os fragmentos de texto com alterações controladas
2. Aceite todas as alterações controladas (existe um botão para isso)

Existe uma maneira de fazer isso usando recursos internos ou scripts?

    

Answer 1

Existe o Objeto de Revisão no VBA. A partir daí, é simples fazer uma iteração em cada item de revisão, aceitá-lo e selecioná-lo com uma cor predefinida.

Além disso, precisamos desabilitar temporariamente o rastreamento.

Sub tracked_to_highlighted()           
    tempState = ActiveDocument.TrackRevisions
    ActiveDocument.TrackRevisions = False    
    For Each Change In ActiveDocument.Revisions        
        Set myRange = Change.Range
        myRange.Revisions.AcceptAll
        myRange.HighlightColorIndex = wdGreen            
    Next    
    ActiveDocument.TrackRevisions = tempState
End Sub

    

Answer 2

Estranho o suficiente isso faz parte do trabalho em meus documentos (Word 2010). As revisões só são destacadas da página 5. Não tenho a menor idéia de como dizer a macro para iniciar a partir do topo do documento, nem mesmo por

Selection.Homekey Unit:=wdStory

Manual aceitar todas as alterações, no entanto, considere as revisões nas páginas 1-4 também.

Alguém tem experiências semelhantes?

Peter