Closing Microsoft Word : problem using the Word.Global functions

[balip]

Hello there, could (please) anyone help me with this annoying problem?

I'm making an application that has to put data on a simple Microsoft Word 2000 document. I use this code for it...

--Begin Code--
dim objWrdApp As Word.Application

On Error Resume Next

Set objWrdApp = GetObject(, "Word.Application.9")
If Err.Number = 429 Then
Set objWrdApp = CreateObject("Word.Application.9")
Err.Clear
End If

--End Code--

My application runs well until I -close- Microsoft Word myself or by code...

When I try to use the Word reference again in the same application (I didn't close it and it has ran the above declarations again), it gives me this Error message:

**********
Run-time error '462':
The remote server machine does not exist or is unavailable
**********

My application craches on all the code that uses the Word(.Global) functions, all the rest is OK.

-Begin Code-
With .ActiveDocument.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = CentimetersToPoints(0.2) <-- CRASH!
.BottomMargin = 7.1 '0.25 cm <-- Works fine without the function...
-End Code-

I don't know what the problem is but I need a solution QUICK cause I've got to make a deadline... (AAaargh)

Can Someone help me?

Thank You for Your time!
Bart Lipkens

[Joacim Andersson]

Well you're using GetObject and that's OK but then you only use CreateObject if Error 429 was raised. Change the code to this:

Dim objWrdApp As Word.Application

On Error Resume Next
Set objWrdApp = GetObject(, "Word.Application.9") 
If Err.Number <> 0 Then 
    Err.Clear 
    Set objWrdApp = CreateObject("Word.Application.9") 
End If

Good luck!

[balip]

Joacim, thank You for your response, but it still doesn't work... It's just like he doesn't want to 'reinitialise' the Word reference when I've closed Word myself...

I can open Word again by code, put data in it, but when I want to use the Word(.Global) functions like the CentimetersToPoints function it just crashes, very stupid and I don't know why...




[Edited by balip on 08-30-2000 at 03:11 AM]