Remote Machine not available
 

Sometimes the code below encounters a runtime error (462) at the line
"Word.Application.Visible." That error says: "The remote server
machine does not exist or is not available.

What might cause this error? Alan

Function StartWord() As Boolean
StartWord = False
' Try to open an existing instance of Word
On Error Resume Next
Set Word = GetObject(, "Word.Application")
On Error GoTo 0
' If Word is not started, start a new instance
If Word Is Nothing Then
Set Word = GetObject("", "Word.Application")
End If

Word.Application.Visible = True

StartWord = True
End Function

Remote Machine not available
 

Hello Alan
If the GetObject method returns an error, then you must use the CreateObject
method.
Your code uses the GetObject twice.
You should amend to:
On Error Resume Next
Set Word = GetObject(, "Word.Application")
' If Word is not started, start a new instance
If Err < 0 Then
Set Word = CreateObject("Word.Application")
End If
On Error GoTo 0

Also, you should avoid using variables with names that could refer to an
existing object in Excel:
Set AppWord =
instead of
Set Word =

HTH
Cordially
Pascal

"Alan" a écrit dans le message de news:
...
Sometimes the code below encounters a runtime error (462) at the line
"Word.Application.Visible." That error says: "The remote server
machine does not exist or is not available.

What might cause this error? Alan

Function StartWord() As Boolean
StartWord = False
' Try to open an existing instance of Word
On Error Resume Next
Set Word = GetObject(, "Word.Application")
On Error GoTo 0
' If Word is not started, start a new instance
If Word Is Nothing Then
Set Word = GetObject("", "Word.Application")
End If

Word.Application.Visible = True

StartWord = True
End Function