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


Пример 5.2


Public Sub AddCriteria() 'Добавление критериев поиска файлов With Application.FileSearch 'Первый критерий .PropertyTests.Add name:="Дата создания", _ Condition:=msoConditionAnytimeBetween, _ Value:="1/10/1999", SecondValue:="1/06/2000" 'Второй критерий .PropertyTests.Add name:="Размер", _ Condition:=msoConditionMoreThan, _ Value:=200000, Connector:=msoConnectorOr

End With End Sub

Листинг 5.2.

Закрыть окно




Начало  Назад  Вперед