2017-07-18 85 views

回答

1

你可以使用书签StartEnd(范围)属性来获取书签的排序。

Public Sub TestIt() 

    Dim bm1 As Bookmark 
    Dim bm2 As Bookmark 

    Set bm1 = ActiveDocument.Bookmarks("Bookmark1") 
    Set bm2 = ActiveDocument.Bookmarks("Bookmark2") 

    If bm1.Start < bm2.Start Then 
     MsgBox "bm1 is before bm2" 
    ElseIf bm1.Start > bm2.Start Then 
     MsgBox "bm2 is before bm1" 
    Else 
     MsgBox "bm1 and bm2 start at the same place" 
    End If 
End Sub 
+0

如果第二个书签总是在变化? –

+0

开始/结束属性值将随书签范围移动而调整,例如添加其他文本。但是,如果要将start属性保存为int/long,然后移动书签范围,那么该起始值将会过时并需要更新。 – Fink

相关问题