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

252
MGF777

Я использую код, который позволяет автоматически преобразовывать все отслеженные изменения в выделенный текст. Тем не менее, когда изменение дорожки является подавлением, после «Принять все изменения», конечно же, нет выделения. Поэтому я ищу код, который позволил бы мне выделить 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

Спасибо

0

1 ответ на вопрос

0
Rich Michaels

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

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

Похожие вопросы