如何用VBA操作Open XML删除Word文档的修订日期时间属性

你已经完成了Word文档转Zip、解压的步骤，接下来可以通过MSXML库安全操作XML避免结构破坏，也可选择纯文本正则处理（不推荐），具体方案如下：

一、安全操作XML的VBA实现 #

Word的document.xml使用Open XML命名空间，必须先注册命名空间才能用XPath定位节点。以下是修正后的Load_xml函数，用于删除所有带有w:date属性的节点中的该属性：

Function Load_xml(xmlFilePath As String) As Boolean
    Dim oDoc As New MSXML2.DOMDocument60
    Dim nodesWithDateAttr As IXMLDOMNodeList
    Dim node As IXMLDOMNode
    Dim nsManager As New MSXML2.XMLNamespaceManager
    
    ' 启用XML验证和格式化，避免破坏结构
    oDoc.async = False
    oDoc.validateOnParse = True
    oDoc.preserveWhiteSpace = True
    
    ' 注册Word XML命名空间（必须步骤）
    nsManager.AddNamespace "w", "http://schemas.openxmlformats.org/wordprocessingml/2006/main"
    
    ' 加载XML文件
    If Not oDoc.Load(xmlFilePath) Then
        MsgBox "XML加载失败：" & oDoc.parseError.reason, vbCritical
        Load_xml = False
        Exit Function
    End If
    
    ' 定位所有带有w:date属性的节点
    Set nodesWithDateAttr = oDoc.SelectNodes("//@w:date", nsManager)
    
    ' 遍历并删除每个节点的w:date属性
    For Each node In nodesWithDateAttr
        node.ParentNode.removeAttributeNode node
    Next node
    
    ' 保存修改后的XML
    If Not oDoc.Save(xmlFilePath) Then
        MsgBox "XML保存失败", vbCritical
        Load_xml = False
        Exit Function
    End If
    
    Load_xml = True
    Set oDoc = Nothing
    Set nsManager = Nothing
End Function

补充后续步骤（压缩+重命名） #

调用Load_xml成功后，在Rename_Zip_Unzip子过程中添加以下代码完成收尾：

' 调用Load_xml修改XML
If Load_xml(oDocXML) Then
    ' 重新压缩解压后的文件夹为Zip
    Dim newZipPath As String
    newZipPath = Replace(oDocPath, AP & oDocName, AP & "ModifiedDoc.zip")
    FileCompress.Zip oDocUnzip, newZipPath, True ' 假设你的FileCompress模块有Zip方法
    
    ' 删除临时文件和文件夹
    Kill oDocZip
    FSO.DeleteFolder oDocUnzip, True
    
    ' 将新Zip重命名回docx
    Dim finalDocPath As String
    finalDocPath = Replace(oDocPath, "." & oDocEx, "_Modified.docx")
    Name newZipPath As finalDocPath
    
    MsgBox "文档处理完成，保存为：" & finalDocPath, vbInformation
Else
    MsgBox "XML修改失败", vbCritical
End If

二、纯文本方式的正则表达式（不推荐） #

如果必须用纯文本编辑，正确匹配w:date="..."属性的正则模式为：

w:date="[^"]+"

• [^"]+表示匹配除双引号外的任意字符，确保只匹配到该属性的闭合引号为止。

VBA中使用正则替换的代码示例：

Sub ReplaceDateAttrWithRegex(xmlFilePath As String)
    Dim fso As New FileSystemObject
    Dim ts As TextStream
    Dim xmlContent As String
    Dim regEx As New VBScript_RegExp_55.RegExp
    
    ' 读取XML内容
    Set ts = fso.OpenTextFile(xmlFilePath, ForReading)
    xmlContent = ts.ReadAll
    ts.Close
    
    ' 配置正则规则
    regEx.Global = True
    regEx.Pattern = "w:date=""[^""]+"""
    
    ' 替换删除属性
    xmlContent = regEx.Replace(xmlContent, "")
    
    ' 写回修改后的内容
    Set ts = fso.OpenTextFile(xmlFilePath, ForWriting, True)
    ts.Write xmlContent
    ts.Close
    
    Set fso = Nothing
    Set regEx = Nothing
End Sub

注意：纯文本方式可能破坏XML编码或特殊字符结构，仅在紧急场景下使用

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