Attribute VB_Name = "Module1"
'■　マクロ５００連発＜第２段＞
'
'　参照可能なライブラリ情報を取得する
'
'  Copyright(C) 2000 Sunago
'

Option Explicit

Sub Macro1()
Dim wkString As String
Dim a

    wkString = ""
    'アクティブなVBProjectの参照可能なライブラリを参照する
    For Each a In Application.VBE.ActiveVBProject.References
        If wkString <> "" Then
            '説明とバージョンを取得する
            If a.Description <> "" Then
                wkString = wkString & vbLf & a.Description & _
                    " Rev:" & a.Major & "." & a.Minor
              Else
                wkString = wkString & vbLf & a.Name & _
                    " Rev:" & a.Major & "." & a.Minor
            End If
          Else
            If a.Description <> "" Then
                wkString = a.Description & _
                    " Rev:" & a.Major & "." & a.Minor
              Else
                wkString = a.Name & _
                    " Rev:" & a.Major & "." & a.Minor
            End If
        End If
    Next
    MsgBox wkString, vbOKOnly, "参照可能なﾗｲﾌﾞﾗﾘﾌｧｲﾙ"
End Sub