есть ли строка, которую мы могли бы добавить в следующую подпрограмму VBA, чтобы выделить одну букву до и одну букву после всего удаленного текста, чтобы после принятия всех изменений мы могли визуализировать, где был удален какой-либо текст? Вот код, о котором я говорю из предыдущего поста:
В VBA есть объект ревизий. Оттуда просто перебрать каждый элемент ревизии, принять и выделить его с помощью предопределенного цвета.
Кроме того, нам нужно временно отключить отслеживание.
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