成语大全网 - 汉语词典 - VBA宏如何实现比较两个word文件里的相同内容,并删除掉重复部分?

VBA宏如何实现比较两个word文件里的相同内容,并删除掉重复部分?

下面是录制下来的VBA代码

ChangeFileOpenDirectory "D:\需要比较的文件夹名称\"

Application.CompareDocuments _

OriginalDocument:=Documents("需要比较的文档1.doc"), _

RevisedDocument:=Documents("需要比较的文档2.doc"), _

Destination:=wdCompareDestinationNew, _

Granularity:=wdGranularityWordLevel, _

CompareFormatting:=True, CompareCaseChanges:=True, _

CompareWhitespace:=True, CompareTables:=True, _

CompareHeaders:=True, CompareFootnotes:=True, _

CompareTextboxes:=True, CompareFields:=True, _

CompareComments:=True, CompareMoves:=True, _

RevisedAuthor:="guchzhAL", _

IgnoreAllComparisonWarnings:=False

ActiveWindow.ShowSourceDocuments = wdShowSourceDocumentsBoth

个人还是觉得这类的比较工作还是人工来完成比较好

审阅?→?比较

选择需要比较的文档

比较结果