Word VBA提取表格值创建书签时如何清理残留表格格式编码

需求说明 #

需要实现的逻辑如下：

• 将Word表格中的取值赋值给VBA变量
• 清理变量值中携带的非文本内容
• 使用提取到的变量名与变量值，在表格对应bookmark_value单元格中创建Word书签
• 循环执行上述三步直至遍历完整个表格

当前操作对象为文档内的第一个两列表格，结构示例如下：

_________________________________
| bookmark_name | bookmark_value| 
|     bm1       |      88       | 
|     foo       |      66       | 
|_____bar_______|______44_______| 

故障现象 #

现有代码可正常提取第一列的bookmark_name创建书签，但提取第二列的bookmark_value时，无法彻底清理值中携带的表格编码，最终生成的书签会显示多余的单元格格式内容，出现第一列提取正常、第二列提取异常的问题。
已尝试的方案（代码中以tried and failed注释标注）包括自定义Strip函数替换vbCr与Chr(7)字符、调整单元格取数范围等，均未生效。

原有问题代码 #

Public Sub BookmarkTable()
    Dim selectedTable As Table
    Dim curRow As Range
    Dim rngSelect1 As Range
    Dim rngSelect2 As Range
    Dim intTableIndex As Integer
    Dim rng As Range
    Dim Cell1 As Cell, Cell2 As Cell
    Dim strBookmarkName As String, strBookmarkValue As String, strBV As String
    Dim strTstBookmark As String
    Dim Col1 As Integer, Col2 As Integer
    Dim i As Integer, t As Integer
    Dim intRow As Integer
    '    Dim
    Col1 = 1   'set the bookmark name from column 1
    Col2 = 2   'set the bookmark's value from column 2

    'For t = 1 To ActiveDocument.Tables.Count

    t = 1  'select the Table to use(only using the first table right now)
            
    Set selectedTable = ActiveDocument.Tables(t)
    selectedTable.Select                       'selects the table
            
    For intRow = 2 To selectedTable.Rows.Count   'iterate through all rows
    
        If Selection.Information(wdWithInTable) Then
            Set Cell1 = ActiveDocument.Tables(t).Cell(intRow, Col1)
            Set Cell2 = ActiveDocument.Tables(t).Cell(intRow, Col2)
            Cell2.Select
            intTableIndex = ActiveDocument.Range(0, Selection.Tables(1).Range.End).Tables.Count
            rngColumnStart = Selection.Information(wdStartOfRangeColumnNumber)
            rngRowStart = Selection.Information(wdStartOfRangeRowNumber)        
        End If
                    
        strTstBookmark = "BM_Table" & CStr(intTableIndex) & "_R" & CStr(rngRowStart) & "_C" & CStr(rngColumnStart)
        ' strBookmarkValue = strTstBookmark
        Set rngSelect1 = ActiveDocument.Range(Start:=Cell1.Range.Start, End:=Cell1.Range.End - 1)
        strBookmarkName = Strip(rngSelect1.Text)
        Set rngSelect2 = ActiveDocument.Range(Start:=Cell2.Range.Start, End:=Cell2.Range.End - 1)
        strBookmarkValue = Strip(rngSelect2.Text)
    
        Set rng = ActiveDocument.Tables(intTableIndex).Cell(rngRowStart, rngColumnStart).Range
        rng.End = rng.End - 1
                
        '--------------------------------------------------------------------------
        'tried and failed)
        '--------------------------------------------------------------------------
        'Stop
        If ActiveDocument.Bookmarks.Exists(strBookmarkName) = True Then
            ActiveDocument.Bookmarks(strBookmarkName).Delete
        End If
        If ActiveDocument.Bookmarks.Exists(strTstBookmark) = True Then
            ActiveDocument.Bookmark(strTstBookmark).Delete
        End If
                
        ActiveDocument.Bookmarks.Add Name:=strTstBookmark
        ActiveDocument.Bookmarks.Add Name:=strBookmarkName
        ActiveDocument.Bookmarks(strBookmarkName).Range.Text =  strBookmarkValue
              
    Next intRow

    'Next t
End Sub

