Hallo zusammen

Mithilfe dieses Codes will ich alle meine VBA Codes, Module von Addins als Text nach Onenote sichern. Damit das verfügbar bleibt.
Damit will ich meine Codes Backupen. Ich weiss dass man die Addins direkt als Backup kopieren kann. Der Vorteil von Onenote ist, wenn man ein Codeschnipsel sucht, und man nicht mehr weiss, wo man das gebraucht hat, dann kann man dort suchen. Deshalb das Ganze.

Nun ist es so, dass bereits bei der 2ten Zeile eine Fehlermeldung kommt: Benutzerdefinierter  Typ nicht definiert.

Sub SaveVBAtoOneNote()
    Dim objOneNoteApp As OneNote.Application
    Dim objOneNotePage As OneNote.Page '=> Hier 
    Dim strNotebookName As String
    Dim strSectionName As String
    Dim strPageName As String
    Dim strVBAContent As String
    
    ' Set your OneNote notebook, section, and page names here
    strNotebookName = "Testbook"
    strSectionName = "Testregister"
    strPageName = "Testseite"
    
    ' Get the VBA code to save
    strVBAContent = ThisWorkbook.VBProject.VBComponents("Module1").CodeModule.Lines(1, ThisWorkbook.VBProject.VBComponents("Module1").CodeModule.CountOfLines)
    
    ' Initialize OneNote application
    Set objOneNoteApp = New OneNote.Application
    
    ' Create or get the page
    Set objOneNotePage = GetOrCreatePage(objOneNoteApp, strNotebookName, strSectionName, strPageName)
    
    ' Append VBA code to the page
    objOneNotePage.Content = objOneNotePage.Content & vbCrLf & "```vba" & vbCrLf & strVBAContent & vbCrLf & "```"
    
    ' Release OneNote objects
    Set objOneNotePage = Nothing
    Set objOneNoteApp = Nothing
    
    MsgBox "VBA code has been saved to OneNote successfully!", vbInformation
End Sub

Function GetOrCreatePage(ByRef objOneNoteApp As OneNote.Application, ByVal strNotebookName As String, ByVal strSectionName As String, ByVal strPageName As String) As OneNote.Page '=> Hier auch
    Dim objNotebook As OneNote.Notebook
    Dim objSection As OneNote.Section
    Dim objPage As OneNote.Page '=> Hier sowiso
    
    ' Iterate through notebooks to find the specified one
    For Each objNotebook In objOneNoteApp.GetHierarchy.Children
        If objNotebook.Name = strNotebookName Then
            ' Found the specified notebook
            ' Check if the section exists
            For Each objSection In objNotebook.Sections
                If objSection.Name = strSectionName Then
                    ' Found the specified section
                    ' Check if the page exists
                    For Each objPage In objSection.Pages
                        If objPage.Title = strPageName Then
                            ' Page already exists
                            Set GetOrCreatePage = objPage
                            Exit Function
                        End If
                    Next objPage
                    ' Page doesn't exist, create one
                    Set objPage = objSection.AddPage(strPageName)
                    Set GetOrCreatePage = objPage
                    Exit Function
                End If
            Next objSection
            ' Section doesn't exist, create one
            Set objSection = objNotebook.AddSection(strSectionName)
            Set objPage = objSection.AddPage(strPageName)
            Set GetOrCreatePage = objPage
            Exit Function
        End If
    Next objNotebook
    
    ' Notebook doesn't exist, create one
    Set objNotebook = objOneNoteApp.CreateNewNotebook(strNotebookName)
    Set objSection = objNotebook.AddSection(strSectionName)
    Set objPage = objSection.AddPage(strPageName)
    Set GetOrCreatePage = objPage
End Function
Der Onenoteverweis ist aktiv: Onenote 15.0 Object Library
Der Pageeintrag gibt es aber nicht. Gibt es eine Alternative?

Ich habe gelesen, dass es eine 16.0 Variante der Bibliothek geben soll, ist der Eintrag vielleicht dort vorhanden?

Gruss und schönes WE