Método Document.Compare (Word)
Exibe marcas de revisão que indicam onde o documento especificado difere de um outro documento.
Sintaxe
expression. Compare( _Name_ , _AuthorName_ , _CompareTarget_ , _DetectFormatChanges_ , _IgnoreAllComparisonWarnings_ , _AddToRecentFiles_ , _RemovePersonalInformation_ , _RemoveDateAndTime_ )
expressão Obrigatório. Uma variável que representa um objeto Document.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Name | Obrigatório | String | O nome do documento com o qual o documento especificado será comparado. |
| AuthorName | Opcional | Variant | O nome do revisor associado com as diferenças geradas pela comparação. Se não especificado, o valor terá por padrão o nome do autor do documento revisado ou a sequência de caracteres "Comparison" se não houver nenhuma informação sobre o autor. |
| CompareTarget | Opcional | Variant | O documento de destino para a comparação. Pode ser qualquer constante WdCompareTarget. |
| DetectFormatChanges | Opcional | Boolean | True (padrão) para a comparação incluir a detecção de mudanças de formato. |
| IgnoreAllComparisonWarnings | Opcional | Variant | True compara os documentos sem notificar o usuário de problemas. O valor padrão é False. |
| AddToRecentFiles | Opcional | Variant | True adiciona o documento à lista de arquivos recentemente usados no menu arquivo. |
| RemovePersonalInformation | Opcional | Boolean | True remove todas as informações de usuário de comentários, revisões e a caixa de diálogo de propriedades no objeto Document retornado. O valor padrão é False. |
| RemoveDateAndTime | Opcional | Boolean | True remove as informações de carimbo de data e hora de alterações controladas no documento objeto retornado. O valor padrão é False. |
Exemplo
Este exemplo compara o documento ativo com o documento chamado "FirstRev.doc" na pasta Rascunho e insere as diferenças encontradas na comparação em um novo documento.
Sub CompareDocument()
ActiveDocument.Compare Name:="C:\Draft\FirstRev.doc", _
CompareTarget:=wdCompareTargetNew
End Sub
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.