Dim Act As Long Dim
|
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 |
| Листинг 1.12. |
| Закрыть окно |
