Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
ON OPEN VBA Code input incorrectly now excel sheet wont open | New Users to Excel | |||
Opening Excel, Book1 opens, remains open with other workbook open | Excel Discussion (Misc queries) | |||
excel 2003 saved file will not open without a blank workbook open | Excel Discussion (Misc queries) | |||
EXCEL wont open from Explorer, must open EXCEL then find file | Excel Discussion (Misc queries) | |||
Open Winword-file using a Excel 97 VBA macro | Excel Programming |