Sub P1()
'Чтобы было проще код писать (чтобы выскакивали подсказки после того
'как точку ставите) - подключите библиотеку Word:
'Tools - References... - Microsoft Word Object Library.
'Обращаться к программе Word будем через переменную Ворд.
Dim wd As New Word.Application
wd.Visible = True
'Собственно работа с диалоговым окном
With wd.FileDialog(msoFileDialogFilePicker)
    .Show
    Debug.Print .SelectedItems(1)
End With
'Закрываем программу Word.
wd.Quit
'Не знаю, зачем, ну и это действие сделаем.
Set wd = Nothing
'Здесь дальше код.
End Sub

quote:

---

Busine2009

Public Sub openDoc()
    Dim visApp As Visio.Application
    Set visApp = Application
    Dim visDoc As Visio.Document
    visApp.Application.DoCmd (VisUICmds.visCmdFileOpen)
    Set docObj = visApp.ActiveDocument
End Sub

Private Declare Function GetOpenFileName _
 Lib "COMDLG32.DLL" Alias "GetOpenFileNameA" _
 (pOpenfilename As OPENFILENAME) As Long
Private Declare Function GetSaveFileName _
 Lib "COMDLG32.DLL" Alias "GetSaveFileNameA" _
 (pOpenfilename As OPENFILENAME) As Long

' Объявление структур

Private Type OPENFILENAME
 lStructSize As Long
 hwndOwner As Long
 hInstance As Long
 lpstrFilter As String
 lpstrCustomFilter As String
 nMaxCustFilter As Long
 nFilterIndex As Long
 lpstrFile As String
 nMaxFile As Long
 lpstrFileTitle As String
 nMaxFileTitle As Long
 lpstrInitialDir As String
 lpstrTitle As String
 Flags As Long
 nFileOffset As Integer
 nFileExtension As Integer
 lpstrDefExt As String
 lCustData As Long
 lpfnHook As Long
 lpTemplateName As String
End Type

' И собственно использование

Sub GetFileFromAPI ()
 Dim OFN As OPENFILENAME
 With OFN
 .lStructSize = Len(OFN) ' Size of structure. 
 .nMaxFile = 260 ' Size of buffer. 
 ' Create buffer.
 .lpstrFile = String(.nMaxFile - 1, 0) 
 Ret = GetOpenFileName(OFN) ' Call function. 
 If Ret <> 0 Then ' Non-zero is success. 
 ' Find first null char. 
 n = InStr(.lpstrFile, VbNullChar) 
 ' Return what's before it. 
 MsgBox Left(.lpstrFile, n - 1) 
 End If
 End With
End Sub