Метод Document.Compare (Word)
Отображает знаки редакции, указывающие, где указанный документ отличается от другого документа.
Синтаксис
выражение. Compare( _Name_ , _AuthorName_ , _CompareTarget_ , _DetectFormatChanges_ , _IgnoreAllComparisonWarnings_ , _AddToRecentFiles_ , _RemovePersonalInformation_ , _RemoveDateAndTime_ )
выражение (обязательно). Переменная, представляющая объект Document .
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| Name | Обязательный | String | Имя документа, с которым сравнивается указанный документ. |
| AuthorName | Необязательный | Variant | Имя рецензента, связанное с различиями, вызванными сравнением. Если значение не указано, по умолчанию используется имя автора измененного документа или строка "Сравнение", если сведения об авторе отсутствуют. |
| CompareTarget | Необязательный | Variant | Целевой документ для сравнения. Может быть любой константой WdCompareTarget . |
| DetectFormatChanges | Необязательный | Логический | Значение true (по умолчанию) для сравнения для включения обнаружения изменений формата. |
| IgnoreAllComparisonWarnings | Необязательный | Variant | Значение True сравнивает документы, не уведомляя пользователя о проблемах. Значение по умолчанию — False. |
| AddToRecentFiles | Необязательный | Variant | True добавляет документ в список недавно использовавшихся файлов в меню Файл . |
| RemovePersonalInformation | Необязательный | Логический | Значение True удаляет все сведения о пользователе из комментариев, редакций и диалогового окна свойств в возвращенном объекте Document . Значение по умолчанию — False. |
| RemoveDateAndTime | Необязательный | Логический | Значение True удаляет данные меток даты и времени из отслеживаемых изменений в возвращенном объекте Document . Значение по умолчанию — False. |
Пример
В этом примере активный документ сравнивается с документом с именем "FirstRev.doc" в папке "Черновик" и помещает различия сравнения в новый документ.
Sub CompareDocument()
ActiveDocument.Compare Name:="C:\Draft\FirstRev.doc", _
CompareTarget:=wdCompareTargetNew
End Sub
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.