| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Run time error 462
Private Sub Start_Click()
ThisWorkbook.Activate Dim Word As New Word.Application Set Word = CreateObject("Word.Application") Word.Visible = True If (Word.Visible < True) Then Word.Visible = True Else End If Dim name, name2 As String Application.ScreenUpdating = False ' Turn off the screen updating Application.DisplayAlerts = False Word.Documents.Open (OfFile), ReadOnly:=True name = Word.ActiveDocument.name Word.Documents.Open (rfFile), ReadOnly:=True name2 = Word.ActiveDocument.name Word.Activate Word.Documents(name).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.Documents(OfFile).Close Word.Documents(rfFile).Close Set Word = Nothing Application.DisplayAlerts = True Application.ScreenUpdating = True ' Turn off the screen updating End Sub Debug stop at Word.CompareDocuments ,Display the remote server machine does not exist or is unavailable. |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Run time error 462
see if this fixes the problem I have 2003 whichhas a COMPARE method not a
COMPAREDOCUMENTS method. from Word.CompareDocuments to Word.activedocument.CompareDocuments "KK" wrote: Private Sub Start_Click() ThisWorkbook.Activate Dim Word As New Word.Application Set Word = CreateObject("Word.Application") Word.Visible = True If (Word.Visible < True) Then Word.Visible = True Else End If Dim name, name2 As String Application.ScreenUpdating = False ' Turn off the screen updating Application.DisplayAlerts = False Word.Documents.Open (OfFile), ReadOnly:=True name = Word.ActiveDocument.name Word.Documents.Open (rfFile), ReadOnly:=True name2 = Word.ActiveDocument.name Word.Activate Word.Documents(name).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.Documents(OfFile).Close Word.Documents(rfFile).Close Set Word = Nothing Application.DisplayAlerts = True Application.ScreenUpdating = True ' Turn off the screen updating End Sub Debug stop at Word.CompareDocuments ,Display the remote server machine does not exist or is unavailable. |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Run time error 462
HI Joel ,
I had try your way to fix problem , but it doesn't work .Anyway , thanks for your help . KK "Joel" wrote: see if this fixes the problem I have 2003 whichhas a COMPARE method not a COMPAREDOCUMENTS method. from Word.CompareDocuments to Word.activedocument.CompareDocuments "KK" wrote: Private Sub Start_Click() ThisWorkbook.Activate Dim Word As New Word.Application Set Word = CreateObject("Word.Application") Word.Visible = True If (Word.Visible < True) Then Word.Visible = True Else End If Dim name, name2 As String Application.ScreenUpdating = False ' Turn off the screen updating Application.DisplayAlerts = False Word.Documents.Open (OfFile), ReadOnly:=True name = Word.ActiveDocument.name Word.Documents.Open (rfFile), ReadOnly:=True name2 = Word.ActiveDocument.name Word.Activate Word.Documents(name).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.Documents(OfFile).Close Word.Documents(rfFile).Close Set Word = Nothing Application.DisplayAlerts = True Application.ScreenUpdating = True ' Turn off the screen updating End Sub Debug stop at Word.CompareDocuments ,Display the remote server machine does not exist or is unavailable. |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Run time error 462
How about modifying the line below in your code (added Word. before
Documents(name) and Documents(name2) ) Word.CompareDocuments OriginalDocument:=Documents(name), _ RevisedDocument:=Documents(name2), _ to Word.CompareDocuments OriginalDocument:=Word.Documents(name), _ RevisedDocument:=Word.Documents(name2), _ Keiji KK wrote: Private Sub Start_Click() ThisWorkbook.Activate Dim Word As New Word.Application Set Word = CreateObject("Word.Application") Word.Visible = True If (Word.Visible < True) Then Word.Visible = True Else End If Dim name, name2 As String Application.ScreenUpdating = False ' Turn off the screen updating Application.DisplayAlerts = False Word.Documents.Open (OfFile), ReadOnly:=True name = Word.ActiveDocument.name Word.Documents.Open (rfFile), ReadOnly:=True name2 = Word.ActiveDocument.name Word.Activate Word.Documents(name).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.Documents(OfFile).Close Word.Documents(rfFile).Close Set Word = Nothing Application.DisplayAlerts = True Application.ScreenUpdating = True ' Turn off the screen updating End Sub Debug stop at Word.CompareDocuments ,Display the remote server machine does not exist or is unavailable. |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Run time error 462
Hey kounoike , Thx a lot .This way was work .
"keiji kounoike" <"kounoike A | T ma.Pik" wrote: How about modifying the line below in your code (added Word. before Documents(name) and Documents(name2) ) Word.CompareDocuments OriginalDocument:=Documents(name), _ RevisedDocument:=Documents(name2), _ to Word.CompareDocuments OriginalDocument:=Word.Documents(name), _ RevisedDocument:=Word.Documents(name2), _ Keiji KK wrote: Private Sub Start_Click() ThisWorkbook.Activate Dim Word As New Word.Application Set Word = CreateObject("Word.Application") Word.Visible = True If (Word.Visible < True) Then Word.Visible = True Else End If Dim name, name2 As String Application.ScreenUpdating = False ' Turn off the screen updating Application.DisplayAlerts = False Word.Documents.Open (OfFile), ReadOnly:=True name = Word.ActiveDocument.name Word.Documents.Open (rfFile), ReadOnly:=True name2 = Word.ActiveDocument.name Word.Activate Word.Documents(name).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.Documents(OfFile).Close Word.Documents(rfFile).Close Set Word = Nothing Application.DisplayAlerts = True Application.ScreenUpdating = True ' Turn off the screen updating End Sub Debug stop at Word.CompareDocuments ,Display the remote server machine does not exist or is unavailable. |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Run time error 462
Thanks for your feedback.
Off the subject, it seems that your code has some redundant lines and unnecessary lines. Keiji KK wrote: Hey kounoike , Thx a lot .This way was work . "keiji kounoike" <"kounoike A | T ma.Pik" wrote: How about modifying the line below in your code (added Word. before Documents(name) and Documents(name2) ) Word.CompareDocuments OriginalDocument:=Documents(name), _ RevisedDocument:=Documents(name2), _ to Word.CompareDocuments OriginalDocument:=Word.Documents(name), _ RevisedDocument:=Word.Documents(name2), _ Keiji KK wrote: Private Sub Start_Click() ThisWorkbook.Activate Dim Word As New Word.Application Set Word = CreateObject("Word.Application") Word.Visible = True If (Word.Visible < True) Then Word.Visible = True Else End If Dim name, name2 As String Application.ScreenUpdating = False ' Turn off the screen updating Application.DisplayAlerts = False Word.Documents.Open (OfFile), ReadOnly:=True name = Word.ActiveDocument.name Word.Documents.Open (rfFile), ReadOnly:=True name2 = Word.ActiveDocument.name Word.Activate Word.Documents(name).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.Documents(OfFile).Close Word.Documents(rfFile).Close Set Word = Nothing Application.DisplayAlerts = True Application.ScreenUpdating = True ' Turn off the screen updating End Sub Debug stop at Word.CompareDocuments ,Display the remote server machine does not exist or is unavailable. |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| run time error 1004 general odbc error excel 2003 vba | Excel Programming | |||
| Visual Basic Error Run Time Error, Type Mismatch | Excel Discussion (Misc queries) | |||
| Error handling error # 1004 Run-time error | Excel Programming | |||
| Run Time Error 1004: Application or Object Defined Error | Excel Programming | |||
| run-time error '1004': Application-defined or object-deifined error | Excel Programming | |||
Linear Mode
