主题驱动VBA生成助手

{"vbaCode":"Sub CreatePresentation()\n    Dim pptApp As Object\n    Dim pptPres As Object\n    Dim pptSlide As Object\n    Dim slideTitle As String\n\n    ' 创建PowerPoint应用程序\n    Set pptApp = CreateObject(\"PowerPoint.Application\")\n    pptApp.Visible = True\n\n    ' 创建一个新的演示文稿\n    Set pptPres = pptApp.Presentations.Add\n\n    ' 定义每张幻灯片的标题\n    Dim slideTitles(1 To 5) As String\n    slideTitles(1) = \"年度销售报告概述\"\n    slideTitles(2) = \"销售数据分析\"\n    slideTitles(3) = \"市场表现总结\"\n    slideTitles(4) = \"未来计划与目标\"\n    slideTitles(5) = \"总结与展望\"\n\n    ' 添加幻灯片并设置标题\n    Dim i As Integer\n    For i = LBound(slideTitles) To UBound(slideTitles)\n        Set pptSlide = pptPres.Slides.Add(i, 1) ' 1表示标题幻灯片布局\n        pptSlide.Shapes(1).TextFrame.TextRange.Text = slideTitles(i) ' 设置幻灯片标题\n    Next i\n\n    ' 释放对象\n    Set pptSlide = Nothing\n    Set pptPres = Nothing\n    Set pptApp = Nothing\n\n    MsgBox \"PPT创建完成!\"\nEnd Sub","slideTitles":["年度销售报告概述","销售数据分析","市场表现总结","未来计划与目标","总结与展望"]}

{"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":["介绍","背景","核心技术","应用场景"]}