IHTMLDocument2 对象

该对象等同于 DOM 中的 document 对象。

属性/方法	意义
links	文档内链接集合 <A></A>

links 集合

属性/方法	意义
item([name],[index])	返回 A 标记对象

示例：删除当前文档的所有链接。

Sub DelLinks()
    Dim dc As IHTMLDocument2
    Dim i As Integer
    Set dc = ActiveDocument
    For i = dc.links.Length-1 To 0 Step -1
        dc.links(i).outerHTML = dc.links(i).innerText
    Next
End Sub