我需要一个宏来使用VBA搜索和替换XML中的数据

Sub SearchAndReplaceXMLData()
    Dim xmlDoc As MSXML2.DOMDocument
    Dim xmlRoot As MSXML2.IXMLDOMNode
    Dim xmlNodeList As MSXML2.IXMLDOMNodeList
    Dim xmlNode As MSXML2.IXMLDOMNode
    Dim searchText As String
    Dim replaceText As String
    
    ' 加载XML文件
    Set xmlDoc = New MSXML2.DOMDocument
    xmlDoc.Load "C:\path\to\your\file.xml"
    
    ' 设置搜索和替换的文本
    searchText = "search text"
    replaceText = "replace text"
    
    ' 获取根节点
    Set xmlRoot = xmlDoc.documentElement
    
    ' 在整个XML文档中搜索并替换数据
    Set xmlNodeList = xmlRoot.SelectNodes("//text()")
    For Each xmlNode In xmlNodeList
        xmlNode.NodeValue = Replace(xmlNode.NodeValue, searchText, replaceText)
    Next xmlNode
    
    ' 保存修改后的XML文件
    xmlDoc.Save "C:\path\to\your\modified\file.xml"
    
    ' 释放对象引用
    Set xmlNode = Nothing
    Set xmlNodeList = Nothing
    Set xmlRoot = Nothing
    Set xmlDoc = Nothing
    
    MsgBox "XML数据搜索和替换操作已完成！"
End Sub