如何移除Word修订记录中的时间戳？含跨平台解决方案

问题分析 #

原正则表达式宏Change_Date_Time在Windows上可移除修订时间戳，但Mac版Word对VBA正则支持有限导致失效；后续DOM遍历宏Loop_Through_Dates因未处理Word XML的命名空间报错；RemoveAttribute宏未报错但无效，原因是未指定命名空间无法定位目标属性。

Word的修订记录在XML中属于带命名空间的节点（默认命名空间为http://schemas.openxmlformats.org/wordprocessingml/2006/main，前缀通常为w:），必须通过命名空间管理器才能正确定位节点和属性。

有效解决方案：基于XML命名空间的DOM处理 #

以下VBA代码通过导出Flat OPC XML、处理命名空间、遍历移除时间戳属性的方式，可在MacOS上生效：

Sub Remove_Revision_Timestamps()
    Dim doc As Document
    Dim xmlDoc As Object
    Dim nsManager As Object
    Dim revisionNodes As Object
    Dim tempXmlPath As String
    Dim i As Integer
    
    Set doc = ActiveDocument
    
    ' 生成临时XML文件（Flat OPC格式，无需解压）
    tempXmlPath = Environ("TEMP") & "/temp_revision_clean.xml"
    doc.SaveAs2 FileName:=tempXmlPath, FileFormat:=wdFormatFlatXML
    
    ' 加载XML文档
    Set xmlDoc = CreateObject("MSXML2.DOMDocument.6.0")
    xmlDoc.async = False
    xmlDoc.validateOnParse = False
    xmlDoc.Load tempXmlPath
    
    ' 初始化命名空间管理器，添加Word核心命名空间
    Set nsManager = CreateObject("MSXML2.NamespaceManager")
    nsManager.AddNamespace "w", "http://schemas.openxmlformats.org/wordprocessingml/2006/main"
    
    ' 定位所有修订节点
    Set revisionNodes = xmlDoc.SelectNodes("//w:revision", nsManager)
    
    ' 反向遍历移除时间戳属性（避免索引错乱）
    For i = revisionNodes.Length - 1 To 0 Step -1
        revisionNodes(i).RemoveAttribute "w:date", "http://schemas.openxmlformats.org/wordprocessingml/2006/main"
    Next i
    
    ' 保存修改并重新打开文档
    xmlDoc.Save tempXmlPath
    doc.Close SaveChanges:=wdDoNotSaveChanges
    Documents.Open tempXmlPath
    
    ' 清理临时文件
    Kill tempXmlPath
    
    Application.ScreenUpdating = True
End Sub

代码说明 #

1. Flat OPC XML导出：无需处理docx的压缩包结构，直接导出为单XML文件，简化操作。
2. 命名空间管理：通过NamespaceManager指定Word的核心命名空间URI，确保SelectNodes能正确定位w:revision节点。
3. 反向遍历移除：从最后一个节点开始遍历删除，避免节点数量变化导致的索引错误。
4. 属性移除：调用RemoveAttribute时指定命名空间URI，确保精准移除w:date时间戳属性。

为什么之前的宏失效？ #

• 正则方案：Mac版Word的VBA正则引擎不支持部分Windows上的语法（如某些断言或模式），导致匹配失败。
• Loop_Through_Dates：未添加命名空间管理器，直接用节点名无法定位带w:前缀的XML节点，触发报错。
• RemoveAttribute：仅传入属性名date，未指定命名空间，XML解析器无法识别w:date属性，因此无实际操作。

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