使用VBA与OneNote2010创建与编辑页面

Option Explicit

' OneNote 2010

' Demonstrates the GetHierarchy, GetPageContent, and UpdatePageContent methods.

' Use any VBA host including Excel 2010, PowerPoint 2010,
' or Word 2010.
' OneNote 2010 is not a VBA host.

' In your VBA host, add references to the following
' external libraries using the Add References dialog:
' Microsoft OneNote 14.0 Object Library
' Microsoft XML, v6.0

' OneNote's GetHierarchy method allows you
' to get meta-data and data about the OneNote
' Notebooks.

' Paste all this code into a module,
' place the cursor within the CreateNewPage procedure, 
' and press F5.
'
' The CreateNewPage procedure uses
' the MSXML library to parse the returned XML
' from OneNote.
' After finding the first Section of the first Notebook,
' the code creates a new page and sets its title to
' "A Page Created from VBA". The code sets 
' the new Page's content to

' "Text added to a new OneNote page via VBA."

Sub CreateNewPage()
    ' Connect to OneNote 2010.
    ' OneNote will be started if it's not running
    ' However, to see the results of the code,
    ' you'll want to ensure the OneNote 2010 user
    ' interface is visible.
    Dim oneNote As OneNote14.Application
    Set oneNote = New OneNote14.Application
    
    ' Get all of the Notebook nodes.
    Dim nodes As MSXML2.IXMLDOMNodeList
    Set nodes = GetFirstOneNoteNotebookNodes(oneNote)
    If Not nodes Is Nothing Then
        ' Get the first OneNote Notebook in the XML document.
        Dim node As MSXML2.IXMLDOMNode
        Set node = nodes(0)
        Dim noteBookName As String
        noteBookName = node.Attributes.getNamedItem("name").Text
        
        ' Get the ID for the Notebook so the code can retrieve
        ' the list of sections.
        Dim notebookID As String
        notebookID = node.Attributes.getNamedItem("ID").Text
        
        ' Load the XML for the Sections for the Notebook requested.
        Dim sectionsXml As String
        oneNote.GetHierarchy notebookID, hsSections, sectionsXml, xs2010