VBA for MS Word：检测字符串中是否存在非4位数字

嘿，这个需求我之前帮朋友处理过，碰到带前导0的数字时，确实不能靠数值范围判断，得从字符串长度入手。给你两个实用的思路，直接就能落地：

方法一：用正则表达式直接抓取数字序列（推荐） #

正则可以精准定位字符串里所有连续的数字块，不用先替换其他字符，效率更高。核心逻辑很简单：

1. 匹配所有连续的数字序列（\d+）
2. 遍历每个匹配结果，检查长度是否为4位

示例代码（Python） #

import re

def check_digit_lengths(input_str):
    # 抓取所有连续的数字序列
    digit_sequences = re.findall(r'\d+', input_str)
    result = []
    for seq in digit_sequences:
        # 判断长度是否为4，生成对应结果
        is_valid = len(seq) == 4
        result.append(f"{seq} {'TRUE' if is_valid else 'FALSE'}")
    return ' '.join(result)

# 测试你的示例场景
test_sample = "0324 39234 2393 192"
print(check_digit_lengths(test_sample))
# 输出：0324 TRUE 39234 FALSE 2393 TRUE 192 FALSE

这个方法的优势是：不管数字周围是逗号、斜杠、空格还是其他字符，都能准确抓出数字块，完全不受分隔符类型影响。

方法二：优化你的初步思路（替换非数字为空格） #

你的初始思路其实很靠谱，只要处理好多空格的情况就行：

1. 把所有非数字字符替换成空格
2. 用split()分割（自动忽略空字符串和多个连续空格）
3. 遍历每个分割后的元素，检查长度

示例代码（Python） #

import re

def check_digit_lengths_v2(input_str):
    # 替换所有非数字字符为空格
    processed_str = re.sub(r'\D', ' ', input_str)
    # 分割成列表，自动跳过空值
    digit_list = processed_str.split()
    result = []
    for num in digit_list:
        is_valid = len(num) == 4
        result.append(f"{num} {'TRUE' if is_valid else 'FALSE'}")
    return ' '.join(result)

# 测试同样有效
print(check_digit_lengths_v2(test_sample))
# 输出：0324 TRUE 39234 FALSE 2393 TRUE 192 FALSE

这个方法更直观，适合刚接触正则的同学，最终效果和方法一完全一致。

关键细节提醒 #

• 两种方法都完美支持带前导0的数字（比如0123会被判定为有效）
• 不管数字被什么字符分隔（逗号、斜杠、字母等），都能正确识别
• 如果字符串里有混合字符的“伪数字”（比如12a34），会被拆成12和34，符合需求（因为这两个都不是连续4位数字）

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