一个书签的疑问

thunor

在一个WORD文档中有二个书签。当我选择第一个书签并运行如下代码，表现正常。选择第二个书签并运行如下代码，表现出错。请问我何处处理错了？谢谢。 doc1.rar (3.2 KB, 下载次数: 11)

2020-2-6 21:46 上传

点击文件名下载附件

Sub bm()

MsgBox ActiveWindow.Selection.BookmarkID

MsgBoxActiveWindow.Selection.Bookmarks.Item(ActiveWindow.Selection.BookmarkID).Name

End Sub

daibao88

Sub bm()
    Dim bkm As Bookmark
    For Each bkm In ActiveDocument.Bookmarks
        bkm.Select
        MsgBox Selection.BookmarkID
        MsgBox bkm.name
    Next
End Sub
Sub bm2()
    MsgBox ActiveWindow.Selection.BookmarkID
    MsgBox ActiveWindow.Document.Bookmarks.Item(ActiveWindow.Selection.BookmarkID).name
End Sub

thunor

daibao88 发表于 2020-2-7 16:17
Sub bm()
    Dim bkm As Bookmark
    For Each bkm In ActiveDocument.Bookmarks

谢谢！辛苦了。
您的代码没有问题。选择的对象及其名称没问题。、
但sub bm2出问题了。选择的对象与名称不一致。

daibao88

thunor 发表于 2020-2-8 08:22
谢谢！辛苦了。
您的代码没有问题。选择的对象及其名称没问题。、
但sub bm2出问题了。选择的对象与名 ...

是的，是因为先定义的彩色标签，后定义的测试6标签，而文章位置是测试6标签在前，彩色标签在后。

thunor

谢谢您。