<\/p>\n
Vor ein paar Ausgaben haben wir uns den Zugriff auf das Notizprogramm Evernote von Access aus angesehen. Leider bietet dieses populäre Programm keine echte VBA-Schnittstelle. Das ist beim Pendant des Herstellers Microsoft natürlich anders: Hier gibt es eine Objektbibliothek, die Sie in ein VBA-Projekt einbinden und mit dem Sie auf die in OneNote gespeicherten Daten zugreifen können. Im vorliegenden Beitrag schauen wir uns an, wie Sie per VBA auf die in OneNote gespeicherten Informationen zugreifen können.<\/b><\/p>\nVor- und Nachteile<\/h2>\n
OneNote bietet keine offensichtlichen Nachteile im Vergleich zu Evernote, sondern eher noch Vorteile. Der gravierendste Vorteil ist, dass Sie, sofern Sie Office (zum Beispiel über Office 365) besitzen, keine zusätzlichen Kosten haben und der Speicherplatz für Ihre Notizen\/Dokumente nicht begrenzt ist. Wenn Sie bisher mit Evernote gearbeitet haben, müssen Sie allerdings eine anders gestaltete Benutzeroberfläche in Kauf nehmen. Diese ist natürlich eher an die übrigen Office-Anwendungen angelehnt. Das hat auch einen gewissen Charme, denn so gewöhnen Sie sich recht schnell daran. Als Evernote-Benutzer fragen Sie sich vermutlich auch, was nun mit allen bisher in Evernote angelegten Notizen und Dokumenten geschieht. Das ist kein Problem, denn Microsoft bietet mit dem OneNote Importer ein Tool an, mit dem Sie beispielsweise Daten aus Evernote importieren können. Bei der von mir genutzten Evernote-Notizzettelsammlung, die beispielsweise auch Hunderte von Artikeln, Magazinen und Büchern im PDF-Format enthält, wurden nur einige wenige Elemente nicht importiert, die dann auch noch in einer übersicht angezeigt werden. Die fehlenden Elemente kann man dann leicht selbst hinzufügen. In der Regel scheiterte der Import daran, dass die Elemente zu groß waren.<\/p>\n
Ein Nachteil scheint jedoch die Wahl des Speicherortes zu sein: Während bei Evernote alle Informationen auch lokal auf dem Rechner gespeichert werden und etwa die angehängten PDF-Dateien in einem eigenen Ordner liegen, scheint dies bei OneNote nicht möglich zu sein.<\/p>\n
In OneNote gibt es verschiedene Ebenen. Die oberste Ebene ist die der Notizbücher. Notizbücher legen Sie an und wählen Sie aus über den linken Reiter des mittleren Bereichs der Anwendung. Klappen Sie diesen auf, erhalten Sie den Befehl Notizbuch hinzufügen <\/b>sowie eine Liste der aktuell geöffneten Notizbücher (s. Bild 1). Außerdem finden Sie dort einen Eintrag namens Andere Notizbücher öffnen<\/b>, mit dem Sie die aktuell zwar in OneDrive gespeicherten, aber nicht geöffneten Notizbücher öffnen können. Wenn Sie aus Gründen der übersicht ein Notizbuch schließen möchten, gelingt das am besten über den Kontextmenüeintrag Notizbuch schließen<\/b> des Notizbuchs in dieser Ansicht.<\/p>\n
![\"Notizbücher](\"..\/fileadmin\/_temp_\/2017_04\/pic_1097_001.png\")
<\/p>\n
Bild 1: Notizbücher unter OneNote<\/span><\/b><\/p>\n Haben Sie ein Notizbuch geschlossen und öffnen dieses wieder, dauert dies je nach der Menge der enthaltenen Daten recht lange. Das liegt daran, dass OneNote wohl keine lokale Kopie der Daten bereithält und dass alle Inhalte immer aus dem Web geladen werden müssen. Hier arbeitet Evernote besser – die auf dem Rechner angelegten Daten werden lokal gespeichert und von dort in die Cloud synchronisiert, damit sie auch auf anderen Geräten abgerufen werden können. Zum Test des Zugriffs auf die Elemente von OneNote haben wir zunächst zwei Notizbücher namens Test-Notizbuch 1 <\/b>und Test-Notizbuch 2 <\/b>angelegt.<\/p>\n Die zweite Ebene der Notizen sind die Abschnitte. Diese erreichen Sie über die übrigen Registerkarten, die jeweils den Abschnittsnamen anzeigen. Für das Notizbuch Test-Notizbuch <\/b>haben wir zwei Abschnitte namens Test-Abschnitt 1 <\/b>und Test-Abschnitt 2 <\/b>angelegt (s. Bild 2). Wenn Sie einen dieser Registerreiter anklicken, erscheint die jeweils erste zu diesem Abschnitt gespeicherte Notiz. Diese wird auch in der Liste aller Notizen dieses Abschnitts in der Liste auf der rechten Seite angezeigt. Einen neuen Abschnitt legen Sie per Mausklick auf den Registerreiter mit dem Plus-Symbol an (+<\/b>). Um den Namen einzustellen, wählen Sie das Kontextmenü des Registerreiters aus und klicken dort auf den Eintrag Umbenennen<\/b>.<\/p>\n Bild 2: Bereiche eines Notizbuchs<\/span><\/b><\/p>\n Die Notizen bilden also die dritte Ebene in der Hierarchie von OneNote. Eine neue Notiz fügen Sie durch einen Klick auf den Befehl Seite hinzufügen <\/b>im rechten Bereich des OneNote-Fensters hinzu. Die Notizen benennen Sie einfach durch Anpassen der überschrift um, die über dem Datum angezeigt wird. Um einen Inhalt einzugeben, klicken Sie einfach auf den Bereich unter dem Datum und beginnen zu tippen. Sie können einer Notiz auch einfach Bilder oder andere Elemente wie PDF-Dokumente hinzufügen – oder Sie erstellen einfach eine Skizze (s. Bild 3).<\/p>\n Bild 3: Notizbuch mit Bild<\/span><\/b><\/p>\n Damit wären die Vorbereitungen erledigt und wir haben eine kleine Beispielstruktur für den Zugriff per VBA erstellt. Um tatsächlich mit VBA auf OneNote zuzugreifen, benötigen Sie noch einen Verweis auf die entsprechende Objektbibliothek.<\/p>\n Diesen fügen Sie im VBA-Projekt der Datenbankdatei, mit der Sie auf OneNote zugreifen wollen, über den Verweise<\/b>-Dialog hinzu (Menüeintrag Extras|Verweise<\/b>). Der Verweis heißt Microsoft OneNote x.0 Object Library <\/b>(s. Bild 4).<\/p>\n Bild 4: Verweis für den Zugriff auf OneNote<\/span><\/b><\/p>\n Damit kommen wir gleich zum ersten Beispiel – dem Einlesen der Liste aller Notizbücher von OneNote. Der dafür verwendete Code sieht wie folgt aus:<\/p>\n Hier sind ein paar Erläuterungen notwendig. Wir erstellen als Erstes ein Objekt des Typs OneNote.Application <\/b>und speichern es in einer Objektvariablen namens objOneNote<\/b>. Dann rufen wir die Methode GetHierarchy <\/b>dieses Objekts auf. Diese erwartet drei Parameter:<\/p>\n Das Ergebnis der Abfrage finden wir in Listing 1. Es handelt sich um ein XML-Dokument, das wir mithilfe der Funktion FormatXML <\/b>in ein etwas besser lesbares Format gebracht haben (der eigentliche Rückgabewert enthält keine Zeilenumbrüche).<\/p>\n Listing 1: Auflistung der Notizbücher im XML-Format<\/span><\/b><\/p>\n Nun stellen wir fest, dass das XML-Dokument lediglich zwei Einträge enthält. Dies ist für unseren Fall, da wir nur zwei Notizbücher angelegt haben, erwartungsgemäß, aber tatsächlich liegen auf dem Entwicklungsrechner einige Notizbücher mehr vor. Diese sind allerdings aktuell nicht geladen, was darauf hindeutet, dass nur die geladenen Notizbücher geliefert werden. Wenn wir nun auf die Attribute der einzelnen Elemente zugreifen wollen, müssen wir den VBA-Code etwas erweitern, wie Listing 2 zeigt. Hier verwenden wir Elemente der noch per Verweis einzubindenden Bibliothek Microsoft XML 6.0 Object Library<\/b>, um auf die Inhalte des XML-Dokuments zuzugreifen.<\/p>\n <\/p>\n Listing 2: Auflistung der Notizbücher und Ausgabe der einzelnen Attribute<\/span><\/b><\/p>\n Die Prozedur OneNoteNotizbuecherXML <\/b>liest wie zuvor mit der Methode GetHierarchy <\/b>das XML-Dokument mit den Notizbüchern in die Variable strHierarchy <\/b>ein. Diese landet allerdings direkt über die Methode loadXML <\/b>im Objekt objXML <\/b>des Typs DOMDocument60<\/b>. Hier müssen wir, da das komplette XML-Dokument den Namespace one: <\/b>verwendet, diesen Namespace über die Eigenschaft SelectionNamespaces <\/b>festlegen – anderenfalls können wir nicht mit der weiter unten verwendeten Methode SelectNodes <\/b>auf die Elemente des XML-Dokuments zugreifen. Die Zuweisung erledigen wir mit der Methode SetProperty<\/b>, der wir als erstes Argument den Namen der zu setzenden Eigenschaft, hier SelectionNamespaces<\/b>, und zweitens die Definition des Namespaces übergeben, wie sie im Kopf des XML-Dokuments angegeben ist.<\/p>\n Danach können wir leicht in einer For Each<\/b>-Schleife alle Elemente der Auflistung von XML-Elementen mit dem Namen one:Notebook <\/b>durchlaufen. Diese ermitteln wir mit der Methode selectNodes(„\/\/one:Notebook“)<\/b>, welche zuverlässig alle Elemente mit dem Namen one:Notebook <\/b>ermittelt. Innerhalb dieser Schleife geben wir dann die mit der Methode getAttribut<\/b> ermittelten Eigenschaftswerte des jeweiligen Elements im Direktfenster des VBA-Editors aus. Dazu übergeben wir einfach die einzelnen Attributnamen, wie sie auch in dem XML-Element zu finden sind:<\/p>\n Die Ausgabe sieht dann etwa wie in Bild 5 aus. Welche Elemente dieser Ausgabe wir später noch benötigen, schauen wir uns gleich an.<\/p>\n Bild 5: Ausgabe der Eigenschaften der Notebook-Elemente<\/span><\/b><\/p>\n Die zweite Ebene, also die Ebene unterhalb der Notizbücher, enthält die weiter oben beschriebenen Abschnitte. Auch diese können wir per VBA ermitteln. Dazu benötigen wir wiederum die Methode GetHierarchy<\/b>. Diesmal übergeben wir als zweiten Parameter allerdings den Wert OneNote.HierarchyScope.hsSections<\/b> (s. Listing 3).<\/p>\n Listing 3: Ermitteln von Notizbüchern und Abschnitten<\/span><\/b><\/p>\n Das Ergebnis ist das XML-Dokument aus Listing 4. Wie Sie sehen, liefert die neue Anfrage nicht etwa nur die Abschnitte des Notizbuchs, sondern gleich die Struktur der Notizbücher und der Abschnitte. Diese geben wir mit den beiden verschachtelten For Each<\/b>-Schleifen in der Prozedur OneNoteAbschnitteXML <\/b>im Direktfenster der VBA-Editors aus. In der inneren Schleife greifen wir dazu mit der Funktion selectNodes <\/b>auf die Elemente namens one:Section <\/b>des jeweils in der übergeordneten Schleife referenzierten Elements des XML-Dokuments zu und geben seine Eigenschaften aus, die mit denen der Notebook<\/b>-Elemente identisch sind.<\/p>\n Listing 4: XML-Dokument mit Notizbüchern und Abschnitten<\/span><\/b><\/p>\n Dementsprechend sollten wir die Notizen unterhalb der Abschnitte einlesen können, wenn wir die Methode GetHierarchy <\/b>wie in der Prozedur OneNoteNotizenXML <\/b>mit dem Wert OneNote.HierarchyScope.hsPages<\/b> für den zweiten Parameter aufrufen. <\/p>\n Das Ergebnis in Form des XML-Dokuments aus Listing 5 liefert zwar ein Element namens Page <\/b>unterhalb der Section<\/b>-Elemente. Das Page<\/b>-Element enthält aber auch für die Notiz, für die wir definitiv auch einen Notiz-Text angegeben haben, kein Attribut, das diesen Text liefert. Also müssen wir wohl noch ein wenig tiefer graben.<\/p>\n Listing 5: XML-Dokument mit Page-Elementen<\/span><\/b><\/p>\n Also schauen wir uns an, was geschieht, wenn wir den Wert OneNote.HierarchyScope.hsChildren <\/b>als zweiten Parameter der Methode GetHierarchy <\/b>übergeben (siehe Modul mdlOneNote <\/b>der Beispieldatenbank). Dies führt uns nicht weiter: Es werden nur die Elemente unterhalb der ersten Ebene eingelesen, also nur das Notebooks<\/b>-Element und die darin enthaltenen Notebook<\/b>-Elemente:<\/p>\n Wenn wir den Parameter OneNote.HierarchyScope.hsSelf <\/b>verwenden, erhalten wir sogar nur noch das Root-Element selbst:<\/p>\n Wie aber können wir nun auf die eigentlichen Inhalte einer Notiz zugreifen Bisher haben wir den ersten Parameter der GetHierarchy<\/b>-Methode komplett ignoriert. Dieser bringt uns aber an dieser Stelle auch nicht weiter. Stattdessen sehen wir uns unter den übrigen Methoden des OneNote.Application<\/b>-Objekts um und finden eine weitere Methode namens GetPageContent<\/b>. Diese können wir wiederum gebrauchen, denn sie liefert den dargestellten Inhalt einer Notiz wiederum als XML-Dokument zurück.<\/p>\n Wir erweitern also die zuletzt verwendete Prozedur in eine weitere Prozedur namens OneNoteNotizinhalteXML<\/b>. Diese fügen wir in der inneren For Each<\/b>-Schleife, welche die Elemente des Typs one:Page <\/b>durchläuft, hinzu und rufen für das OneNote.Application<\/b>-Objekt objOneNote <\/b>die Methode GetPageContent <\/b>auf. <\/p>\n Dieser übergeben wir den mit der Funktion getAttribute <\/b>ermittelten Wert des Attributs ID <\/b>des Page<\/b>-Elements und eine leere String-Variable namens strChild<\/b>. Diese soll den Inhalt des XML-Dokuments mit dem eigentlichen Inhalt der Notiz aufnehmen:<\/p>\n Das Ergebnis sieht wie in Listing 6 aus und scheint eine ganze Menge Arbeit zu liefern. Wenn man es sich genauer ansieht und die für die Formatierung der Notiz verwendeten Elemente auslässt, bleiben nur noch wenige Elemente übrig – nämlich jene, die in <\/b>-Konstrukte eingeschlossen sind und etwa wie folgt aussehen:<\/p>\n Listing 6: Eigentlicher Inhalt einer Notiz<\/span><\/b><\/p>\n Diese können wir wiederum über die Methoden der Bibliothek Microsoft XML, v6.0 <\/b>erfassen.<\/p>\n Was aber ist mit Bildern oder PDF-Dokumenten, die in einer Notiz eingebettet sind Dabei wollen wir drei verschiedene Fälle untersuchen:<\/p>\n Die Informationen zur Datei befinden sich wieder im one:Outline<\/b>-Element, und zwar unterhalb von one:OEChildren<\/b>. Hier finden Sie ein one:InsertedFile-Element<\/b>, das wiederum den Pfad zu der referenzierten Datei enthält.<\/p>\n Das Beispiel aus der Abbildung, wo wir die PDF-Datei als Ausdruck mit eingefügt haben, enthält im one:InsertedFile<\/b>-Element sowohl den Pfad zur Originaldatei als auch noch weitere Elemente wie zum Beispiel one:Position<\/b>, one:Size <\/b>und one:Printout<\/b>, die festlegen, wie die Datei innerhalb der Notiz angezeigt werden soll. Dahinter folgen dann noch der komplette Text (vermutlich als Grundlage für die Volltextsuche) sowie einige Elemente namens one:OCRToken<\/b>.<\/p>\n Wenn wir nun die Daten aus OneNote in eine Access-Datenbank einlesen wollen, benötigen wir eine entsprechende Tabellenstruktur. Da wir aber noch nicht wissen, wie und wozu wir die Daten aus OneNote in einer Access-Datenbank speichern wollen (und ob das überhaupt eine Option ist – vielleicht wollen wir diese Daten ja auch einfach weiterverarbeiten), werden wir nur die entscheidenden Elemente herausarbeiten.<\/p>\n Die können wir dann immer noch in eine Tabelle schreiben, per Mail verschicken, in eine Excel-Tabelle packen oder an ein Word-Dokument anhängen – die Techniken sind ja in anderen Beiträgen zur Genüge beschrieben.<\/p>\n Die Hauptarbeit dabei übernimmt die Prozedur aus Listing 7. Die Prozedur durchläuft wie die vorherigen Beispiele alle Notizbücher und Abschnitte. Darunter befinden sich im XML-Dokument die Elemente des Typs Page <\/b>mit den einzelnen Notizen.<\/p>\nAbschnitte im Notizbuch<\/h2>\n
![\"Bereiche](\"..\/fileadmin\/_temp_\/2017_04\/pic_1097_002.png\")
<\/p>\nNotizen<\/h2>\n
![\"Notizbuch](\"..\/fileadmin\/_temp_\/2017_04\/pic_1097_003.png\")
<\/p>\nZugriff per VBA<\/h2>\n
![\"Verweis](\"..\/fileadmin\/_temp_\/2017_04\/pic_1097_004.png\")
<\/p>\nListe der Notizbücher einlesen<\/h2>\n
Public Sub <\/span>OneNoteNotizbuecher()\r\n Dim <\/span>objOneNote As <\/span>OneNote.Application\r\n Dim <\/span>strHierarchy As String<\/span>\r\n Set<\/span> objOneNote = New<\/span> OneNote.Application\r\n objOneNote.GetHierarchy \"\", OneNote.HierarchyScope.hsNotebooks, strHierarchy\r\n Debug.Print<\/span> FormatXML(strHierarchy)\r\nEnd Sub<\/span><\/pre>\n\n
<xml version=\"1.0\">\r\n<one:Notebooks xmlns:one=\"http:\/\/schemas.microsoft.com\/office\/onenote\/2013\/onenote\">\r\n <one:Notebook name=\"Test-Notizbuch 2\" nickname=\"Test-Notizbuch 2\" ID=\"{D6DCD364-35B7-4E68-ADE6-B4033A1C3EF2}{1}{B0}\" \r\n path=\"https:\/\/d.docs.live.net\/4cea18f6eeca8019\/Documents\/Test-Notizbuch 2\/\" \r\n lastModifiedTime=\"2017-06-18T09:35:38.000Z\" color=\"#9595AA\" isCurrentlyViewed=\"true\"\/>\r\n <one:Notebook name=\"Test-Notizbuch 1\" nickname=\"Test-Notizbuch 1\" ID=\"{68E5FF92-706E-4FD5-8218-40A4CE8D552E}{1}{B0}\"\r\n path=\"https:\/\/d.docs.live.net\/4cea18f6eeca8019\/Documents\/Test-Notizbuch 1\/\" \r\n lastModifiedTime=\"2017-06-8T10:16:39.000Z\" color=\"#EE9597\"\/>\r\n <one:UnfiledNotes ID=\"{0B18F8FC-9EC3-4FF4-89E8-A15BBA1F7FDD}{1}{B0}\"\/>\r\n<\/one:Notebooks><\/pre>\nPublic Sub <\/span>OneNoteNotizbuecherXML()\r\n Dim <\/span>objOneNote As <\/span>OneNote.Application\r\n Dim <\/span>strHierarchy As String<\/span>\r\n Dim <\/span>objXML As <\/span>MSXML2.DOMDocument60\r\n Dim <\/span>objElement As <\/span>MSXML2.IXMLDOMElement\r\n Dim <\/span>strNamespace As String<\/span>\r\n Set<\/span> objOneNote = New<\/span> OneNote.Application\r\n objOneNote.GetHierarchy \"\", OneNote.HierarchyScope.hsNotebooks, strHierarchy\r\n Set<\/span> objXML = New<\/span> MSXML2.DOMDocument60\r\n objXML.loadXML strHierarchy\r\n strNamespace = \"xmlns:one=\"\"http:\/\/schemas.microsoft.com\/office\/onenote\/2013\/onenote\"\"\"\r\n objXML.SetProperty \"SelectionNamespaces\", strNamespace\r\n For Each objElement In objXML.selectNodes(\"\/\/one:Notebook\")\r\n With<\/span> objElement\r\n Debug.Print<\/span> .getAttribute(\"name\"), .getAttribute(\"ID\"), .getAttribute(\"path\"), _\r\n .getAttribute(\"lastModifiedTime\"), .getAttribute(\"color\"), .getAttribute(\"isCurrentlyViewed\")\r\n End With<\/span>\r\n Next<\/span> objElement\r\nEnd Sub<\/span><\/pre>\n<one:Notebook name=\"Test-Notizbuch 2\" nickname=\"Test-Notizbuch 2\" ID=\"{D6DCD364-35B7-4E68-ADE6-B4033A1C3EF2}{1}{B0}\" path=\"https:\/\/d.docs.live.net\/4cea18f6eeca8019\/Documents\/Test-Notizbuch 2\/\" lastModifiedTime=\"2017-06-18T09:35:38.000Z\" color=\"#9595AA\" isCurrentlyViewed=\"true\"\/><\/pre>\n![\"Ausgabe](\"..\/fileadmin\/_temp_\/2017_04\/pic_1097_005.png\")
<\/p>\nAbschnitte einlesen<\/h2>\n
Public Sub <\/span>OneNoteAbschnitteXML()\r\n Dim <\/span>objOneNote As <\/span>OneNote.Application\r\n Dim <\/span>strSections As String<\/span>\r\n Dim <\/span>objXML As <\/span>MSXML2.DOMDocument60\r\n Dim <\/span>objNotebook As <\/span>MSXML2.IXMLDOMElement\r\n Dim <\/span>objSection As <\/span>MSXML2.IXMLDOMElement\r\n Dim <\/span>strNamespace As String<\/span>\r\n Set<\/span> objOneNote = New<\/span> OneNote.Application\r\n objOneNote.GetHierarchy \"\", OneNote.HierarchyScope.hsSections, strSections\r\n Set<\/span> objXML = New<\/span> MSXML2.DOMDocument60\r\n objXML.loadXML strSections\r\n strNamespace = \"xmlns:one=\"\"http:\/\/schemas.microsoft.com\/office\/onenote\/2013\/onenote\"\"\"\r\n objXML.SetProperty \"SelectionNamespaces\", strNamespace\r\n Debug.Print<\/span> FormatXML(strSections)\r\n For Each objNotebook In objXML.selectNodes(\"\/\/one:Notebook\")\r\n With<\/span> objNotebook\r\n Debug.Print<\/span> .getAttribute(\"name\"), .getAttribute(\"ID\"), .getAttribute(\"path\"), _\r\n .getAttribute(\"lastModifiedTime\"), .getAttribute(\"color\"), .getAttribute(\"isCurrentlyViewed\")\r\n For Each objSection In objNotebook.selectNodes(\"one:Section\")\r\n With<\/span> objSection\r\n Debug.Print<\/span> \" \" & .getAttribute(\"name\"), .getAttribute(\"ID\"), .getAttribute(\"path\"), _\r\n .getAttribute(\"lastModifiedTime\"), .getAttribute(\"color\"), .getAttribute(\"isCurrentlyViewed\")\r\n End With<\/span>\r\n Next<\/span> objSection\r\n End With<\/span>\r\n Next<\/span> objNotebook\r\nEnd Sub<\/span><\/pre>\n<xml version=\"1.0\">\r\n<one:Notebooks xmlns:one=\"http:\/\/schemas.microsoft.com\/office\/onenote\/2013\/onenote\">\r\n <one:Notebook name=\"Test-Notizbuch 2\" nickname=\"Test-Notizbuch 2\" ... >\r\n <one:Section name=\"Test-Abschnitt 3\" ...\"\/>\r\n <\/one:Notebook>\r\n <one:Notebook name=\"Test-Notizbuch 1\" nickname=\"Test-Notizbuch 1\" ...>\r\n <one:Section name=\"Test-Abschnitt 1\" ... \/>\r\n <one:Section name=\"Test-Abschnitt 2\" ... \/>\r\n <\/one:Notebook>\r\n<\/one:Notebooks><\/pre>\n
Notizen einlesen<\/h2>\n
<xml version=\"1.0\">\r\n<one:Notebooks xmlns:one=\"http:\/\/schemas.microsoft.com\/office\/onenote\/2013\/onenote\">\r\n <one:Notebook name=\"Test-Notizbuch 1\" ... >\r\n <one:Section name=\"Test-Abschnitt 1\" ... >\r\n <one:Page ID=\"...\" name=\"Test-Notiz 1\" dateTime=\"2017-06-18T09:11:47.000Z\" \r\n lastModifiedTime=\"2017-06-18T14:51:56.000Z\" pageLevel=\"1\" isCurrentlyViewed=\"true\"\/>\r\n ...\r\n <\/one:Section>\r\n ...\r\n <\/one:Notebook>\r\n<\/one:Notebooks><\/pre>\n
Kinder von Notizen einlesen<\/h2>\n
<xml version=\"1.0\">\r\n<one:Notebooks...>\r\n <one:Notebook name=\"Test-Notizbuch 2\" ...\/>\r\n <one:Notebook name=\"Test-Notizbuch 1\" ...\/>\r\n<\/one:Notebooks><\/pre>\n
<xml version=\"1.0\">\r\n<one:Notebooks ...\/><\/pre>\n
Inhalte der Notizen einlesen<\/h2>\n
For Each objPage In objSection.selectNodes(\"one:Page\")\r\n With<\/span> objPage\r\n objOneNote.GetPageContent .getAttribute(\"ID\"), strChild\r\n Debug.Print<\/span> FormatXML(strChild)\r\n End With<\/span>\r\nNext<\/span> objPage<\/pre>\n<xml version=\"1.0\">\r\n<one:Page name=\"Test-Notiz 1\" .... pageLevel=\"1\" ...>\r\n <one:QuickStyleDef index=\"0\" name=\"PageTitle\" ...\/>\r\n <one:QuickStyleDef index=\"1\" name=\"p\" ...\/>\r\n <one:PageSettings RTL=\"false\" color=\"automatic\">\r\n <one:PageSize>\r\n <one:Automatic\/>\r\n <\/one:PageSize>\r\n <one:RuleLines visible=\"false\"\/>\r\n <\/one:PageSettings>\r\n <one:Title lang=\"de\">\r\n <one:OE author=\"André Minhorst\" ...>\r\n <one:T>\r\n <![CDATA[Test-Notiz 1]]>\r\n <\/one:T>\r\n <\/one:OE>\r\n <\/one:Title>\r\n <one:Outline author=\"André Minhorst\" ...>\r\n <one:Position x=\"36.0\" y=\"86.4000015258789\" z=\"0\"\/>\r\n <one:Size width=\"144.4595184326172\" height=\"13.42771339416504\"\/>\r\n <one:Indents>\r\n <one:Indent level=\"0\" indent=\"4.94560573569481E-29\"\/>\r\n <\/one:Indents>\r\n <one:OEChildren>\r\n <one:OE ...>\r\n <one:T>\r\n <![CDATA[Dies ist eine Test-Notiz.]]>\r\n <\/one:T>\r\n <\/one:OE>\r\n <\/one:OEChildren>\r\n <\/one:Outline>\r\n<\/one:Page><\/pre>\n
<![CDATA[Dies ist eine Test-Notiz.]]><\/pre>\n
Bilder und Dokumente in Notizen<\/h2>\n
\n
Daten einlesen<\/h2>\n
Public Sub <\/span>OneNoteNotizinhalteXML()\r\n ''''...Deklaration...\r\n Set<\/span> objOneNote = New<\/span> OneNote.Application\r\n objOneNote.GetHierarchy \"\", OneNote.HierarchyScope.hsPages, strSections\r\n Set<\/span> objXML = New<\/span> MSXML2.DOMDocument60\r\n objXML.loadXML strSections\r\n strNamespace = \"xmlns:one=\"\"http:\/\/schemas.microsoft.com\/office\/onenote\/2013\/onenote\"\"\"\r\n objXML.SetProperty \"SelectionNamespaces\", strNamespace\r\n For Each objNotebook In objXML.selectNodes(\"\/\/one:Notebook\")\r\n With<\/span> objNotebook\r\n Debug.Print<\/span> \"Notebook: \" & objNotebook.getAttribute(\"name\")\r\n For Each objSection In objNotebook.selectNodes(\"one:Section\")\r\n Debug.Print<\/span> \" Section: \" & .getAttribute(\"name\")\r\n With<\/span> objSection\r\n For Each objPage In objSection.selectNodes(\"one:Page\")\r\n With<\/span> objPage\r\n objOneNote.GetPageContent .getAttribute(\"ID\"), strChild\r\n Set<\/span> objNote = New<\/span> MSXML2.DOMDocument60\r\n objNote.SetProperty \"SelectionNamespaces\", strNamespace\r\n objNote.loadXML strChild\r\n strTitel = TitelErmitteln(objNote)\r\n Debug.Print<\/span> \" Titel: \" & strTitel\r\n For Each objOutline In objNote.selectNodes(\"one:Page\/one:Outline\/one:OEChildren\/one:OE\")\r\n Set<\/span> objContent = objOutline.childNodes(0)\r\n Select Case objContent.baseName\r\n Case <\/span>\"T\"\r\n Debug.Print<\/span> \" Text: \" & objContent.nodeTypedValue\r\n Case <\/span>\"Image\"\r\n Debug.Print<\/span> \" Image: \" & objContent.nodeTypedValue\r\n Case <\/span>\"InsertedFile\"\r\n Debug.Print<\/span> objContent.Attributes.getNamedItem(\"pathSource\").nodeTypedValue\r\n Case Else<\/span>\r\n Debug.Print<\/span> \"!!! \" & objContent.baseName\r\n End Select<\/span>\r\n Next<\/span> objOutline\r\n End With<\/span>\r\n Next<\/span> objPage\r\n End With<\/span>\r\n Next<\/span> objSection\r\n End With<\/span>\r\n Next<\/span> objNotebook\r\nEnd Sub<\/span><\/pre>\n