Sub CompareURLs ()
Schemerige doc1 als Document, doc2 als Document
Reeks doc1 = Documents.Open („http://google.com/“)
Reeks doc2 = Documents.Open („http://yahoo.com/“)
Application.CompareDocuments OriginalDocument: =doc1, RevisedDocument: =doc2, Bestemming: = _
wdCompareDestinationNew, Granularity: =wdGranularityWordLevel, _
CompareFormatting: =True, CompareCaseChanges: =True, CompareWhitespace: = _
Waar, CompareTables: =True, CompareHeaders: =True, CompareFootnotes: =True, _
CompareTextboxes: =True, CompareFields: =True, CompareComments: =True, _
CompareMoves: =True, RevisedAuthor: = " Auteur ", IgnoreAllComparisonWarnings _
: =False
ActiveWindow.ShowSourceDocuments = wdShowSourceDocumentsBoth
Sub van het eind
|