VBA处理Word文档Range时无法识别并去除ASCII 32空格字符问题

我从Word文档中获取了一个长度为7的ActiveDocument.Range，执行替换空格的代码后输出长度仍为7：

debug.Print len(replace(.Range.Text, Chr(32),""))
7

通过Asc函数检测，该Range由ASCII 32空格字符和一个ASCII 13字符组成：

debug.Print asc(mid(.Range.Text,1,1))
32 
debug.Print asc(mid(.Range.Text,2,1))
32 
debug.Print asc(mid(.Range.Text,3,1))
32 
debug.Print asc(mid(.Range.Text,4,1))
32 
debug.Print asc(mid(.Range.Text,5,1))
32 
debug.Print asc(mid(.Range.Text,6,1))
13

但使用标准方法均无法检测并处理这些空格：

• 使用Trim函数后，长度仍为7：

  Len(Trim(.Range))
  

• 使用Instr查找空格或Chr(32)均返回0：

  debug.Print instr(.Range.Text, " ")
  0 
  debug.Print instr(.Range.Text, chr(32))
  0 
  

• 使用Replace替换空格或Chr(32)后，长度仍为7：

  debug.Print len(replace(.Range.Text, Chr(32),""))
  7 
  debug.Print len(replace(.Range.Text, " ",""))
  7
  

需要找到方法去除这些空格并计算无空格字符串的长度。

核心原因 #

Word的Range.Text返回的字符串末尾会自动追加一个隐藏的ASCII 7（响铃字符），这个字符是Word用来标记Range结束的，不会显示但会被Len函数统计。你看到的长度7实际是5个空格+1个回车（ASCII13）+1个ASCII7，而你的Mid只取到第6位，漏掉了这个隐藏字符。

标准的Replace/Instr/Trim之所以失效，是因为你在处理Range.Text时，实际是在和包含ASCII7的字符串交互，直接用Chr(32)匹配会因为字符串末尾的隐藏字符导致匹配逻辑异常。

解决方法 #

方法1：截取有效内容（去掉末尾的ASCII7）

先提取Range.Text中除最后一个字符外的内容，再处理：

Dim cleanText As String
cleanText = Left(.Range.Text, Len(.Range.Text) - 1) ' 去掉末尾的ASCII7
Debug.Print Len(Replace(cleanText, Chr(32), "")) ' 输出1（只剩ASCII13）

方法2：遍历Range.Characters过滤字符

逐个字符检查并跳过空格：

Dim filteredText As String
Dim i As Integer
For i = 1 To .Range.Characters.Count - 1 ' 跳过最后一个ASCII7字符
    If Asc(.Range.Characters(i).Text) <> 32 Then
        filteredText = filteredText & .Range.Characters(i).Text
    End If
Next i
Debug.Print Len(filteredText) ' 输出1

方法3：正则表达式批量替换

使用VBScript正则表达式匹配所有空白字符并移除：

Dim regEx As Object
Set regEx = CreateObject("VBScript.RegExp")
regEx.Global = True
regEx.Pattern = "\s" ' 匹配所有空白字符（含ASCII32）
Dim cleanText As String
cleanText = regEx.Replace(Left(.Range.Text, Len(.Range.Text)-1), "")
Debug.Print Len(cleanText) ' 输出1

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