Count Number of Anchors

Home Programming Expression Web VBA Topic Index

Object: WebDesigner.Application.ActiveDocument. _
Links

Reference (to first link):

Dim objLinks As IHTMLElement
Set objLinks = WebDesigner.Application. _ 
ActiveDocument.Links.Item(0)

This function will count all of the <a> elements. These are usually called either links or anchors.

Example:

Function GetNumberOfLinks() As Integer
   'Tested 20090314
   On Error GoTo errHandler1
   GetNumberOfLinks = WebDesigner.Application. _
   ActiveDocument.Links.Length
   Exit Function
errHandler1:
   'Notify user of failure.
   MsgBox "GetNumberOfLinks has failed", _
   vbCritical, "Function Failure"
End Function