Word VBA教程:Compare方法

显示修订标记,以表明指定的文档与另一个文档的区别。

expression.Compare(Name, AuthorName, CompareTarget, DetectFormatChanges, IgnoreAllComparisonWarnings, AddToRecentFiles)

expression   必需。该表达式返回一个Document对象。

Name  String 类型,必需。与指定文档作比较的文档的名称。

AuthorName  Variant 类型,可选。与比较结果生成的区别相关联的审阅者姓名。如果没有指定,则默认值为修订文档的作者名或字符串“Comparison”(如果没有提供作者信息)。

CompareTarget  Variant 类型,可选。比较的目标文档。可以是下列任意WdCompareTarget 常量。

WdCompareTarget 可以是下列 WdCompareTarget 常量之一:
wdCompareTargetCurrent 将比较结果区别置于当前文档中。默认值。
wdCompareTargetNew 将比较结果区别置于新文档中。
wdCompareTargetSelected 将比较结果区别置于目标文档中。

DetectFormatChanges  Boolean 类型,可选。如果为 True(默认值),则比较结果包括格式变化检测。

IgnoreAllComparisonWarnings  Variant 类型,可选。如果为 True,则比较文档,而不通知用户问题。默认值是 False。

AddToRecentFiles  Variant 类型,可选。如果为 True,则将文档添加至“文件”菜单中最近使用的文件列表中。

VBA示例

本示例将活动文档与位于 Draft 文件夹中名为“FirstRev.doc”的文档进行比较,并将比较结果区别置于一个新文档中。


Sub CompareDocument()
    ActiveDocument.Compare Name:="C:\Draft\FirstRev.doc", _
        CompareTarget:=wdCompareTargetNew
End Sub

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号