Controlling Word from Excel

P

Paul Haywood

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
 
P

papou

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

HTH
Cordially
Pascal
 
P

Paul Haywood

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
 
P

papou

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
 
Top