Sub CompareURLs ()
Тусклое doc1 как документ, doc2 как документ
Установите doc1 = Documents.Open («http://google.com/ ")
Установите doc2 = Documents.Open («http://yahoo.com/ ")
Application.CompareDocuments OriginalDocument: =doc1, RevisedDocument: =doc2, назначение: = _
wdCompareDestinationNew, Granularity: =wdGranularityWordLevel, _
CompareFormatting: =True, CompareCaseChanges: =True, CompareWhitespace: = _
True, CompareTables: =True, CompareHeaders: =True, CompareFootnotes: =True, _
CompareTextboxes: =True, CompareFields: =True, CompareComments: =True, _
CompareMoves: =True, RevisedAuthor: = " автор ", _ IgnoreAllComparisonWarnings
: =False
ActiveWindow.ShowSourceDocuments = wdShowSourceDocumentsBoth
Подводная лодка конца
|