I am trying to open a Word document from a toolbar I have constructed
in Excel.

I would like my code to check to see whether an instance of Word is
already running and if so just open the document specified in
'Documents.Open Filename:="

I'm having quite a bit of trouble with this at the moment so any help
would be appreciated.

Thanks

Hi Paul
On Error Resume Next
Set objWord = GetObject(, "Word.Application")
If Err < 0 Then Set objWord = CreateObject("Word.Application")

HTH
Cordially
Pascal

"Paul Haywood" a écrit dans le message de
om...
I am trying to open a Word document from a toolbar I have constructed
in Excel.

I would like my code to check to see whether an instance of Word is
already running and if so just open the document specified in
'Documents.Open Filename:="

I'm having quite a bit of trouble with this at the moment so any help
would be appreciated.

Thanks

Thanks for your reply and this does help but I'm having inconsistent
results opening the Word document, sometimes it opens and sometimes it
doesn't. I have included the code for your perusal. Any help would
be greatly appreciated.

Sub Open_Tips()

On Error Resume Next

Set objWord = GetObject(, "Word.Application")

If Err < 0 Then Set objWord = CreateObject("Word.Application")

objWord.Visible = True
objWord.Activate

ChangeFileOpenDirectory "M:\Finance\General\Management
Information\Extras\"
Documents.Open Filename:="""XL Tips.doc""",
ConfirmConversions:=False, _
ReadOnly:=True, AddToRecentFiles:=False, PasswordDocument:="",
_
PasswordTemplate:="", Revert:=False,
WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto

objWord = Nothing

End Sub

Regards

"papou" wrote in message ...
Hi Paul
On Error Resume Next
Set objWord = GetObject(, "Word.Application")
If Err < 0 Then Set objWord = CreateObject("Word.Application")

HTH
Cordially
Pascal

"Paul Haywood" a écrit dans le message de
om...
I am trying to open a Word document from a toolbar I have constructed
in Excel.

I would like my code to check to see whether an instance of Word is
already running and if so just open the document specified in
'Documents.Open Filename:="

I'm having quite a bit of trouble with this at the moment so any help
would be appreciated.

Thanks

Hi Paul
Some slight amendments/suggestions:
1 - objWord.Activate is not necessary
2 - What is the ChangeFileOpenDirectory?
I would suggest that this is not necessary since you could include the path
in: the opening process.
3 - When opening the file you are not using the objWord so this may be the
reason for its not working properly.
Therefore I would suggest:
objWord.Documents.Open Filename:="M:\Finance\General\Management_
Information\Extras\XL Tips.doc"

HTH
Cordially
Pascal

"Paul Haywood" a écrit dans le message de
om...
Thanks for your reply and this does help but I'm having inconsistent
results opening the Word document, sometimes it opens and sometimes it
doesn't. I have included the code for your perusal. Any help would
be greatly appreciated.

Sub Open_Tips()

On Error Resume Next

Set objWord = GetObject(, "Word.Application")

If Err < 0 Then Set objWord = CreateObject("Word.Application")

objWord.Visible = True
objWord.Activate

ChangeFileOpenDirectory "M:\Finance\General\Management
Information\Extras\"
Documents.Open Filename:="""XL Tips.doc""",
ConfirmConversions:=False, _
ReadOnly:=True, AddToRecentFiles:=False, PasswordDocument:="",
_
PasswordTemplate:="", Revert:=False,
WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto

objWord = Nothing

End Sub

Regards

"papou" wrote in message
...
Hi Paul
On Error Resume Next
Set objWord = GetObject(, "Word.Application")
If Err < 0 Then Set objWord = CreateObject("Word.Application")

HTH
Cordially
Pascal

"Paul Haywood" a écrit dans le message de
om...
I am trying to open a Word document from a toolbar I have constructed
in Excel.

I would like my code to check to see whether an instance of Word is
already running and if so just open the document specified in
'Documents.Open Filename:="

I'm having quite a bit of trouble with this at the moment so any help
would be appreciated.

Thanks