OneNote批量填写

ww200611572

求助各位大师
如下代码可以实现在OneNote中批量新建页面，能不能实现在页面中自动添加内容呢？

1. Sub OneNotePagemaker()
   
2.     Dim oneNote As oneNote.Application
   
3.     Set oneNote = New oneNote.Application
   
4.     Dim MyRange As Excel.Range
   
5.     Dim Fname As String
   
6.     Fname = ThisWorkbook.Path & "\test.one"
   
7.     Dim idString As String
   
8.     oneNote.OpenHierarchy Fname, "", idString
   
9.     Dim pageTitle As Range
   
10.     Set MyRange = Sheet1.Range("A:A")
    
11.     For Each pageTitle In MyRange
    
12.         If Not pageTitle.Formula = "" Then
    
13.             Dim newPage As String
    
14.             oneNote.CreateNewPage idString, newPage
    
15.             Dim pageContent As String
    
16.             oneNote.GetPageContent newPage, pageContent
    
17.             Dim pageXml As Object
    
18.             Set pageXml = CreateObject("MSXML2.DOMDocument")
    
19.             pageXml.LoadXML (pageContent)
    
20.             Dim pageElement As MSXML2.IXMLDOMElement
    
21.             Set pageElement = pageXml.DocumentElement
    
22.             Dim CDATAParent As MSXML2.IXMLDOMNode
    
23.             Set CDATAParent = pageElement.ChildNodes.Item(2).FirstChild.FirstChild
    
24.             Dim oldDataNode As MSXML2.IXMLDOMNode
    
25.             Set oldDataNode = pageElement.ChildNodes.Item(2).FirstChild.FirstChild.FirstChild
    
26.             Dim newNameNode As MSXML2.IXMLDOMCDATASection
    
27.             Set newNameNode = pageXml.createCDATASection(pageTitle.Formula)
    
28.             CDATAParent.RemoveChild oldDataNode
    
29.             CDATAParent.appendChild newNameNode
    
30.             oneNote.UpdatePageContent pageXml.XML
    
31.         End If
    
32.     Next
    
33. End Sub

复制代码

ww200611572

求助大师帮忙想想办法