PPT随机姓名选取器优化：支持导入名单与无重复选取功能

一、配置可编辑姓名列表并自动填充文本框 #

你可以通过以下步骤实现：

1. 创建姓名列表幻灯片：在PPT中新增一张幻灯片（建议设为第1张），添加一个文本框，将所有姓名逐行输入（每行一个姓名），然后右键点击该幻灯片选择「隐藏幻灯片」，避免展示时出现。
2. 编写填充宏代码：打开VBA编辑器（Alt+F11），插入模块并添加以下代码：

Sub PopulateNamesFromList()
    Dim nameSlide As Slide
    Dim nameTextBox As Shape
    Dim namesArray() As String
    Dim i As Integer
    
    ' 指向存放姓名列表的隐藏幻灯片（此处为第1张，可按需调整）
    Set nameSlide = ActivePresentation.Slides(1)
    ' 指向该幻灯片上的姓名文本框（假设是第1个形状，可根据实际调整）
    Set nameTextBox = nameSlide.Shapes(1)
    
    ' 将姓名按换行分割为数组
    namesArray = Split(nameTextBox.TextFrame.TextRange.Text, vbCrLf)
    
    ' 填充第2到22张幻灯片的文本框（对应你现有的20张姓名幻灯片）
    For i = 2 To 22
        ' 假设每张幻灯片的姓名文本框是第1个形状，可按需调整
        ActivePresentation.Slides(i).Shapes(1).TextFrame.TextRange.Text = namesArray(i - 2)
    Next i
End Sub

3. 使用方法：每次修改姓名列表后，运行该宏即可自动更新所有幻灯片的文本框内容，无需手动逐个编辑。

二、修改Randomiser宏实现无重复选取 #

通过全局集合记录已选中的幻灯片索引，确保不会重复选取：

1. 声明全局集合：在VBA模块的最顶部（所有子程序之外）添加以下代码：

Dim usedSlides As New Collection

2. 更新Randomiser宏：替换原代码为以下版本：

Sub Randomiser()
    Dim FirstSlide As Integer, LastSlide As Integer
    Dim RSN As Integer
    Dim availableSlides() As Integer
    Dim i As Integer, count As Integer
    
    FirstSlide = 2
    LastSlide = 22
    
    ' 检查是否所有参与者都已被选中
    If usedSlides.Count = LastSlide - FirstSlide + 1 Then
        MsgBox "所有参与者均已被选中！", vbInformation
        ' 可选：重置已选列表，重新开始选取
        Set usedSlides = New Collection
        Exit Sub
    End If
    
    ' 生成可用幻灯片索引数组
    count = 0
    ReDim availableSlides(LastSlide - FirstSlide + 1)
    For i = FirstSlide To LastSlide
        On Error Resume Next
        ' 尝试访问集合中的元素，不存在则说明未被选中
        usedSlides.Item(CStr(i))
        If Err.Number <> 0 Then
            availableSlides(count) = i
            count = count + 1
        End If
        On Error GoTo 0
    Next i
    ReDim Preserve availableSlides(count - 1)
    
    ' 从可用幻灯片中随机选取
    Randomize
    RSN = availableSlides(Int(Rnd() * UBound(availableSlides) + 1))
    
    ' 将选中的幻灯片加入已选集合
    usedSlides.Add RSN, Key:=CStr(RSN)
    
    ' 跳转至选中幻灯片并暂停
    ActivePresentation.SlideShowWindow.View.GotoSlide (RSN)
    ActivePresentation.SlideShowWindow.View.State = ppSlideShowPaused
End Sub

3. 说明：该宏会自动跳过已选中的幻灯片，当所有参与者都被选过一次后，会弹出提示并可选择重置列表重新开始。

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