求PowerPoint幻灯片放映模式中文本框自动选中的VBA代码

一、自动激活文本框的核心代码 #

在PPT的ThisPresentation模块中添加以下事件代码，幻灯片切换时会自动选中指定文本框，孩子无需手动点击就能直接输入：

Private Sub Application_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
    Dim shp As Shape
    ' 遍历当前幻灯片，找到名为TextBox1的文本框
    For Each shp In Wn.View.Slide.Shapes
        If shp.Name = "TextBox1" And shp.Type = msoTextBox Then
            shp.Select ' 激活文本框，光标自动进入输入状态
            Exit For
        End If
    Next shp
End Sub

注意事项： #

• 确保所有训练幻灯片的输入文本框名称统一为TextBox1（右键文本框→设置形状格式→大小与属性→名称）；
• 这段代码是全局事件，开启幻灯片放映后自动生效。

二、修复跳转与随机排序的兼容问题 #

原跳转代码固定判断输入"X"，无法适配随机排序后不同幻灯片的目标字母。修改为通过幻灯片Tag存储目标字母，让代码自适应每张幻灯片：

步骤1：给幻灯片设置目标字母Tag #

1. 选中单张训练幻灯片；
2. 按Alt+F11打开VBA编辑器，在立即窗口输入：ActiveWindow.View.Slide.Tags.Add "TargetLetter", "A"（把"A"换成该幻灯片的目标字母），回车执行；
3. 重复此操作给所有训练幻灯片设置对应Tag。

步骤2：更新文本框触发代码 #

在包含TextBox1的幻灯片模块中替换原代码为：

Private Sub TextBox1_Change()
    Dim targetLetter As String
    Dim currentSlide As Slide
    
    Set currentSlide = ActivePresentation.SlideShowWindow.View.Slide
    targetLetter = currentSlide.Tags("TargetLetter")
    
    ' 忽略大小写，降低儿童输入门槛
    If UCase(TextBox1.Text) = UCase(targetLetter) Then
        TextBox1.Text = "" ' 清空文本框，避免重复触发跳转
        ActivePresentation.SlideShowWindow.View.Next ' 跳转到下一页
    End If
End Sub

三、优化随机排序代码（可选） #

原随机排序可能存在部分幻灯片位置不变的情况，优化后打乱更均匀：

Sub ShuffleSlides()
    Dim firstSlide As Integer, lastSlide As Integer
    Dim i As Integer, rndIndex As Integer
    
    firstSlide = 2
    lastSlide = ActivePresentation.Slides.Count
    
    Randomize
    
    ' 从后往前交换，提升随机均匀度
    For i = lastSlide To firstSlide Step -1
        rndIndex = Int((i - firstSlide + 1) * Rnd + firstSlide)
        ActivePresentation.Slides(rndIndex).MoveTo i
    Next i
End Sub

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