如何在Word VBA中将等号后的单词转换为首字母加下划线格式

针对仅将前缀为等号（=）的单词转换为「首字母+对应长度下划线」的需求，以下是精准实现的VBA代码：

Sub ConvertTargetWords()
    Dim regEx As Object
    Dim strInput As String
    Dim matches As Object
    Dim match As Object
    Dim resultStr As String
    
    ' 获取选中文本，无选中则退出
    strInput = Selection.Text
    If strInput = "" Then Exit Sub
    
    ' 初始化正则表达式对象
    Set regEx = CreateObject("VBScript.RegExp")
    With regEx
        .Global = True ' 开启全局匹配
        .Pattern = "=(\w+)" ' 匹配所有以=开头的单词
    End With
    
    ' 获取所有匹配结果
    Set matches = regEx.Execute(strInput)
    resultStr = strInput
    
    ' 遍历匹配项，逐个替换
    For Each match In matches
        Dim targetWord As String
        targetWord = Mid(match.Value, 2) ' 移除开头的=
        ' 生成替换内容：首字母 + 剩余长度的下划线
        Dim replacement As String
        replacement = Left(targetWord, 1) & String(Len(targetWord) - 1, "_")
        resultStr = Replace(resultStr, match.Value, replacement)
    Next match
    
    ' 替换选中区域文本
    Selection.Text = resultStr
End Sub

代码说明 #

• 正则表达式=(\w+)精准定位所有带=前缀的单词，避免误处理其他内容；
• 对每个目标单词，移除=后保留首字母，将剩余字符全部替换为下划线；
• 非目标文本保持原样，完全符合需求中的转换效果。

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