使程序也遍历所有幻灯片

Question

我已经有一个编码，可以输入形状的名称，并将其更改为输入的文字，但是我也想在所有幻灯片中使用它，但是似乎我做错了我不知道那是什么。

该代码应该允许您输入最大数量的幻灯片，然后计数直到完成为止，同时在幻灯片中检查带有您输入名称的文本，但是当我输入最后一个InputBox时，它会崩溃，任何人都可以告诉我哪里出了问题？

代码是这样的：

Public Sub TextoEspecifico()
Dim Name$
Maxnum = InputBox("Enter max number of slides")
TextReemp = InputBox("Enter replacement word")
FindWord = InputBox("Enter name of text box")
j = 1
While j <= Maxnum
    For i = 1 To ActivePresentation.Slides(j).Shapes.Count
        Name = ActivePresentation.Slides(j).Shapes(i).Name
        If Name = FindWord Then
            ActivePresentation.Slides(j).Shapes(i).TextFrame.TextRange.Text = TextReemp
        End If
    Next i
Wend
End Sub