如何判断Word表格单元格是否包含书签并获取其名称？

问题分析 #

在检测Word表格单元格是否包含书签时，直接使用Cells(j).Range.Bookmarks.Count会出现同一行所有单元格返回相同数值的问题；使用BookmarkID能区分是否存在书签，但调用Bookmarks(1).Name时，同一行的所有单元格都会返回同一书签名称，无法精准定位到实际包含书签的单元格。这是因为Word表格中单元格的Range对象可能会“捕获”到相邻单元格的书签（尤其是书签位于单元格边界附近时），导致判断结果失真。

解决方法 #

遍历文档中所有书签，通过对比书签的起始、结束位置与单元格Range的起始、结束位置，判断书签是否完全属于当前单元格。这种方式能精准定位到包含书签的单元格，并获取书签名称。

修正后的代码 #

Sub GetNameBookmark()
    Dim tbl As Table
    Dim cellRange As Range
    Dim bkmk As Bookmark
    Dim i As Integer, j As Integer
    
    Set tbl = ActiveDocument.Tables(2) ' 目标表格
    
    For i = 1 To tbl.Rows.Count
        For j = 1 To tbl.Rows(i).Cells.Count
            Set cellRange = tbl.Rows(i).Cells(j).Range
            ' 去掉单元格末尾的段落标记，避免边界判断误差
            Set cellRange = ActiveDocument.Range(cellRange.Start, cellRange.End - 1)
            
            Debug.Print "行" & i & "列" & j & ": "
            ' 遍历所有书签，检查是否属于当前单元格
            For Each bkmk In ActiveDocument.Bookmarks
                If bkmk.Range.Start >= cellRange.Start And bkmk.Range.End <= cellRange.End Then
                    Debug.Print "  包含书签: " & bkmk.Name
                End If
            Next bkmk
        Next j
    Next i
End Sub

代码说明 #

1. 先获取目标表格对象，遍历每一行每一列的单元格。
2. 调整单元格的Range范围，去掉默认位于单元格末尾的段落标记（cellRange.End - 1），避免因边界重叠导致的误判。
3. 遍历文档中所有书签，通过对比书签Range的Start和End与单元格Range的对应位置，判断书签是否完全在当前单元格内。
4. 若书签属于当前单元格，则输出书签名称。

内容的提问来源于stack exchange，提问作者hoacvxd