主题驱动VBA生成助手

{"vbaCode":"Sub CreatePresentation()\n Dim pptApp As Object\n Dim pptPres As Object\n Dim pptSlide As Object\n Dim slideIndex As Integer\n Dim slideTitles As Variant\n\n ' 定义每张幻灯片的标题\n slideTitles = Array("封面", "Python是什么", "安装Python", "第一个Python程序", "变量和数据类型", "控制流简介", "函数和模块", "总结与资源")\n\n ' 创建PowerPoint应用程序\n On Error Resume Next\n Set pptApp = GetObject(Class:="PowerPoint.Application")\n If pptApp Is Nothing Then\n Set pptApp = CreateObject(Class:="PowerPoint.Application")\n End If\n On Error GoTo 0\n\n ' 创建一个新的演示文稿\n Set pptPres = pptApp.Presentations.Add\n pptApp.Visible = True\n\n ' 添加幻灯片并设置标题\n For slideIndex = LBound(slideTitles) To UBound(slideTitles)\n Set pptSlide = pptPres.Slides.Add(slideIndex + 1, ppLayoutText)\n With pptSlide\n .Shapes(1).TextFrame.TextRange.Text = slideTitles(slideIndex) ' 设置标题\n .Shapes(2).TextFrame.TextRange.Text = "添加您的内容这里" ' 设置内容占位符\n End With\n Next slideIndex\n\n ' 释放对象\n Set pptSlide = Nothing\n Set pptPres = Nothing\n Set pptApp = Nothing\n\nEnd Sub","slideTitles":["封面", "Python是什么", "安装Python", "第一个Python程序", "变量和数据类型", "控制流简介", "函数和模块", "总结与资源"]}

{"vbaCode":"Sub CreatePresentation()\n Dim pptApp As Object\n Dim pptPres As Object\n Dim pptSlide As Object\n Dim slideIndex As Integer\n\n ' 创建 PowerPoint 应用程序\n On Error Resume Next\n Set pptApp = GetObject(, "PowerPoint.Application")\n If pptApp Is Nothing Then\n Set pptApp = CreateObject("PowerPoint.Application")\n End If\n On Error GoTo 0\n\n ' 创建一个新的演示文稿\n Set pptPres = pptApp.Presentations.Add\n\n ' === 创建每张幻灯片 ===\n ' 第一张：介绍\n slideIndex = 1\n Set pptSlide = pptPres.Slides.Add(slideIndex, ppLayoutTitle)\n pptSlide.Shapes(1).TextFrame.TextRange.Text = "深度学习综述"\n pptSlide.Shapes(2).TextFrame.TextRange.Text = "介绍"\n\n ' 第二张：背景\n slideIndex = slideIndex + 1\n Set pptSlide = pptPres.Slides.Add(slideIndex, ppLayoutText)\n pptSlide.Shapes(1).TextFrame.TextRange.Text = "深度学习的背景"\n pptSlide.Shapes(2).TextFrame.TextRange.Text = "深度学习源于人工智能技术的快速发展..."\n\n ' 第三张：核心技术\n slideIndex = slideIndex + 1\n Set pptSlide = pptPres.Slides.Add(slideIndex, ppLayoutText)\n pptSlide.Shapes(1).TextFrame.TextRange.Text = "深度学习的核心技术"\n pptSlide.Shapes(2).TextFrame.TextRange.Text = "包括神经网络、卷积神经网络（CNN）、递归神经网络（RNN）等..."\n\n ' 第四张：应用场景\n slideIndex = slideIndex + 1\n Set pptSlide = pptPres.Slides.Add(slideIndex, ppLayoutText)\n pptSlide.Shapes(1).TextFrame.TextRange.Text = "深度学习的应用场景"\n pptSlide.Shapes(2).TextFrame.TextRange.Text = "广泛应用于图像处理、语音识别、自然语言处理等领域..."\n\n ' 显示 PowerPoint 应用程序\n pptApp.Visible = True\n\n ' 清理变量\n Set pptSlide = Nothing\n Set pptPres = Nothing\n Set pptApp = Nothing\nEnd Sub","slideTitles":["介绍","背景","核心技术","应用场景"]}