如何在LibreOffice Basic中创建跳转文档末尾宏并设置启动自动运行

可用宏代码 #

你自行录制的宏已经可以正常实现跳转至文档末尾的功能，无需修改即可使用，也可以使用更精简的非调度器调用版本：

sub GoToEndOfDoc
    Dim oDoc As Object
    Dim oViewCursor As Object
    oDoc = ThisComponent
    ' 获取当前视图光标
    oViewCursor = oDoc.CurrentController.ViewCursor
    ' 移动光标到文档末尾，不选中内容
    oViewCursor.gotoEnd(False)
end sub

配置文档打开时自动跳转至末尾 #

按以下步骤操作即可实现文档启动时自动执行宏：

• 打开目标LibreOffice文档，依次点击顶部菜单栏「工具」→「自定义」→「事件」选项卡
• 在事件列表中找到「文档已加载」（部分版本翻译为「打开文档」），点击右侧「宏」按钮
• 在弹出的宏选择窗口中，展开当前文档对应的宏库，选中你需要绑定的跳转宏（你录制的Main或者上述精简版GoToEndOfDoc都可以），点击「确定」
• 回到事件配置窗口，确认「保存于」选项选择的是当前编辑的目标文档（如果要对所有文档生效可以选择LibreOffice应用全局），再次点击「确定」保存配置
• 额外注意：默认LibreOffice会拦截未认证的宏，需要依次点击「工具」→「选项」→「安全」→「宏安全性」，将安全级别调整为「中」（打开文件时手动确认启用宏），或者将常用文档所在文件夹添加到信任位置，避免宏被拦截无法运行。

添加手动跳转按钮（可选） #

如果你需要在界面上添加可点击的跳转按钮，可以按以下两种方式配置：

• 文档内按钮：点击「视图」→「工具栏」→「表单控件」，在弹出的工具栏选择「按钮」组件，在文档合适位置拖拽绘制按钮，右键按钮选择「控制属性」，在「事件」标签的「执行动作」项绑定跳转宏，退出表单编辑模式后点击按钮即可触发跳转
• 工具栏按钮：点击「工具」→「自定义」→「工具栏」选项卡，选中你要添加按钮的顶部工具栏，点击「添加」按钮，找到对应跳转宏添加到工具栏即可，配置完成后所有打开的文档都可以通过工具栏按钮快速跳转。

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