Конференция VBStreets

**i'm pissed** » 02.01.2005 (Вс) 21:36

Код: Выделить всё: Function CreateReference&(FileName$, ProjectName$) Dim Ref As Object On Error GoTo CreateReferenceError Set Ref = TestReference(FileName$) If Ref Is Nothing Then Set Ref = ActiveDocument.VBProject.References.AddFromFile(FileName) CreateReference = 0 Else CreateReference = -1 End If ProjectName$ = Ref.Name Exit Function Call CreateReference("C:\Program Files\Microsoft Office\Office10\MSWORD.OLB", "project1")

так пытаюсь подключить ссылку (прог
рамнно) че то не хочет работат... помогите

**tyomitch** » 02.01.2005 (Вс) 22:28

Проверь, стоит ли галка в "Сервис -> Макрос -> Безопасность -> Надёжные источники -> Доверять доступ к Visual Basic Project"

**i'm pissed** » 02.01.2005 (Вс) 23:04

поставил все равно не прет

**tyomitch** » 02.01.2005 (Вс) 23:22

Что именно не работает? Возникает ошибка? Если да, то какая именно? Или всё работает, но ссылка не появляется?

**i'm pissed** » 02.01.2005 (Вс) 23:35

а ну ошибка указывает на то что ссылка не подключена

**tyomitch** » 02.01.2005 (Вс) 23:42

Да в какой строке ошибка-то?

**i'm pissed** » 02.01.2005 (Вс) 23:49

ошибка вообще выходит вдругом коде в дргом но его работоспособность напримую зависит от ссылки

ссылка