Word VBA - CompareDocuments - Как проверить содержимое объекта Revisions

Question

После сравнения документов Word с методом Application.CompareDocuments мне нужно проверить все найденные изменения, чтобы сохранить только те «реальные» изменения текста. Спасибо

Answer 1

Итак, решение о проведении некоторой проверки свойства «Текст» для каждого элемента принадлежит объекту Revision. Код выглядит примерно так:

i = 1 
While i <= ActiveDocument.Revisions.Count 
    If ActiveDocument.Revisions.Item(i).Range.Text is text ... 
    i = i + 1 
... 
Wend