如何用MS-Word域代码替换变量文本中的点为下划线？

安全阿岳

2026-7-22

Word域实现变量字符替换的解决方案

Word原生域代码里没有内置的字符串替换函数，要实现你说的把版本号里的.换成_的需求，得靠VBA宏配合域变量来完成，具体步骤如下：

保留你原来的Set域，用来存储原始版本号：
```
{Set SWVersion "3.5.2" \*MergeFormat}
```

编写VBA宏来处理替换逻辑：
打开Word的「开发者工具」→「Visual Basic」，插入一个新模块，粘贴以下代码：

Sub UpdateVersionWithUnderscores()
    Dim originalVersion As String
    Dim modifiedVersion As String
    ' 读取原始版本变量
    originalVersion = ActiveDocument.Variables("SWVersion").Value
    ' 替换点为下划线
    modifiedVersion = Replace(originalVersion, ".", "_")
    ' 保存处理后的版本到新变量（不存在则创建）
    On Error Resume Next
    ActiveDocument.Variables("SWVersion_Underline").Value = modifiedVersion
    If Err.Number <> 0 Then
        ActiveDocument.Variables.Add Name:="SWVersion_Underline", Value:=modifiedVersion
    End If
    On Error GoTo 0
    ' 更新文档所有域
    ActiveDocument.Fields.Update
End Sub

在文档需要显示替换后版本的位置，插入文档变量域：
```
{DocVariable SWVersion_Underline \*MergeFormat}
```
比如你要生成的文件名格式可以写成：
```
Project_V{DocVariable SWVersion_Underline \*MergeFormat}_Stage1
```
触发更新：
每次修改原始的SWVersion值后，运行这个宏，就能自动把替换后的版本号同步到对应的位置。你也可以把宏绑定到文档的「更新域」按钮，或者设置成打开文档时自动运行。