Permission Denied when creating a Word.Application

[VB400]

This works fine on a Win/NT box; however, I have a client who needs this code on a Win/XP box using VB6 and Office 97.

Make a reference to "Microsoft Word 8.0 Object Library"

Dim objWordApp As Word.Application
Set objWordApp = New Word.Application

The last line gets "Run-time error '70' Permission denied".

I'm logged in as the administrator.

Any ideas?

Thanks in advance! Tarek

 

[Swi]

Try this:

Dim Myw As Object
On Error Resume Next

' Check if Word is open
Set Myw = GetObject(, "Word.application&quot

' If Word is not open
If Myw Is Nothing Then
Set Myw = CreateObject("Word.Application&quot
Myw.Visible = True
End If Swi

 

[VB400]

Swi,

You didn't address the problem with Permission Denied! Regardless of New vs. CreateObject, the Permission Denied is still the problem.

Thanks anyway! Tarek