With Dialogs(wdDialogFileOpen)

    .Name = "newname"

    .Show

End With

Set dlgSaveAs = Application.FileDialog(2)

Dim FD As FileDialog

'определяем внешний вид диалогового окна

Set FD = Application.FileDialog(msoFileDialogOpen)

'или используем следующий синтаксис для выбора ПАПКИ

'Set FD=Application.FileDialog(msoFileDialogFolderPicker)

FD.Title = " Загрузка некоего документа Ж:)"

FD.Filters.Add "Все файлы", "*.*"

FD.ButtonName = "Загрузить!"

FD.AllowMultiSelect = False

'если что-то выбрано

If FD.Show = -1 Then

 'заменяем текущий текст выбранным доком

 ActiveDocument.Content.InsertFile FD.SelectedItems(1)

End If

Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (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

 

Private Sub Form_Initialize()

    'KPD-Team 1998

    'URL: http://www.allapi.net/

    'E-Mail: KPDTeam@Allapi.net

    Dim OFName As OPENFILENAME

    OFName.lStructSize = Len(OFName)

    'Select a filter

    OFName.lpstrFilter = "Text Files (*.txt)" + Chr$(0) + "*.txt" + Chr$(0) + "All Files (*.*)" + Chr$(0) + "*.*" + Chr$(0)

    'create a buffer for the file

    OFName.lpstrFile = Space$(254)

    'set the maximum length of a returned file

    OFName.nMaxFile = 255

    'Create a buffer for the file title

    OFName.lpstrFileTitle = Space$(254)

    'Set the maximum length of a returned file title

    OFName.nMaxFileTitle = 255

    'Set the initial directory

    OFName.lpstrInitialDir = "C:\"

    'Set the title

    OFName.lpstrTitle = "Open File - KPD-Team 1998"

    'No flags

    OFName.flags = 0

 

    'Show the 'Open File'-dialog

    If GetOpenFileName(OFName) Then

        MsgBox "File to Open: " + Trim$(OFName.lpstrFile)

    Else

        MsgBox "Cancel was pressed"

    End If

End Sub

Dim Dlg As CommonDlg

 

Set Dlg= New CommonDlg

Dlg.DialogTitle = "Сохранение документа"

 

Dlg.InitDir = Options.DefaultFilePath(wdDocumentsPath)

 

Dlg.Filter = "MS Word (*.doc)|*.doc|RichTextFormat (*.rtf)|*.rtf|" & _

"Текст(*.txt)|*.txt|Гипертекст (*.html)|*.htm*|Текст DOS Dos (*.txt)|*.txt"

 

Dlg.ShowSave

 

'так же доступны методы:

'открытие док

' Dlg.ShowOpen

'выбор фонта

' Dlg.ShowFont

'выбор цвета

' Dlg.ShowColor

Set wshell = CreateObject("Shell.Application")

'игнорируем ошибку, если нажата Cancel

On Error Resume Next

Set iPath = wshell.BrowseForFolder(&H0, "Выберите папку, в которой находятся результаты исследований:", &H1, "c:\Users")

If Not iPath Is Nothing Then

  FolderPath = iPath.Self.Path 'вариант для WINNT

 'FolderPath = iPath.Items.Item.Path 'универсальный вариант для WIN9х/NT

Else

'нажата Cancel

Endif