Open Winword from Excel
 

Hi everyone
I found a previous post which said a MSWord document
could be opened and viewed by clicking a Command button
in Excel.
The post had this comment included, which I don't think I
fully understand.
"Assuming winword.exe is in your path statement, if not,
just include the full path statement to winword.exe."
I've included the original code plus code I've modified
to suit my folder location, names etc.
On running my code I receive an error 53 and the last
line is highlighted "Shell myApp........"
I've checked the Spelling, Paths and Capital case
characters.
Have I included the Path Statement correctly.?
Should it be on a seperate line?

Post Code
Private Sub CommandButton1_Click()
Dim myApp As String, myDoc As String
myApp = "winword.exe"
myDoc = """" & "C:\My Documents\myword.doc" & """"
Shell myApp & myDoc, vbMaximizedFocus
End Sub

My code.
Private Sub Open_Excel_Help()
Dim myApp As String, myDoc As String
myApp = "C:\Program Files\Microsoft
Office\Office10\WINWORD.EXE"
myDoc = """" & "C:\DATA\Word\EXCEL HELP.doc"
& """"
Shell myApp & myDoc, vbMaximizedFocus
End Sub

TIA
Bob Christie

Open Winword from Excel
 

Another option that may work for you:

Option Explicit

Sub testme01()

Dim oWord As Object
Dim myWordDocument As String
Dim testStr As String

myWordDocument = "C:\DATA\Word\EXCEL HELP.doc"

testStr = ""
On Error Resume Next
testStr = Dir(myWordDocument)
On Error GoTo 0
If testStr = "" Then
MsgBox myWordDocument & " doesn't exist"
Exit Sub
End If

On Error Resume Next
Set oWord = GetObject(, "Word.Application")
If Err Then
Set oWord = CreateObject("Word.Application")
End If

oWord.Visible = True
oWord.Documents.Open myWordDocument
AppActivate "Microsoft Word"

End Sub

Robert Christie wrote:

Hi everyone
I found a previous post which said a MSWord document
could be opened and viewed by clicking a Command button
in Excel.
The post had this comment included, which I don't think I
fully understand.
"Assuming winword.exe is in your path statement, if not,
just include the full path statement to winword.exe."
I've included the original code plus code I've modified
to suit my folder location, names etc.
On running my code I receive an error 53 and the last
line is highlighted "Shell myApp........"
I've checked the Spelling, Paths and Capital case
characters.
Have I included the Path Statement correctly.?
Should it be on a seperate line?

Post Code
Private Sub CommandButton1_Click()
Dim myApp As String, myDoc As String
myApp = "winword.exe"
myDoc = """" & "C:\My Documents\myword.doc" & """"
Shell myApp & myDoc, vbMaximizedFocus
End Sub

My code.
Private Sub Open_Excel_Help()
Dim myApp As String, myDoc As String
myApp = "C:\Program Files\Microsoft
Office\Office10\WINWORD.EXE"
myDoc = """" & "C:\DATA\Word\EXCEL HELP.doc"
& """"
Shell myApp & myDoc, vbMaximizedFocus
End Sub

TIA
Bob Christie

--

Dave Peterson

Open Winword from Excel
 

Thanks Dave, Worked a treat.
I like the MsgBox part, I just hope it never comes up.
A lot of work went into creating an indexed help file.

Bob Christie

-----Original Message-----
Another option that may work for you:

Option Explicit

Sub testme01()

Dim oWord As Object
Dim myWordDocument As String
Dim testStr As String

myWordDocument = "C:\DATA\Word\EXCEL HELP.doc"

testStr = ""
On Error Resume Next
testStr = Dir(myWordDocument)
On Error GoTo 0
If testStr = "" Then
MsgBox myWordDocument & " doesn't exist"
Exit Sub
End If

On Error Resume Next
Set oWord = GetObject(, "Word.Application")
If Err Then
Set oWord = CreateObject("Word.Application")
End If

oWord.Visible = True
oWord.Documents.Open myWordDocument
AppActivate "Microsoft Word"

End Sub

Robert Christie wrote:

Hi everyone
I found a previous post which said a MSWord document
could be opened and viewed by clicking a Command button
in Excel.
The post had this comment included, which I don't
think I
fully understand.
"Assuming winword.exe is in your path statement, if
not,
just include the full path statement to winword.exe."
I've included the original code plus code I've modified
to suit my folder location, names etc.
On running my code I receive an error 53 and the last
line is highlighted "Shell myApp........"
I've checked the Spelling, Paths and Capital case
characters.
Have I included the Path Statement correctly.?
Should it be on a seperate line?

Post Code
Private Sub CommandButton1_Click()
Dim myApp As String, myDoc As String
myApp = "winword.exe"
myDoc = """" & "C:\My Documents\myword.doc"
& """"
Shell myApp & myDoc, vbMaximizedFocus
End Sub

My code.
Private Sub Open_Excel_Help()
Dim myApp As String, myDoc As String
myApp = "C:\Program Files\Microsoft
Office\Office10\WINWORD.EXE"
myDoc = """" & "C:\DATA\Word\EXCEL HELP.doc"
& """"
Shell myApp & myDoc, vbMaximizedFocus
End Sub

TIA
Bob Christie

--

Dave Peterson

.