如何使用OneNote VBA实现类似右键操作的页面复制/移动功能

前置准备 #

• 打开OneNote，按Alt + F11启动VBA编辑器
• 点击菜单栏「工具」-「引用」，勾选对应版本的Microsoft OneNote xx.x Object Library（xx.x对应你安装的Office版本，比如Office 2019/365是16.0），点击确认

核心实现逻辑 #

OneNote VBA 内置的CopyHierarchy、MoveHierarchy方法和右键手动执行的复制/移动页面逻辑完全一致，会完整保留页面格式、标签、附件、子页面层级、历史版本等所有属性，不会出现内容丢失问题。

完整代码示例 #

1. 复制单页/含子页面的页面组到指定分区 #

Sub CopyOneNotePage()
    Dim oneNoteApp As OneNote.Application
    Set oneNoteApp = New OneNote.Application
    
    ' 替换为实际的源页面ID
    Const sourcePageID As String = "你的源页面ID"
    ' 替换为实际的目标分区ID
    Const targetSectionID As String = "你的目标分区ID"
    
    ' 执行复制操作，等效右键复制页面到目标分区
    ' 参数说明：源元素ID、目标父元素ID、插入位置、是否覆盖重名元素
    oneNoteApp.HierarchyOperations.CopyHierarchy _
        sourcePageID, _
        targetSectionID, _
        HierarchyInsertLocation.hsStart, _
        False
    
    Set oneNoteApp = Nothing
    MsgBox "页面复制完成"
End Sub

2. 移动单页/含子页面的页面组到指定分区 #

把上述代码中的CopyHierarchy替换为MoveHierarchy即可，其余参数逻辑完全一致：

oneNoteApp.HierarchyOperations.MoveHierarchy _
    sourcePageID, _
    targetSectionID, _
    HierarchyInsertLocation.hsStart, _
    False

参数说明 #

• HierarchyInsertLocation可选值：
  • hsStart：插入到目标分区的最顶部
  • hsEnd：插入到目标分区的最底部
  • 传入具体页面ID：插入到该指定页面的下一个位置
• 最后一个布尔值参数：传True会覆盖目标位置的重名页面，传False遇到重名会自动重命名（比如页面名后加数字后缀），和手动操作的逻辑一致

ID获取方法 #

你可以通过手动方式快速获取元素ID：

• 页面ID：右键对应页面 - 点击「复制指向页面的链接」，粘贴到任意文本编辑器，链接中ID=后面的字符串就是页面ID
• 分区ID：右键对应分区 - 点击「复制指向分区的链接」，同理提取链接中ID=后面的字符串即可

注意事项 #

• 如果源页面包含子页面，只要传入父页面ID，方法会自动递归复制/移动所有子页面，完整保留层级关系
• 操作前确保源页面、目标分区没有被其他用户锁定，且你拥有对应读写权限
• 批量操作可以配合遍历Hierarchy的逻辑批量获取页面ID，实现批量复制移动

内容的提问来源于stack exchange，提问作者Chris