能否在LibreOffice Impress演示模式中通过宏实现数字递增？

演示模式下原宏失效的核心原因是：Impress播放时会生成幻灯片的视图副本，直接操作原文档的形状对象无法同步到演示视图中。以下是可行的解决步骤：

步骤1：给目标矩形设置唯一名称 #

选中需要作为计数器的矩形，右键选择属性，在弹出的面板中找到"名称"字段，输入一个唯一标识（比如CounterRect），点击确定保存。

步骤2：修改宏代码适配演示模式 #

替换原宏代码为以下内容，该代码直接操作演示视图中的当前幻灯片对象：

Dim oPresentation As Object
Dim oCurrentSlide As Object
Dim oShape As Object

' 获取当前运行的演示实例
oPresentation = ThisComponent.Presentation
If Not oPresentation.IsRunning Then Exit Sub

' 获取演示模式下当前显示的幻灯片
oCurrentSlide = oPresentation.CurrentController.CurrentPage
' 通过预设名称定位目标矩形
oShape = oCurrentSlide.getByName("CounterRect")

' 执行数字递增逻辑
If IsNumeric(oShape.String) Then
    oShape.String = CInt(oShape.String) + 1
Else
    oShape.String = "1" ' 若初始内容非数字，默认从1开始
End If

步骤3：绑定宏到演示模式的点击事件 #

选中矩形，右键选择交互→鼠标点击，在"动作"下拉菜单中选择运行宏，找到刚才修改的宏文件并确认。

注意：必须通过「交互」菜单绑定，普通的「分配宏」仅在编辑模式生效，演示模式下不会触发。

额外注意事项 #

• 确保按F5进入全屏演示模式，窗口预览模式可能无法正常触发交互事件；
• 初始状态下矩形内建议填入数字（如0），若为空或非数字，宏会自动设置初始值为1。

内容的提问来源于stack exchange，提问作者Bob La Touffe