Основы офисного программирования и документы Word

         

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.
Закрыть окно
Содержание раздела