Word表格单元格末尾空格无法删除的VBA处理方案求助

我需要清理一份大Word文档里的表格，要删除多余空格。开头和中间的空格都能顺利删掉，但单元格末尾的最后一个空格死活删不掉。

我试过的代码 #

单单元格删除示例 #

ActiveDocument.Tables(1).Cell(1, 1).Range.Characters(ActiveDocument.Tables(1).Cell(1, 1).Range.End - 1).Delete

注：这段代码放在循环里，用来持续删除单元格文本末尾的空格。

全表格循环代码（触发无限循环） #

For Each myTable In ActiveDocument.Tables
    For i = 1 To myTable.Rows.Count
        For j = 1 To myTable.Columns.Count
            Set myCell = myTable.Cell(i, j)
                Do
                    MsgBox "|" & myCell.Range.Characters(myCell.Range.End - 1).Text & "|"
                     myCell.Range.Characters(myCell.Range.End - 1).Delete
                Loop Until myCell.Range.Characters(myCell.Range.End - 1).Text <> " "
        Next j
    Next i
Next myTable

警告：这段代码会陷入无限循环，因为myCell.Range.Characters(myCell.Range.End - 1).Text永远返回空格——这就是调试时发现最后一个空格删不掉的核心原因。

约束条件 #

不能把文本转成字符串修改后再插回单元格，否则会丢失文本中的格式和图标。

解决方案 #

Word表格单元格的Range默认包含末尾的单元格结束标记（Chr(13)+Chr(7)），之前的代码误把这个标记前的位置当成了文本末尾，实际上需要先定位到真正的用户文本范围，跳过系统自带的单元格标记。

替换成以下代码即可解决：

For Each myTable In ActiveDocument.Tables
    For i = 1 To myTable.Rows.Count
        For j = 1 To myTable.Columns.Count
            Set myCell = myTable.Cell(i, j)
            ' 缩小范围到用户实际输入的文本，排除末尾的单元格结束标记
            Set cellTextRange = myCell.Range
            cellTextRange.End = cellTextRange.End - 2 ' 减去Chr(13)和Chr(7)两个系统字符
            
            ' 从文本末尾向前遍历，删除所有连续空格
            Do While cellTextRange.End > cellTextRange.Start
                If Asc(cellTextRange.Characters(cellTextRange.End).Text) = 32 Then ' 32是空格的ASCII码
                    cellTextRange.Characters(cellTextRange.End).Delete
                Else
                    Exit Do
                End If
            Loop
        Next j
    Next i
Next myTable

代码说明 #

1. 先将单元格的Range范围缩短2个字符，去掉Word自动添加的段落标记（Chr(13)）和单元格结束符（Chr(7)），确保只处理用户输入的文本内容。
2. 从文本末尾向前逐个检查字符，遇到空格就删除，直到碰到非空格字符时退出循环，彻底避免无限循环问题，同时保留原有的格式和图标。

内容的提问来源于stack exchange，提问作者cybernetic.nomad