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

Name As String, Refery As


Public Function ExistRef( Name As String, Refery As Object) As Boolean 'Определяет наличие ссылки с именем Name в коллекции References 'Возвращает ссылку при ее обнаружении Dim MyRef As Object Set Refery = Nothing ExistRef = False For Each MyRef In ActiveDocument.VBProject.References If MyRef.Name = Name Then Set Refery = MyRef ExistRef = True Exit For End If Next MyRef End Function
Листинг 4.9.
Закрыть окно
Содержание раздела