5,138
社区成员
发帖
与我相关
我的任务
分享
Sub Test()
FindBookmark ("Bookmark1")
End Sub
Sub FindBookmark(sName)
Dim objBookmark As Bookmark
For Each objBookmark In ActiveDocument.Bookmarks
If objBookmark.Name = sName Then
MsgBox "Bookmark " & sName & " found!"
Exit Sub
End If
Next
MsgBox "Bookmark " & sName & " not found!"
End Sub
Sub Test()
FindBookmark ("Bookmark1")
End Sub
Sub FindBookmark(sName)
Dim objBookmark As Bookmark
For Each objBookmark In ActiveDocument.Bookmarks
If objBookmark.Name = sName Then
MsgBox "Bookmark " & sName & " found!"
Exit Sub
End If
Next
MsgBox "Bookmark " & sName & " not found!"
End Sub