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が取得できます。