怎么在PPT里做一个随机抽取人名不重复

PowerPoint 2007起手式（2010/2013/2016都差不多，2003更简单：视图→工具栏→控件工具箱）
先存成.pptm格式（带宏的演示文稿！别存成.ppt或.pptx，不然宏直接罢工）
没看到「开发工具」？点文件→选项→自定义功能区→勾上「开发工具」?
接着：
??插个文本框控件，属性里把名字改成TextBox1（不是文本框1，是直接改(名称)那一栏！）
??再插俩按钮：一个叫开始，一个叫清除——改的是Caption属性哈，别瞎改Name！
??字体字号随便调，看着顺眼就行～
写代码环节（双击开始按钮进编辑页）：
vb
Dim a As Integer, s As String, c As Integer
s = 张三丰张无忌王小明李鸣 '名字全塞这儿！仨字不空格，俩字后面加个空格！
c = Len(s)
a = Int((c / 3) * Rnd + 1)
TextBox1.Text = Mid(s, 3 * (a - 1) + 1, 3)

双击清除按钮，就写一行：
`TextBox1.Text = `
搞定！点开始随机抽人，点清除秒变空白～
（温馨提示：启用宏要手动点启用内容，安全中心别拦着它）