Public Sub DialogFileFind()
 'Предоставление пользователю возможности найти файл.

	Dim Act As Long
	Dim HisDialog As Dialog
	
	With Dialogs (wdDialogFileFind)
		Debug.Print "Type - ", .Type, "Вызываемая процедура - ", .CommandName
		'Метод Update задает установки по умолчанию для ряда параметров.
		'Некоторые параметры сохраняют установки предыдущего вызова FileFind
		.Update
		
		'Предварительное задание параметров перед открытием диалогового окна.
		'Не все из заданных значений передаются в окно.
		.SearchName = "*.doc"
		.Name = "Ch6"
		.SearchPath = "e:\O2000\DS2000"
		.SubDir = 1
		.MatchCase = 1
		. DateCreatedFrom = "20.05.2000"
		.Author = "Vladimir Billig"
		.Text = "файлов"
		.Execute
		Act = . Show
		If Act = -1 Then MsgBox (Documents(1).Name)
		Debug.Print Act
	End With
	Set HisDialog = Dialogs (wdDialogFileFind)
		With HisDialog
			.Execute
			Act = . Show
		End With
End Sub