有没有过这种时候：客户催着要方案，PPT一页页空着，脑子也一片空白。这个时候要是PPT自己能想文案，甚至还能总结归纳，是不是直接原地升天？

今天咱就聊聊，怎么把DeepSeek接入到PPT里，让它帮你写文案、生成内容，堪称“AI秘书”。

第一步：前期准备

想接入DeepSeek，首先得把环境搞好。别急，听我一步步说。

获取API Key

DeepSeek用API调用，得先有个Key。

由于官方服务器资源紧张，API服务可能会暂停充值，建议通过官方渠道获取API Key。这边推荐两个超稳定的渠道，大家自行获取。
腾讯云：https://curl.qcloud.com/T3M5yBHp
硅基流动(SiliconCloud)：https://cloud.siliconflow.cn/i/VXZzAOed

开启PPT的开发者模式

1. 打开PPT，点“文件 -> 选项 -> 自定义功能区”
2. 勾选“开发工具”然后确定，小手点一下👇

这时候你会发现菜单栏多了一个“开发工具”的选项卡，很关键，后面都靠它了。

设置宏权限

不设置宏权限，写了代码也白搭，务必调好👇
“文件 -> 选项 -> 信任中心 -> 宏设置”，然后：

• 勾“启用所有宏”
• 再勾“信任对VBA工程对象模型的访问”

点完确定，别忘了保存，小手点👇

第二步：贴上灵魂代码

万事俱备，开始上代码！

打开VBA编辑器

1. 点击“开发工具 -> Visual Basic”

2. 弹出的窗口点“插入 -> 模块”，创建新模块

然后，把下面这段代码粘进去（记得换掉你的API Key！）👇

