使用正则表达式替换Word文档XML中日期时间节点的问题求助

问题场景 #

需要替换Word文档XML内容中类似以下格式的日期属性：

• w:date="2022-12-01T01:17:00Z"
• w:date="2022-12-01T02:17:00Z"
• w:date="2022-12-02T03:17:00Z"

但你编写的VBA正则代码执行后，目标字符串没有任何变化，现有正则表达式为：w:date="[\d\W]\w[\d\W]\w"

错误原因分析 #

你使用的正则表达式完全不匹配目标日期格式的结构：

• [\d\W]仅匹配单个数字或非单词字符，\w仅匹配单个字母/数字/下划线，整个模式只能匹配极短的片段，根本覆盖不了YYYY-MM-DDTHH:MM:SSZ这种完整的日期时间格式。

修正方案 #

正确的正则表达式 #

针对目标日期格式，我们需要精准匹配每一段结构：

• \d{4}：匹配4位年份
• -\d{2}：匹配横杠加2位月份/日期
• T：匹配日期与时间的分隔符
• \d{2}:\d{2}:\d{2}：匹配时分秒（两位数字加冒号分隔）
• Z：匹配时区标识

完整的正则模式为：w:date="\d{4}-\d{2}-\d{2}T\d{2}:\d{2}:\d{2}Z"

修正后的VBA代码 #

Sub ChangeDateTime()
    Dim sWOOXML As String
    Dim objRegEx As Object
    
    Set objRegEx = CreateObject("vbscript.regexp")
    objRegEx.Global = True
    objRegEx.IgnoreCase = True
    objRegEx.MultiLine = True
    
    ' 匹配完整的w:date属性及日期时间值
    objRegEx.Pattern = "w:date=" & Chr(34) & "\d{4}-\d{2}-\d{2}T\d{2}:\d{2}:\d{2}Z" & Chr(34)
    
    sWOOXML = ActiveDocument.Content.WordOpenXML
    sWOOXML = objRegEx.Replace(sWOOXML, "") ' 将匹配到的内容替换为空
    
    ActiveDocument.Content.InsertXML sWOOXML
    Beep
End Sub

扩展说明 #

如果需要保留w:date属性但替换为指定日期，只需修改Replace方法的第二个参数即可，例如：

sWOOXML = objRegEx.Replace(sWOOXML, "w:date=" & Chr(34) & "2024-01-01T00:00:00Z" & Chr(34))

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