怎么用ppt实现一个随机抽取名来自字的功能？

原答案格式不对，略加修改后希望能给大家提供帮助
开始按钮编译下面内容：

Private Sub CommandButton1_Click()
Dim a As Integer
Dim s As String
Dim c As Integer
s = "张三丰张无忌王小明李鸣 "
c = Len(s)
a = Int(((c / 3) * Rnd) + 1)
TextBox1.Text = Mid(s, 3 * (a - 1) + 1, 3)
End Sub
清楚按钮编译下面内容：
Private Sub CommandButton2_Click()
TextBox1.Text = ""
End Sub

1、使用Word制作随机抽取名单。
将需要随机抽取名单的姓名或编号，复制粘贴到Word文档中（新建颂册一个Word文档）。
格式要求每个姓名或编号单独占一行。可用回车键(Enter)将名单分开。


2、新建一个ppt文件，点击左上角“ 文件-”，点击“打开”，选择“所有文件”，找到刚刚制作的Word文档。

3、点击确定后将会开始加载word文档转换为PPT。

加载后会再加载一个PPT文件，演示文档2。将窗口移到此文件中。

4、依次点击“视图”，“幻灯片母版唤扰” ，翻到最后一个板式（标题和文本）
删除此版式中下方四个文本框，仅留上方一个含有“单击此处编辑母版标题样式”的文本框
删除下方四个。

5、删除此版式中下方四个文本框，仅留上方一个含有“单击此处编辑母版标题样式”的文本框。

6、将仅留的文本框移动到中心。并修改其中文本格式，修改到自己所需的样式（居中，文本大小等）。


7、调整好后，点击“关闭母版视图”。和樱旦


8、设置幻灯片放映设置。首先在左方缩略图器蛋停得环福中选中第一张幻灯片，然后使用快捷键“Ctrl+A”选中所有幻灯片缩略图

9、依次点击“切换”，“计时”。换片方式中选中“设计自动换片时间并看时间是否为00:00:00”,取消“单击鼠标时”选框（可省略）。

10、接着再依次点击“幻灯片放映”,"设置幻灯片放映。在其中的放映选项中选择“循环放映，按ESC键终止”，点击确定。
`


10，此时已设置完成

可点击幻灯片放映或（F5），如果是笔记本可用组合键“Fn+F5”。自动轮播后，可点击方向上键或左键暂停，使用下键和右键继续。

1、使用Word制作随机抽取名单。
将需要随机抽取名单的姓名或编号，复制和樱旦粘贴到Word文档中（新建一个Word文档）。
格式要求每个姓名或编号单独占一行。可用回车键(Enter)将名单分开。


2、新建一个ppt文件，点击左上角“ 文件-”，点击“打开”，选择“所有文件”，找到刚刚制作的Word文档。

3、点击确定后将会开始加载word文档转换为PPT。

加载后会再加载一个PPT文件，演示文档2。将窗口移到此文件中。

4、依次点击“视图”，“幻灯片母版” ，翻到最后一个板式（标题和文本）
删除此版式中下方四个文本框，仅留上方一个含有“单击此处编辑母版标题样式”的文本框
删除下方四个。

5、删除此版式中下颂册方四个文本框，仅留上方一个含有“单击此处编辑母版标题样式”的文本框。

6、将仅留的文本框移动到中心。并修改其中文本格式，修改到自己所需的样式（居中，文本大小等）。


7、调整好后，点击“关闭母版视图”。


8、设置幻灯片放映设置。首先在左方缩略图中选中第一张幻灯片，然后使用快捷键“Ctrl+A”选中所有幻灯片缩略图

9、依次点击“切换”，“计时”。换片方式中选中“设计自动换片时间并看时间是否为00:00:00”,取消“单击鼠标时”选框（可省略）。

10、接着再依次点击“唤扰幻灯片放映”,"设置幻灯片放映。在其中的放映选项中选择“循环放映，按ESC键终止”，点击确定。
`


10，此时已设置完成

可点击幻灯片放映或（F5），如果是笔记本可用组合键“Fn+F5”。自动轮播后，可点击方向上键或左键暂停，使用下键和右键继续。