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”。自动轮播后，可点击方向上键或左键暂停，使用下键和右键继续。
以PowerPoint 2007为例（2010及以上类似，2003直接“视图→工具栏→控件工具箱”即可）
打开PowerPoint，将文件保存为*.pptm格式（包含宏代码的演示文稿）
若没有“开发工具”选项卡，请打开
通过“开发工具”选项卡，插入一个文本框控件，和两个命令按钮控件
文本框控件：命名为“TextBox1”（选中控件，更改“属性”当中的“(名称)”）
命令按钮控件：一个命名为“开始”，另一个命名为“清除”（选中控件，更改“属性”当中的“Caption”）
可根据自己的需要，更改“文本框”以及“命令按钮”字体、字号等属性
编写程序（示例）双击“开始”按钮，弹出程序编写框，在中间空白处输入以下内容：
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)
可将“s = "后的内容改为自己需要的名字，注意三个字的不加空格，两个字的后面要加一空格
双击“结束”按钮，在中间空白处输入：
TextBox1.Text = ""
这样便可以实现随机抽取姓名的功能
本回答被网友采纳开始按钮编译下面内容：
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