有感于[原创工具] 公司年会猜词游戏PPT批量生成工具作者的想法，我制作了一个在PPT中生成猜词页面的文档，不需要额外的软件，但是需要电脑允许运行vba。
方法很简单，点击播放幻灯片，再点击”添加词语“按钮，在弹出的对话框里填上要猜的词（用顿号分割）就行了。
代码如下：
[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
附件：
年会猜词.rar
(531.51 KB, 下载次数: 93)
| 
发表于 2024-2-29 16:03
