Преобразовать отслеженные изменения в выделенные (продолжение)

225
MGF777

есть ли строка, которую мы могли бы добавить в следующую подпрограмму 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
0
Не просто говорите «(продолжение)» в заголовке. Если вы хотите сослаться на предыдущий вопрос, * ссылку * на него. Scott 6 лет назад 0
Я уверен, будет в следующий раз! Спасибо MGF777 6 лет назад 0

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

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