Ищете способ выделить 2 символа до и 2 символа после всех отслеженных изменений

Question

Я использую код, который позволяет автоматически преобразовывать все отслеженные изменения в выделенный текст. Тем не менее, когда изменение дорожки является подавлением, после "Принять все изменения", конечно же, нет выделения. Поэтому я ищу код, который позволил бы мне выделить 2 символа до и 2 символа после всех отслеженных изменений. Затем, после принятия всех модификаций, я смогу визуализировать, где были сделаны подавления.

Вот мой код:

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 1

Попробуй это ...

Sub tracked_to_highlighted()
    Dim myRange As word.Range
    tempState = ActiveDocument.TrackRevisions
    ActiveDocument.TrackRevisions = False
    For Each Change In ActiveDocument.Revisions
        Set myRange = Change.Range
        myRange.MoveStart word.WdUnits.wdCharacter, Count:=-2
        myRange.MoveEnd word.WdUnits.wdCharacter, Count:=2
        myRange.HighlightColorIndex = wdGreen
        myRange.Revisions.AcceptAll
    Next
    ActiveDocument.TrackRevisions = tempState
End Sub