Word中的“开发工具”提供了ActiveX控件,可以用来创建简单的动态文本效果。
Private Sub Timer1_Timer()
    Static pos As Integer
    pos = pos + 1
    If pos > Len(TextBox1.Text) Then pos = 0
    TextBox1.SelStart = pos
    TextBox1.SelLength = 10 ' 滚动长度
End Sub
        
        注意:此方法需要启用宏,且仅在支持VBA的桌面版Word中有效。
如果是为了演示目的,可以通过多页文档配合“自动翻页”来模拟滚动效果。
若需真正意义上的自动滚动文字,建议将Word内容导入PPT:
这是目前最稳定、兼容性最好的实现方式。
Q:Word可以直接设置自动滚动吗?
        A:不可以。Word是静态文档处理软件,不支持原生自动滚动功能。
Q:为什么我的VBA代码无法运行?
        A:请检查宏安全性设置,确保已启用宏,并在受信任的位置打开文档。
Q:手机Word能实现滚动文字吗?
        A:不能。移动端Word不支持VBA和ActiveX控件,无法实现该效果。