Sub SaveVBAtoOneNote()
Dim objOneNoteApp As OneNote.Application
Dim objOneNotePage As OneNote.Page
Dim strNotebookName As String
Dim strSectionName As String
Dim strPageName As String
Dim strVBAContent As String
strNotebookName = "Testbook"
strSectionName = "Testregister"
strPageName = "Testseite"
strVBAContent = ThisWorkbook.VBProject.VBComponents("Module1").CodeModule.Lines(1, ThisWorkbook.VBProject.VBComponents("Module1").CodeModule.CountOfLines)
Set objOneNoteApp = New OneNote.Application
Set objOneNotePage = GetOrCreatePage(objOneNoteApp, strNotebookName, strSectionName, strPageName)
objOneNotePage.Content = objOneNotePage.Content & vbCrLf & "```vba" & vbCrLf & strVBAContent & vbCrLf & "```"
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
Dim objNotebook As OneNote.Notebook
Dim objSection As OneNote.Section
Dim objPage As OneNote.Page
For Each objNotebook In objOneNoteApp.GetHierarchy.Children
If objNotebook.Name = strNotebookName Then
For Each objSection In objNotebook.Sections
If objSection.Name = strSectionName Then
For Each objPage In objSection.Pages
If objPage.Title = strPageName Then
Set GetOrCreatePage = objPage
Exit Function
End If
Next objPage
Set objPage = objSection.AddPage(strPageName)
Set GetOrCreatePage = objPage
Exit Function
End If
Next objSection
Set objSection = objNotebook.AddSection(strSectionName)
Set objPage = objSection.AddPage(strPageName)
Set GetOrCreatePage = objPage
Exit Function
End If
Next objNotebook
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?