OneNoteをVBAでいじる - ページのIDを取得する

下記のコードを標準モジュールに貼り付けてください。

Public Function GetPageID(ByVal noteBookName As String, ByVal pageName As String) As String
    Dim oneNote As oneNote.Application2
    Dim oneNotePagesXml As String
    Dim nodes As MSXML2.IXMLDOMNodeList
    Dim node As MSXML2.IXMLDOMNode
    Dim doc As Object

    Set oneNote = New oneNote.Application2
    oneNote.GetHierarchy GetNoteBookID(noteBookName), hsPages, oneNotePagesXml
    Set doc = CreateObject("Msxml2.DOMDocument")
    doc.loadXML (oneNotePagesXml)
    
    Set nodes = doc.DocumentElement.SelectNodes("//one:Page")
    For Each node In nodes
        If node.Attributes.getNamedItem("name").Text = pageName Then
            If NotParentName(pageName) = False Then
                GetPageID = node.Attributes.getNamedItem("ID").Text
                Exit Function
            End If
        End If
    Next
End Function

イミディエイトウィンドウで、
? GetPageID("あなたのノートブック名","その中のページ名") [Return]で
{12344EFF-4567-8901-2345-56B789012E1F}{1}{E1234567890123456789012345678901234567891234}
のような形式でIDが取得できます。