PowerPoint VBA多幻灯片选择宏运行报错问题咨询

两个核心问题导致运行错误：

1. 参数结构不符合要求：写死的Array(2, 4, 11,5)是包含4个独立整数的数组，是Slides.Range()要求的合法格式；但你代码里的iresponse2是完整的逗号拼接字符串，Array(iresponse2)只会生成只有1个字符串元素的数组，不会自动把字符串拆成多个独立页码数值，方法无法识别这个参数。
2. 逻辑判断错误：IsNumeric(strresponse2)仅在输入单个纯数字时才会返回True，输入带逗号的多页码字符串时判断结果为False，iresponse2不会被赋值，直接传空值也会触发错误。

需要先把用户输入的逗号分隔字符串拆分、清洗、转成整数数组，再传给Range方法，修复后的完整代码如下：

Sub SelectSlidesByInput()
    Dim inputStr As String
    Dim tmpArr As Variant
    Dim i As Integer
    Dim pageNum As Integer
    Dim validPages() As Integer
    Dim validCount As Integer
    
    ' 弹出输入框获取页码
    inputStr = Trim(InputBox("请输入要选中的幻灯片页码，用英文逗号分隔" & vbCrLf & "示例：2,4,11,5"))
    If inputStr = "" Then Exit Sub ' 用户点取消或输入为空直接退出
    
    ' 按逗号拆分输入内容
    tmpArr = Split(inputStr, ",")
    validCount = 0
    
    ' 遍历拆分后的内容，校验并提取有效页码
    For i = LBound(tmpArr) To UBound(tmpArr)
        ' 去除每个页码前后的空格，判断是否为合法数字
        If IsNumeric(Trim(tmpArr(i))) Then
            pageNum = CInt(Trim(tmpArr(i)))
            ' 判断页码是否在当前演示文稿的页码范围内
            If pageNum >= 1 And pageNum <= ActivePresentation.Slides.Count Then
                validCount = validCount + 1
                ReDim Preserve validPages(1 To validCount)
                validPages(validCount) = pageNum
            End If
        End If
    Next
    
    ' 存在有效页码才执行选中操作
    If validCount > 0 Then
        ActiveWindow.Selection.Unselect
        ActivePresentation.Slides.Range(validPages).Select
    Else
        MsgBox "未输入有效幻灯片页码，请检查后重试"
    End If
End Sub

• 用Split()函数按逗号拆分用户输入的字符串，解决多页码无法自动拆分的问题
• 增加输入校验逻辑：自动去除每个页码前后的空格、过滤非数字内容、判断页码是否超出当前演示文稿的总页数，避免非法输入触发运行时错误
• 兼容用户输入带空格的场景，比如输入3, 5 ,6也能正常识别

内容的提问来源于stack exchange，提问作者컴알모옷