Word 2010 vba для поиска и перехода к последним отслеживаемым изменениям

У меня есть макрос, который находит все отслеживаемые изменения, сделанные за последний день, и выделяет их.

Sub HilightNewChanges()

'''''''''''''
' Finds tracked changes made in the last day, and
' highlights them (without tracking the highlighting)
'''''''''''''

Dim bTrackingAsWas As Boolean
    bTrackingAsWas = ActiveDocument.TrackRevisions

    ActiveDocument.TrackRevisions = False
    ActiveDocument.ShowRevisions = True

  Dim aRev As Revision
  For Each aRev In ActiveDocument.Revisions
    If aRev.Date > Now() - 1 Then
      aRev.Range.HighlightColorIndex = wdYellow
      Selection.Collapse wdCollapseEnd
    End If
  Next aRev

    ActiveDocument.TrackRevisions = bTrackingAsWas
    ActiveDocument.ShowRevisions = True

End Sub

Мне нужно изменить это, чтобы он, вместо того, чтобы выделять все из них, прошел через документ по каждому из них, чтобы я мог просмотреть только новые изменения. Я попытался заменить две строки в If на

    aRev.Range.GoTo What:=aRev

но я получаю ошибку "неверный параметр". Я использовал GoTo в других макросах, но только с закладками. Нужно ли мне снова использовать закладки, чтобы получить здесь то, что мне нужно? Как мне создать If или Loop, чтобы он останавливался после каждого из них?


vba change-tracking ms-word
person TheFontSnob    schedule 20.08.2014    source источник

Ответы (1)


arrow_upward
0
arrow_downward

Range.GoTo используется для получения ассортимент определенного типа. Параметр What должен быть одним из определенного набора констант, например wdGoToLine.

Вместо этого вы можете выбрать начало диапазона, который у вас уже есть:

aRev.Range.Select
Selection.Collapse

Чтобы остановить его после каждой, проще всего переделать его, чтобы просто найти следующую соответствующую ревизию после текущей точки вставки, а не все сразу. Если вы назначите макросу горячую клавишу, его будет легко продолжить.

person Matthew Strawbridge    schedule 20.08.2014
comment
Спасибо за разъяснения и помощь! Для моего текущего документа крайний срок слишком близок, чтобы над ним больше работать; Я использую «Найти» для перехода к выделенному тексту. - person TheFontSnob; 23.08.2014