اختبار وجود مرجع محدد ثم اضافته اذا لم يكن موجود

[محمد طاهر عرفه]

هذا الكود للتأكد من وجود مرجع

Microsoft Word 11 object library

و اذا لم يكن موجود يتم اضافته بالكود

Dim Ref As Reference, mypath As String, myreffound As Boolean

myreffound = False
For Each Ref In References
   If Ref.Name = "WORD" Then
   myreffound = True
   End If
Next

If myreffound = False Then
        mypath = "C:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLB"
       Set Ref = References.AddFromFile(mypath)
End If

مع ملاحظة انه طبعا يمكن الاضافة من ملف موجود فى اي مسار

موضوع مرتبط

كيفية نقل المراجع بالكود و اضافتها ثانية,

http://www.officena.net/ib/index.php?showtopic=1885

[حاكم]

سلمت الأيادي .... وبارك الله فيك أستاذي الفاضل محمد