用变量表示幻灯片的代码怎么写？

cuiniao6

用以下代码有效果:
Sub test()
With Slide12
.TextBox1.Value = "对"
End With
End Sub
现在需要解决的是，要对ppt中的全部N张幻灯片都进行如上的操作，这个代码怎么写呢？
恳请高手赐教，谢谢！