[kp+]

Подскажите, как можно автоматически выделить цветом множество изменений, внесенных в режиме рецензирования. Подозреваю, что штатной функции нет даже в самой свежей версии, но может кто видел, например, VBA-программку, которая могла бы помочь в этом глупом деле.
Offtop: На всякий случай, зачем это надо - начальство на режим рецензирования смотрит "как на новые ворота", и разбираться с ним не имеет желания. Поэтому приходится все изменения "красить вручную" (замены и дополнения - в желтый, удаления - в красный), и затем давать команду "принять все изменения".

[Сергей812]

попробуйте покопаться в этом API

[kp+]

Спасибо за наводку. Еще нашел болванку здесь, и вот что получилось:

Код:

[Выделить все]

Sub Tracked_to_highlighted()

' Macro provided by nixda, 18 Sep 2014, https://superuser.com/questions/813428/convert-tracked-changes-to-highlighted
' Adapted by Rhonda Bracey, CyberText Consulting Pty Ltd, 22 Nov 2018,
'и еще немного адаптировано kp+ :)
    tempState = ActiveDocument.TrackRevisions

' Turn off track changes
    ActiveDocument.TrackRevisions = False
    For Each Change In ActiveDocument.Revisions
        Set myRange = Change.Range
        ' myRange.Revisions.AcceptAll
        If Change.Type = wdRevisionDelete Then
            myRange.HighlightColorIndex = wdRed
            myRange.Font.StrikeThrough = True
            Change.Reject
            Else
            myRange.HighlightColorIndex = wdYellow
            Change.Accept
        End If
    Next
    ActiveDocument.TrackRevisions = tempState
End Sub