В данном примере:Public Function ExistRef(Name As String, - Ответ на вопрос по Прог №1223576

Вопрос

В данном примере: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 MyRefEnd Functionпараметр - MyRef является выходным и задает:

• объект класса Member
• объект класса Reference
• объект класса Lines
• объект класса Module

Ответ