Public Sub WorkWithDialogs()
Dim dlg As Dialog
	'Открытие документа в диалоге с пользователем
	'Метод  Show ведет диалог и открывает документ
	Dialogs(wdDialogFileOpen). Show

	'Метод  Display ведет диалог, не открывая документа,
	'но позволяя получить имя файла.
	Set dlg = Dialogs (wdDialogFileOpen)
	If dlg. Display = -1 Then 'нажата кнопка Open
		Documents.Open FileName:=dlg.Name
	End If
End Sub