Function CallDeepSeekAPI(api_key As String, inputText As String)
    Dim API As String
    Dim SendTxt As String
    Dim Http As Object
    Dim status_code As Integer
    Dim response As String
    MsgBox "开始调用Deepseek V3进行总结，耐心等待......"
    API = "https://api.deepseek.com/chat/completions"
    SendTxt = "{""model"": ""9dc913a037774fc0b248376905c85da5"", ""messages"": [{""role"":""system"", ""content"":""你是PPT文案专家，善于总结，输出要总结为条目，每个条目不超过50字,前面总结4至8字，加冒号进行概要描述，总字数不超过200字""}, {""role"":""user"", ""content"":""" & inputText & """}], ""stream"": false}"
    Set Http = CreateObject("MSXML2.XMLHTTP")
    With Http
    .Open "POST", API, False
    .setRequestHeader "Content-Type", "application/json"
    .setRequestHeader "Authorization", "Bearer " & api_key
    .send SendTxt
    status_code = .Status
    response = .responseText
   End With

If status_code = 200 Then
    CallDeepSeekAPI = response
    Else
      CallDeepSeekAPI = "Error: " & status_code & " - " & response
 End If
    Set Http = Nothing
End Function

Function CallDeepSeekRAPI(api_key As String, inputText As String)
    Dim API As String
    Dim SendTxt As String
    Dim Http As Object
    Dim status_code As Integer
    Dim response As String
     MsgBox "开始调用Deepseek R1进行总结，耐心等待......"
    API = "https://api.deepseek.com/chat/completions"
    SendTxt = "{""model"": ""deepseek-reasoner"", ""messages"": [{""role"":""system"", ""content"":""你是PPT文案专家，善于总结，输出要总结为条目，每个条目不超过50字,前面总结4至8字，加冒号进行概要描述，总字数不超过200字""}, {""role"":""user"", ""content"":""" & inputText & """}], ""stream"": false}"
    Set Http = CreateObject("MSXML2.XMLHTTP")
    With Http
    .Open "POST", API, False
    .setRequestHeader "Content-Type", "application/json"
    .setRequestHeader "Authorization", "Bearer " & api_key
    .send SendTxt
    status_code = .Status
    response = .responseText
   End With


If status_code = 200 Then
    CallDeepSeekRAPI = response
    Else
      CallDeepSeekRAPI = "Error: " & status_code & " - " & response
 End If
    Set Http = Nothing
End Function

Sub DeepSeekR()
Dim selectedText As String
Dim apikey As String
Dim response As String
Dim midString As String
Dim ans As String
Dim shp As Shape
Dim slide As slide
    Dim regex As Object
    Dim matches As Object
Dim selectedShape As Shape
' 检查是否有选中的对象
If ActiveWindow.Selection.Type = ppSelectionShapes Then
' 获取选中的形状
Set selectedShape = ActiveWindow.Selection.ShapeRange(1)

' 检查形状是否有文本
If selectedShape.HasTextFrame Then
If selectedShape.TextFrame.HasText Then
selectedText = selectedShape.TextFrame.TextRange.Text
selectedText = Replace(selectedText, ChrW$(13), "")

apikey = "替换为你获取的API Key"

response = CallDeepSeekRAPI(apikey, selectedText)

 If Left(response, 5) <> "Error" Then
        Set regex = CreateObject("VBScript.RegExp")
       With regex
           .Global = True
           .MultiLine = True
            .IgnoreCase = False
             .Pattern = """content"":""(.*?)"""
       End With
       Set matches = regex.Execute(response)
     If matches.Count > 0 Then
      response = matches(0).SubMatches(0)
      response = Replace(Replace(response, """", Chr(34)), """", Chr(34))
       response = Replace(response, "\n\n", "\n")
               response = Replace(response, "\n", vbCrLf)
        response = Replace(response, "*", "")
        response = Replace(response, "#", "")
' 将结果插入到形状的文本中
selectedShape.TextFrame.TextRange.Text = response
     Else
      MsgBox "Failed to parse API response.", vbExclamation
     End If
     Else
    MsgBox response, vbCritical
   End If


Else
MsgBox "选中的形状没有文本内容。"
End If
Else
MsgBox "选中的形状没有文本框。"
End If
Else
MsgBox "请选择一个形状。"
End If
End Sub

👆写完后效果应该是这样👇

别急，看到这别直接关窗口，后面还有点操作。

第三步：做个按钮，触发AI

光有代码还不够，总不能每次都去手动点宏，那不疯了？我们来给它加个按钮，美滋滋。

自定义功能区

1. “文件 -> 选项 -> 自定义功能区”
2. 右键“开发工具”，点“添加新组”
3. 新建组重命名为“DeepSeek”，选个图标装点门面

给按钮绑定宏

1. 左边命令列表选“宏”

2. 选到你刚才写的那个宏，一般叫CallDeepSeekAPI或者DeepSeekR

3. 点“添加”，丢进右边的“DeepSeek”组里

OK！这就给你的PPT加了个AI“召唤术”。

第四步：测试上线

终于到了验收成果的时候！来看看效果到底如何。

1. 打开PPT随便建一页幻灯片，插个文本框
2. 里面写点啥，比如：“这是一段待总结的内容”
3. 点击你新建的“DeepSeek”按钮

如果一切顺利，你会看到刚才的文字被处理过后，自动变成了有结构、有逻辑的内容。再点点头，这AI还挺懂人心的。

最终效果👇

出现问题咋办？

实话说，这种DIY项目难免有点小bug，如果你遇到问题，可以一一排查：

• 看API Key是不是对的
• 网络通不通，能不能连上DeepSeek
• PPT是不是启用了宏
• 形状有没有文字？别选了个图片说没反应哈

总结（不是官方那种）

这招说复杂吧，确实得写点代码；但说简单呢，跟着步骤来也就十分钟搞定。最重要的是——它真的能省不少脑细胞。你试试，有时候老板让你做汇报，DeepSeek一键就给你来个提纲，堪称打工人福音。

我已经把它加入我工作流，写汇报、总结会议内容、甚至讲稿生成全都靠它。别说“效率神器”这种词儿，我觉得它就是省事利器，谁用谁知道。

你要是PPT做得多，这方法真的值一试。下次再看到空白PPT页面，不用再头大了——让AI来帮你动脑吧！

我的DeepSeek部署资料已打包好（自取↓）
https://pan.quark.cn/s/7e0fa45596e4

但如果你想知道这个工具为什么能“听懂人话”、写出代码 甚至预测市场趋势——答案就藏在大模型技术里！

❗️为什么你必须了解大模型？

1️⃣ 薪资爆炸：应届大模型工程师年薪40万起步，懂“Prompt调教”的带货主播收入翻3倍

2️⃣ 行业重构：金融、医疗、教育正在被AI重塑，不用大模型的公司3年内必淘汰

3️⃣ 零门槛上车：90%的进阶技巧不需写代码！会说话就能指挥AI

（附深度求索BOSS招聘信息）

⚠️警惕：当同事用DeepSeek 3小时干完你3天的工作时，淘汰倒计时就开始了。

那么，如何系统的去学习大模型LLM？

作为一名从业五年的资深大模型算法工程师，我经常会收到一些评论和私信，我是小白，学习大模型该从哪里入手呢？老师啊，我自学没有方向怎么办？老师，这个地方我不会啊。如果你也有类似的经历，一定要继续看下去！当然这些问题啊，也不是三言两语啊就能讲明白的。

所以我综合了大模型的所有知识点，给大家带来一套全网最全最细的大模型零基础教程。在做这套教程之前呢，我就曾放空大脑，以一个大模型小白的角度去重新解析它，采用基础知识和实战项目相结合的教学方式，历时3个月，终于完成了这样的课程，让你真正体会到什么是每一秒都在疯狂输出知识点。

篇幅有限，⚡️ 朋友们如果有需要全套 《2025全新制作的大模型全套资料》，扫码获取~

👉大模型学习指南+路线汇总👈

我们这套资料呢，会从基础篇、进阶篇和项目实战篇等三大方面来讲解。

👉①.基础篇👈

基础篇里面包括了Python快速入门、AI开发环境搭建及提示词工程，带你学习大模型核心原理、prompt使用技巧、Transformer架构和预训练、SFT、RLHF等一些基础概念，用最易懂的方式带你入门大模型。

👉②.进阶篇👈

接下来是进阶篇，你将掌握RAG、Agent、Langchain、大模型微调和私有化部署，学习如何构建外挂知识库并和自己的企业相结合，学习如何使用langchain框架提高开发效率和代码质量、学习如何选择合适的基座模型并进行数据集的收集预处理以及具体的模型微调等等。

👉③.实战篇👈

实战篇会手把手带着大家练习企业级的落地项目（已脱敏），比如RAG医疗问答系统、Agent智能电商客服系统、数字人项目实战、教育行业智能助教等等，从而帮助大家更好的应对大模型时代的挑战。

👉④.福利篇👈

最后呢，会给大家一个小福利，课程视频中的所有素材，有搭建AI开发环境资料包，还有学习计划表，几十上百G素材、电子书和课件等等，只要你能想到的素材，我这里几乎都有。我已经全部上传到CSDN，朋友们如果需要可以微信扫描下方CSDN官方认证二维码免费领取【保证100%免费】

相信我，这套大模型系统教程将会是全网最齐全 最易懂的小白专用课！！