超链接就检测不了了，但命令按钮就可以:

Dim obj As Object, bNoButton As Boolean

On Error Resume Next
For Each obj In Me.Controls
obj.Cancel = obj.Cancel
If Err.Number = 0 Then ' 没有发生错误，则该控件为命令按钮
MsgBox "该窗口存在命令按钮。"
Else
bNoButton = True
End If
Next

If bNoButton Then
MsgBox "该窗口没有任何命令按钮!"
End If

[此贴子已经被作者于2006-9-2 1:27:02编辑过]