验证当前站点层次结构中的所有超链接。“断开的超链接”报表使用 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