公司年会猜词游戏PPT批量生成工具（vba版）

有感于[原创工具] 公司年会猜词游戏PPT批量生成工具作者的想法，我制作了一个在PPT中生成猜词页面的文档，不需要额外的软件，但是需要电脑允许运行vba。

image.png (398.82 KB, 下载次数: 0)

下载附件

2024-2-29 15:59 上传

方法很简单，点击播放幻灯片，再点击”添加词语“按钮，在弹出的对话框里填上要猜的词（用顿号分割）就行了。
代码如下：

[Visual Basic] 纯文本查看 复制代码

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

附件：