'--------------------------------------------------------------------------
'tried and failed
Private Function Strip(ByVal fullest As String)
    '  fuller = Left(fullest, Len(s) - 2)
    Strip = Trim(Replace(fullest, vbCr & Chr(7), ""))  
End Function
'--------------------------------------------------------------------------  

问题根源 #

1. 文本清理逻辑缺陷：原有Strip函数仅替换了连续出现的vbCr & Chr(7)字符组合，但Word单元格内置的单元格结束标记（Chr(7)）、回车符、换行符、制表符等控制字符可能单独存在，或夹杂其他ASCII码0-31区间的不可见控制字符，导致清理不彻底。
2. 冗余选中操作干扰：代码中反复使用Select方法选中单元格、表格，会引入选中状态对应的格式标记残留，提升无关内容被带入变量的概率。
3. 书签创建逻辑问题：先创建空书签再直接修改书签范围的Text属性，会导致书签自动关联单元格原有格式，容易带入隐藏的表格结构标记；同时原有代码存在Bookmark对象名漏写s的语法笔误，会触发运行时错误。

修复方案 #

1. 重写Strip函数，遍历清除所有ASCII码0-31区间的不可见控制字符，仅保留可见文本，同时去除首尾空格。
2. 移除所有不必要的Select操作，直接通过Table、Cell对象操作范围，避免选中状态带来的干扰。
3. 调整书签创建流程：先清空目标单元格内容写入纯文本值，再将书签绑定到对应文本范围，避免格式残留，同时修复原有语法笔误。

修复后可直接运行的代码 #

Public Sub BookmarkTable()
    Dim selectedTable As Table
    Dim Cell1 As Cell, Cell2 As Cell
    Dim strBookmarkName As String, strBookmarkValue As String
    Dim strTstBookmark As String
    Dim Col1 As Integer, Col2 As Integer
    Dim t As Integer, intRow As Integer
    Dim rngBookmark As Range
    
    Col1 = 1   ' 书签名取自第1列
    Col2 = 2   ' 书签值取自第2列
    t = 1      ' 仅处理文档中第1个表格
            
    Set selectedTable = ActiveDocument.Tables(t)
            
    For intRow = 2 To selectedTable.Rows.Count   ' 从第2行开始遍历（跳过表头）
        Set Cell1 = selectedTable.Cell(intRow, Col1)
        Set Cell2 = selectedTable.Cell(intRow, Col2)
        
        ' 生成测试用临时书签名
        strTstBookmark = "BM_Table" & CStr(t) & "_R" & CStr(intRow) & "_C" & CStr(Col2)
        
        ' 提取并清理单元格纯文本
        strBookmarkName = Strip(Cell1.Range.Text)
        strBookmarkValue = Strip(Cell2.Range.Text)
        
        ' 定位到第2列单元格，准备写入值并添加书签
        Set rngBookmark = Cell2.Range
        rngBookmark.End = rngBookmark.End - 1 ' 排除单元格内置结束标记
        rngBookmark.Text = strBookmarkValue ' 写入纯文本，自动清除原有格式
        
        ' 已存在同名书签则先删除
        If ActiveDocument.Bookmarks.Exists(strBookmarkName) Then
            ActiveDocument.Bookmarks(strBookmarkName).Delete
        End If
        If ActiveDocument.Bookmarks.Exists(strTstBookmark) Then
            ActiveDocument.Bookmarks(strTstBookmark).Delete
        End If
                
        ' 为写入的纯文本添加书签
        ActiveDocument.Bookmarks.Add Name:=strTstBookmark, Range:=rngBookmark
        ActiveDocument.Bookmarks.Add Name:=strBookmarkName, Range:=rngBookmark
              
    Next intRow
End Sub

' 重写文本清理函数，清除所有不可见控制字符
Private Function Strip(ByVal fullest As String) As String
    Dim i As Integer
    Dim tmpStr As String
    tmpStr = Trim(fullest)
    ' 遍历移除所有ASCII 0-31的控制字符
    For i = 0 To 31
        tmpStr = Replace(tmpStr, Chr(i), "")
    Next
    Strip = tmpStr
End Function

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