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

Question

麻烦需要具体的宏代码，感激不尽。

Answer 1

下面是录制下来的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

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

审阅 → 比较

选择需要比较的文档

比较结果