验证当前站点层次结构中的所有超链接。“断开的超链接”报表使用 VerifyAllLinks 方法来显示任何包含断开超链接的网页。
expression.VerifyAllLinks
expression 必选。返回“应用于”列表中的对象之一的表达式。
下列示例创建对活动站点窗口的引用,并调用 VerifyAllLinks 方法来检查当前项目中是否存在断开的超链接。然后,活动站点窗口会切换到“断开的超链接”报表视图。
Sub VerifyLinks()
'Verifies broken links in the current view
    Dim objApp As FrontPage.Application
    Dim objWebwdw As WebWindowEx
    Set objApp = FrontPage.Application
    Set objWebwdw = objApp.ActiveWebWindow
    'Verify all links in the current web.
    objWebwdw.VerifyAllLinks
End Sub