Private Sub Start_Click()


Dim Word As Object
Set Word = CreateObject("Word.application")

Dim name, name2 As String

Application.DisplayAlerts = False
Word.Documents.Open (OfFile), ReadOnly:=True
Word.Visible = True
name = Word.ActiveDocument.name

Word.Documents.Open (rfFile), ReadOnly:=True
Word.Visible = True
name2 = Word.ActiveDocument.name

Word.Activate
Application.CompareDocuments OriginalDocument:=Documents(name), _
RevisedDocument:=Documents(name2), _
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:="KkK", IgnoreAllComparisonWarnings:=False

ActiveWindow.ShowSourceDocuments = wdShowSourceDocumentsBoth


End Sub

How can i compare two word document in excel , then display result in
Microsoft word???

Isn't that what your macro is doing? what else do you need?

"KK" wrote:

Private Sub Start_Click()


Dim Word As Object
Set Word = CreateObject("Word.application")

Dim name, name2 As String

Application.DisplayAlerts = False
Word.Documents.Open (OfFile), ReadOnly:=True
Word.Visible = True
name = Word.ActiveDocument.name

Word.Documents.Open (rfFile), ReadOnly:=True
Word.Visible = True
name2 = Word.ActiveDocument.name

Word.Activate
Application.CompareDocuments OriginalDocument:=Documents(name), _
RevisedDocument:=Documents(name2), _
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:="KkK", IgnoreAllComparisonWarnings:=False

ActiveWindow.ShowSourceDocuments = wdShowSourceDocumentsBoth


End Sub

How can i compare two word document in excel , then display result in
Microsoft word???

Consider this:
http://www.softinterface.com/MD%5CDo...n-Software.htm

It's free and it works great!

HTH,
Ryan---

--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.


"Joel" wrote:

Isn't that what your macro is doing? what else do you need?

"KK" wrote:

Private Sub Start_Click()


Dim Word As Object
Set Word = CreateObject("Word.application")

Dim name, name2 As String

Application.DisplayAlerts = False
Word.Documents.Open (OfFile), ReadOnly:=True
Word.Visible = True
name = Word.ActiveDocument.name

Word.Documents.Open (rfFile), ReadOnly:=True
Word.Visible = True
name2 = Word.ActiveDocument.name

Word.Activate
Application.CompareDocuments OriginalDocument:=Documents(name), _
RevisedDocument:=Documents(name2), _
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:="KkK", IgnoreAllComparisonWarnings:=False

ActiveWindow.ShowSourceDocuments = wdShowSourceDocumentsBoth


End Sub

How can i compare two word document in excel , then display result in
Microsoft word???

The application.CompareDocuments wasn't not work .....why ?

"Joel" wrote:

Isn't that what your macro is doing? what else do you need?

"KK" wrote:

Private Sub Start_Click()


Dim Word As Object
Set Word = CreateObject("Word.application")

Dim name, name2 As String

Application.DisplayAlerts = False
Word.Documents.Open (OfFile), ReadOnly:=True
Word.Visible = True
name = Word.ActiveDocument.name

Word.Documents.Open (rfFile), ReadOnly:=True
Word.Visible = True
name2 = Word.ActiveDocument.name

Word.Activate
Application.CompareDocuments OriginalDocument:=Documents(name), _
RevisedDocument:=Documents(name2), _
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:="KkK", IgnoreAllComparisonWarnings:=False

ActiveWindow.ShowSourceDocuments = wdShowSourceDocumentsBoth


End Sub

How can i compare two word document in excel , then display result in
Microsoft word???

Private Sub Start_Click()


Dim Word As Object
Set Word = CreateObject("Word.application")

Dim name, name2 As String

Application.DisplayAlerts = False
Word.Documents.Open (OfFile), ReadOnly:=True
Word.Visible = True
name = Word.ActiveDocument.name

Word.Documents.Open (rfFile), ReadOnly:=True
Word.Visible = True
name2 = Word.ActiveDocument.name

Word.Activate
Word.Documents(rfFile).Select
Word.CompareDocuments OriginalDocument:=Documents(name), _
RevisedDocument:=Documents(name2), _
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:="KK", IgnoreAllComparisonWarnings:=False

Word.ActiveWindow.ShowSourceDocuments = wdShowSourceDocumentsBoth
Word.Visible = True

Word.Documents(OfFile).Close
Word.Documents(rfFile).Close
Application.DisplayAlerts = True
Word.Quit
Set Word = Nothing



End Sub


Now i can compare the documents , but only once ,then show the run time
error "462",The remote server machine does not exist or is unavailable.