UnderCompareURLs ()
Dunkel doc1 som dokument, doc2 som dokument
Uppsättning doc1 = Documents.Open (”http://google.com/”)
Uppsättning 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: = " författare ", IgnoreAllComparisonWarnings _,
: =False
ActiveWindow.ShowSourceDocuments = wdShowSourceDocumentsBoth
Avsluta suben
|