Sub CompareURLs()
Dim doc1 As Document, doc2 As Document
Set doc1 = Documents.Open("http://google.com/")
Set doc2 = Documents.Open("http://yahoo.com/")
Application.CompareDocuments OriginalDocument:=doc1, RevisedDocument:=doc2, 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:="Author", IgnoreAllComparisonWarnings _
:=False
ActiveWindow.ShowSourceDocuments = wdShowSourceDocumentsBoth
End Sub
|