Happy New Year!

What is going on?

My scenario:
I have an Excel Userform with 2 command buttons.
Commandbutton 1: opens an excel file (this works)
Commandbutton 2: NEEDS to open a word document (problem)

How can I open a word document from this Excel Userform?
Does Excel open Excel related files only?

This is the code to open the Excel file: (this works)
Private Sub cmd1_Click()
ChDir "J:\Myrna"
Workbooks.Open Filename:="J:\Myrna\openexcel-1.xls"
End Sub

This is the code to open the word file: (problem)
Private Sub cmd2_Click()
ChDir "J:\Myrna"
Workbooks.Open Filename:="J:\Myrna\openword-1.doc"
End Sub
ERROR MESSAGE: runtime error: file format is not valid

Thanks in advacnce for your help & have a happy day!



*** Sent via Developersdex http://www.developersdex.com ***

Private Sub cmd2_Click() Dim WordObj As Object

Set WordObj = CreateObject("Word.Application")

WordObj.Documents.Open ("J:\Myrna\openword-1.doc")

WordObj.Visible = True

Set WordObj = Nothing
End Sub


HTH,
--
Gary Brown

If this post was helpful, please click the ''Yes'' button next to ''Was this
Post Helpfull to you?''.


"Myrna Rodriguez" wrote:

Happy New Year!

What is going on?

My scenario:
I have an Excel Userform with 2 command buttons.
Commandbutton 1: opens an excel file (this works)
Commandbutton 2: NEEDS to open a word document (problem)

How can I open a word document from this Excel Userform?
Does Excel open Excel related files only?

This is the code to open the Excel file: (this works)
Private Sub cmd1_Click()
ChDir "J:\Myrna"
Workbooks.Open Filename:="J:\Myrna\openexcel-1.xls"
End Sub

This is the code to open the word file: (problem)
Private Sub cmd2_Click()
ChDir "J:\Myrna"
Workbooks.Open Filename:="J:\Myrna\openword-1.doc"
End Sub
ERROR MESSAGE: runtime error: file format is not valid

Thanks in advacnce for your help & have a happy day!



*** Sent via Developersdex http://www.developersdex.com ***

Thanks much for your help!
It works very smooth.

happy day!!

*** Sent via Developersdex http://www.developersdex.com ***