今天我们来聊一聊，如何把DeepSeek接入到PPT中，实现AI智能内容处理。有没有想过，PPT不仅仅是用来展示数据和图表的工具，加入AI能力后，它简直就是超级助手！
这么酷的功能，怎么才能用得上呢？别急，今天我就来给大家做个保姆级教程。
第一步：准备工作
在开始之前，我们要做一些基础的准备工作，确保PPT能顺利与DeepSeek连接。
1、 获取DeepSeek的API Key
首先，你需要一个DeepSeek的API Key才能开始接入AI能力。虽然官网的API充值已经暂停，但你可以通过以下方式来获取API Key。
腾讯云api key：https://curl.qcloud.com/T3M5yBHp
阿里云api key：https://sourl.cn/T4Swar
2、 启用PPT的开发者工具
可能很多小伙伴对PPT的开发者工具不太熟悉。其实在PPT里，隐藏着一个非常强大的功能区——“开发工具”，启用它后，我们就能编写和执行VBA代码，实现DeepSeek的接入。
打开PPT后，点击“文件” -> “选项” -> “自定义功能区”。
勾选“开发工具”，然后点击“确定”。
这样，你就能在PPT的菜单栏里看到“开发工具”选项卡啦。
3、 调整信任设置
为了让宏代码能够正常运行，你还需要调整一些信任设置：
点击“文件” -> “选项” -> “信任中心” -> “信任中心设置” -> “宏设置”。
勾选“启用所有宏”和“信任对VBA工程对象模型的访问”。
这样一来，你的PPT就不会限制宏的执行，代码可以顺利运行了。
第二步：编写VBA代码
接下来，我们要编写VBA代码，实现在PPT中调用DeepSeek的API。别担心，虽然看起来有些技术感，但跟着步骤走，轻松上手。
1、 打开VBA编辑器
在“开发工具”中点击“Visual Basic”，这时会弹出一个VBA编辑器窗口。
点击“插入” -> “模块”，然后在新模块中粘贴代码。
（注意：在粘贴代码前，你需要根据实际情况，把代码中的apiKey替换为你自己获得的API Key。）
2、粘贴核心代码
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
第三步：自定义功能区
在PPT中，我们要创建一个专门的按钮来触发DeepSeek的功能。这样你就能随时随地使用这个强大的AI功能了。
1、 添加自定义按钮
点击“文件” -> “选项” -> “自定义功能区”。
右键点击“开发工具” -> “添加新组”。
重命名新组为“DeepSeek”，并为它选择一个喜欢的图标。
2、 绑定宏到按钮
在左侧的命令列表中找到你创建的宏——“CallDeepSeekAPI”。
选中它，点击“添加”到右侧的DeepSeek组，最后点击“确定”。
这样，你就成功创建了一个自定义的DeepSeek按钮！
第四步：测试功能
好了，所有的设置都完成了，接下来就来测试一下功能是否正常工作。
1、 打开PPT幻灯片
首先，打开一张幻灯片，确保它包含有文本内容的形状（比如文本框）。
2、 输入测试内容
在选中的文本框中，输入一些简单的文字，比如“你好，AI！”。
3、 点击DeepSeek按钮
在PPT的菜单栏中，点击你刚刚创建的“DeepSeekAPI”按钮。
4、 观察结果
如果一切设置正常，DeepSeek就会根据你的请求返回处理后的文字，并显示在选中的形状中。是不是很酷？这样一来，PPT就能通过AI智能生成你想要的内容了，免去你逐字逐句修改的麻烦。
处理可能的错误
在使用过程中，可能会遇到一些问题，别慌！下面这些小贴士可以帮你解决常见的错误：
API Key是否正确：检查你填入的API Key是否准确，是否过期。
网络连接是否正常：确保你在使用DeepSeek时网络是畅通的，API请求才能成功发送。
调整代码中的参数设置：如果返回的结果不符合预期，可能是请求参数的问题。你可以调整代码中的参数，重新测试。
以上就是通过PPT接入DeepSeek的完整步骤！如果你是有一定编程基础的小伙伴，按照这些步骤操作下来，一定能轻松实现这一功能。
如何学习大模型 AI ？
由于新岗位的生产效率，要优于被取代岗位的生产效率，所以实际上整个社会的生产效率是提升的。
但是具体到个人，只能说是：
“最先掌握AI的人，将会比较晚掌握AI的人有竞争优势”。
这句话，放在计算机、互联网、移动互联网的开局时期，都是一样的道理。
我在一线互联网企业工作十余年里，指导过不少同行后辈。帮助很多人得到了学习和成长。
我意识到有很多经验和知识值得分享给大家，也可以通过我们的能力和经验解答大家在人工智能学习中的很多困惑，所以在工作繁忙的情况下还是坚持各种整理和分享。但苦于知识传播途径有限，很多互联网行业朋友无法获得正确的资料得到学习提升，故此将并将重要的AI大模型资料包括AI大模型入门学习思维导图、精品AI大模型学习书籍手册、视频教程、实战学习等录播视频免费分享出来。
这份完整版的大模型 AI 学习资料已经上传CSDN，朋友们如果需要可以微信扫描下方CSDN官方认证二维码免费领取【保证100%免费】
第一阶段（10天）：初阶应用
该阶段让大家对大模型 AI有一个最前沿的认识，对大模型 AI 的理解超过 95% 的人，可以在相关讨论时发表高级、不跟风、又接地气的见解，别人只会和 AI 聊天，而你能调教 AI，并能用代码将大模型和业务衔接。
大模型 AI 能干什么？
大模型是怎样获得「智能」的？
用好 AI 的核心心法
大模型应用业务架构
大模型应用技术架构
代码示例：向 GPT-3.5 灌入新知识
提示工程的意义和核心思想
Prompt 典型构成
指令调优方法论
思维链和思维树
Prompt 攻击和防范
…
第二阶段（30天）：高阶应用
该阶段我们正式进入大模型 AI 进阶实战学习，学会构造私有知识库，扩展 AI 的能力。快速开发一个完整的基于 agent 对话机器人。掌握功能最强的大模型开发框架，抓住最新的技术进展，适合 Python 和 JavaScript 程序员。
为什么要做 RAG
搭建一个简单的 ChatPDF
检索的基础概念
什么是向量表示（Embeddings）
向量数据库与向量检索
基于向量检索的 RAG
搭建 RAG 系统的扩展知识
混合检索与 RAG-Fusion 简介
向量模型本地部署
…
第三阶段（30天）：模型训练
恭喜你，如果学到这里，你基本可以找到一份大模型 AI相关的工作，自己也能训练 GPT 了！通过微调，训练自己的垂直大模型，能独立训练开源多模态大模型，掌握更多技术方案。
到此为止，大概2个月的时间。你已经成为了一名“AI小子”。那么你还想往下探索吗？
为什么要做 RAG
什么是模型
什么是模型训练
求解器 & 损失函数简介
小实验2：手写一个简单的神经网络并训练它
什么是训练/预训练/微调/轻量化微调
Transformer结构简介
轻量化微调
实验数据集的构建
…
第四阶段（20天）：商业闭环
对全球大模型从性能、吞吐量、成本等方面有一定的认知，可以在云端和本地等多种环境下部署大模型，找到适合自己的项目/创业方向，做一名被 AI 武装的产品经理。
硬件选型
带你了解全球大模型
使用国产大模型服务
搭建 OpenAI 代理
热身：基于阿里云 PAI 部署 Stable Diffusion
在本地计算机运行大模型
大模型的私有化部署
基于 vLLM 部署大模型
案例：如何优雅地在阿里云私有部署开源大模型
部署一套开源 LLM 项目
内容安全
互联网信息服务算法备案
…
学习是一个过程，只要学习就会有挑战。天道酬勤，你越努力，就会成为越优秀的自己。
如果你能在15天内完成所有的任务，那你堪称天才。然而，如果你能完成 60-70% 的内容，你就已经开始具备成为一名大模型 AI 的正确特征了。
这份完整版的大模型 AI 学习资料已经上传CSDN，朋友们如果需要可以微信扫描下方CSDN官方认证二维码免费领取【保证100%免费】
