公司年会猜词游戏PPT批量生成工具（vba版）
有感于[原创工具] 公司年会猜词游戏PPT批量生成工具作者的想法，我制作了一个在PPT中生成猜词页面的文档，不需要额外的软件，但是需要电脑允许运行vba。方法很简单，点击播放幻灯片，再点击”添加词语“按钮，在弹出的对话框里填上要猜的词（用顿号分割）就行了。
代码如下：
Private Sub CommandButton1_Click()
Dim userInput As String
Dim substrings() As String
Dim substring As Variant
userInput = InputBox("请输入词语，用顿号隔开：")
substrings = Split(userInput, "、")
Dim newSlide As Slide
For Each substring In substrings
Set newSlide = ActivePresentation.Slides.Add(ActivePresentation.Slides.Count + 1, ppLayoutTitle)
newSlide.Shapes(1).TextFrame.TextRange.Text = substring ' 设置标题
Next
End Sub
附件：
下载看看，感谢楼主分享 不错的工具，提升不少效率 感谢楼主分享资源！ 没有年会，只有裁员降薪 感谢分享！ 这个好，有时候软件会有问题！还是这个好 感谢分享！
谢谢楼主了 收藏了先，明年用 没有贴图呢？先下载试一下呢