Question

嗨，我已经在互联网上搜索了有关创建新的onenote部分的示例，但找不到适合我理解的正确示例。我能找到的最接近的是使用.OpenHierarchy函数，但是我对它仍然很陌生，我无法正确获取参数。

我目前正在为多个PDF文件制作OCR marco。一切正常，直到我意识到我正在计算机上创建大量废文件。

这是我用来删除此部分中创建的所有页面的代码

将oneNote设为OneNote14.Application

Dim secDoc As MSXML2.DOMDocument60
Set secDoc = New MSXML2.DOMDocument60

Dim secNodes As MSXML2.IXMLDOMNodeList
Set secNodes = secDoc.DocumentElement.getElementsByTagName("one:Section")

' Get the first section.
Dim secNode As MSXML2.IXMLDOMNode
Set secNode = secNodes(0)

Dim sectionName As String
sectionName = secNode.Attributes.getNamedItem("name").Text
Dim sectionID As String
sectionID = secNode.Attributes.getNamedItem("ID").Text

oneNote.DeleteHierarchy (sectionID)
oneNote.OpenHierarchy
End Sub

Deletehierarchy函数删除整个节，不留下任何节，但是我的OCR宏至少需要一个节才能工作。

感谢阅读，并先谢谢您！

Answer 1

vba中的oneNote.OpenHierarchy不允许出现问题，这就是导致错误的问题。

解决方案：

oneNote.OpenHierarchy fileName，“”，“ New Section 1”，3

使用VBA在OneNote中创建新部分

1 个答案: