Opening a word doc with cmdlgOpenFile

How do i open a Word or Excel document in its environment
with a cmdlgOpenFile
poireAsked:
Who is Participating?
 
MirkwoodConnect With a Mentor Commented:
First use the Common Dialog control to create a common dialog.
Now start the selected document using the function "Shell". Just pass the document name as application to start.
0
 
dbienerCommented:
'get file name from common dialog control ( you can use api calls if you want)

    CommonDialog1.CancelError = True
    On Error GoTo CatchError
    CommonDialog1.Flags = cdlOFNHideReadOnly
    CommonDialog1.Filter = "Word Files (*.doc)|*.doc"
    CommonDialog1.FilterIndex = 1
    CommonDialog1.ShowOpen

    'now open the file in word (easy)
    shell "C:\Program Files\Microsoft Office\Office\WINWORD.EXE CommonDialog1.filename"

   
CatchError:
    'user clicked on cancel
    Exit Sub



    'or better way
    Private Const SW_SHOWNORMAL = 1
    Declare Function ShellExecute Lib "SHELL" (ByVal hwnd%, _
       ByVal lpszOp$, ByVal lpszFile$, ByVal lpszParams$, _
       ByVal lpszDir$, ByVal fsShowCmd%) As Integer

    Dim Scr_hDC As Long
    Scr_hDC = GetDesktopWindow()
    StartDoc = ShellExecute(Scr_hDC, "Open", _  
        CommonDialog1.filename, "", "C:\", SW_SHOWNORMAL)


0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.