用代码查看所有引用

时　间:2008-05-30 23:10:28
作　者:十段   ID：563  城市：上海
摘　要:'用代码查看所有引用
正　文:

Function ReferenceInfo()

   Dim strMessage As String
   Dim strTitle As String
   Dim refItem As Reference
  
   On Error Resume Next
  
   For Each refItem In References
      If refItem.IsBroken Then
         strMessage = "Missing Reference:" & vbCrLf & refItem.FullPath
      Else
         strMessage = "Reference: " & refItem.Name & vbCrLf _
            & "Location: " & refItem.FullPath & vbCrLf
      End If
      Debug.Print strMessage
   Next refItem

End Function