Private Sub mnuImage_Insert_Click()
    Set wApp = CreateObject("Word.Application.16")
 
    With wApp
        ' --------------------------------------------- Word anzeigen
        .Application.Visible = True
        .Application.Activate
        ' --------------------------------------------- Word Dokument laden und 
        ' anzeigen
        .Documents.Open sFile
 
        ' ???????
        ' ??????
 
        ' --------------------------------------------- Word wieder beenden
        .Application.Quit
        Set wApp = Nothing
    End With
End Sub

ShellExecute(hWnd, vbNullString, sFile, vbNullString, vbNullString, _
  vbNormalFocus)

Zitat:

NULL The default verb is used, if available. If not, the "open" verb is used. If neither verb is available, the system uses the first verb listed in the registry.