使用VBA重命名OneNote页面失败：无法应用更改及保存XML

问题背景 #

需要从模板分区复制页面并重命名，通过合并分区完成复制后，代码修改页面名称无法同步到OneNote文档。引用Microsoft OneNote 15.0 Object Library和Microsoft XML 5.0（原代码基于MSXML6.0适配后仅此处失效）。

原代码 #

'Microsoft OneNote 15.0 Object Library
'Microsoft XML, 5.0 (comes from 6.0 originally but a lot of code not working on 6.0)

Private Sub CommandButton5_Click()

 Dim onenote As onenote.Application
 Set onenote = New onenote.Application
 Dim MypageName as string
 MypageName = "page title"

' Get the XML that represents the OneNote sections
    Dim oneNoteSectionsXml As String

    onenote.GetHierarchy "", 4, oneNoteSectionsXml

    Dim doc As MSXML2.DOMDocument
    Set doc = New MSXML2.DOMDocument

    If doc.LoadXML(oneNoteSectionsXml) Then
        Dim nodeNoteBooks As MSXML2.IXMLDOMNodeList
        Dim nodeSections As MSXML2.IXMLDOMNodeList
        Dim nodepages As MSXML2.IXMLDOMNodeList
        
        
        Set nodeNoteBooks = doc.DocumentElement.SelectNodes("//one:Notebook")
        Set nodeSections = doc.DocumentElement.SelectNodes("//one:Section")
        Set nodepages = doc.DocumentElement.SelectNodes("//one:Page")
          
        
        Dim nodeNoteBook As MSXML2.IXMLDOMNode
        Dim nodeSection As MSXML2.IXMLDOMNode
        Dim nodePage As MSXML2.IXMLDOMNode

        For Each nodePage In nodepages
           If nodePage.Attributes.getNamedItem("name").Text = nodeSections.item(2).ChildNodes(0).Attributes.getNamedItem("name").Text Then 
               nodePage.Attributes.getNamedItem("name").Text = MypageName
           End If
           
           onenote.UpdateHierarchy doc.XML
           doc.Save doc.XML
        Next

    End If

End Sub

当前问题 #

• UpdateHierarchy无报错但无效果
• doc.Save提示参数错误

问题根源与修正方案 #

核心问题点 #

1. doc.Save参数错误：MSXML2.DOMDocument.Save需要传入文件路径或流对象，直接传doc.XML完全错误，且此处无需保存本地XML，只需提交给OneNote API。
2. 未处理OneNote XML命名空间：OneNote的XML使用one命名空间，未设置命名空间管理器会导致SelectNodes无法正确匹配节点，这是修改失效的核心原因。
3. UpdateHierarchy调用时机错误：循环内重复提交完整层级XML，不符合API逻辑，应修改完成后仅调用一次。
4. 节点定位依赖固定索引：nodeSections.item(2).ChildNodes(0)依赖分区和页面的固定位置，结构变化后会失效。

修正后的代码 #

'Microsoft OneNote 15.0 Object Library
'Microsoft XML, 5.0
Private Sub CommandButton5_Click()
    Dim onenote As onenote.Application
    Set onenote = New onenote.Application
    Dim MypageName As String
    MypageName = "page title"

    ' 获取OneNote层级XML
    Dim oneNoteSectionsXml As String
    onenote.GetHierarchy "", 4, oneNoteSectionsXml

    Dim doc As MSXML2.DOMDocument
    Set doc = New MSXML2.DOMDocument
    ' 初始化命名空间管理器（必须，否则无法识别one命名空间节点）
    Dim nsMgr As MSXML2.IXMLDOMNamespaceManager
    Set nsMgr = doc.createNamespaceManager(doc.DocumentElement)
    nsMgr.AddNamespace "one", "http://schemas.microsoft.com/office/onenote/2013/onenote"

    If doc.LoadXML(oneNoteSectionsXml) Then
        ' 定位目标分区（示例为第3个分区，索引从0开始）
        Dim targetSection As MSXML2.IXMLDOMNode
        Set targetSection = doc.SelectSingleNode("//one:Section[position()=3]", nsMgr)
        
        If Not targetSection Is Nothing Then
            ' 定位分区内的目标页面（可修改条件为原模板页面名称：./one:Page[@name='原模板页名']）
            Dim targetPage As MSXML2.IXMLDOMNode
            Set targetPage = targetSection.SelectSingleNode("./one:Page", nsMgr)
            
            If Not targetPage Is Nothing Then
                ' 修改页面名称
                targetPage.Attributes.getNamedItem("name").Text = MypageName
                ' 仅提交一次修改到OneNote
                onenote.UpdateHierarchy doc.XML
            End If
        End If
    End If
End Sub

关键说明 #

• 必须添加命名空间管理器，否则无法正确匹配OneNote XML中的节点。
• 移除无效的doc.Save调用，无需保存本地XML文件。
• 调整UpdateHierarchy调用时机，修改完成后仅提交一次。
• 用SelectSingleNode结合命名空间定位节点，避免依赖固定索引的风险。

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