用DeepSeek生成PPT真是太香了！（保姆级教程）

Chrome教程2025年02月20日约 7 分钟

今天我们来聊聊如何在PPT中接入DeepSeek，带你一步步从小白变大神，轻松让PPT幻灯片拥有AI加持。

说实话，这个技术真的太酷了——想象一下，你只需要简单地输入一些内容，AI就能帮你自动生成更加精美的文本内容，让你的演示文稿瞬间提升档次，做个AI助手真的超有趣！

今天的教程适合那些有一定编程基础的朋友，也适合那些对PPT有点了解、但是不知道如何用技术让PPT变得更牛的同学。好啦，废话不多说，直接进入正题！

实现原理

首先来讲讲这个技术的实现原理。我们要利用DeepSeek提供的API，通过PPT中的VBA编程语言与其进行通信。简单来说，就是用VBA编写代码，发送API请求到DeepSeek，DeepSeek会根据我们输入的文本返回处理过的结果，然后我们再把这个结果显示回到PPT中。

整个过程其实并不复杂，但对编程有所了解会让你事半功倍。别担心，如果你还不是程序员，跟着我一步一步操作，也能轻松上手！

第一步：准备工作

在正式编写代码之前，我们先来做一些准备工作，确保工具和环境都能顺利运行。

如果你还没有Office，那你可以点击后面的链接获取Office：https://sourl.cn/2M7Z7X

1. 获取DeepSeek的API Key

首先，你需要去DeepSeek的官网获取一个API Key。可能会有一些同学注意到，DeepSeek的API充值已暂停，这里建议你可以尝试通过其他方式获取API Key（例如向相关渠道申请）。

腾讯云api key：https://curl.qcloud.com/T3M5yBHp

阿里云api key：https://sourl.cn/T4Swar

2. 启用PPT的开发者工具

接下来，我们需要在PPT中启用开发者工具，这样才能编写VBA代码。

打开PPT，点击“文件”菜单，选择“选项”。
在弹出的选项中，找到“自定义功能区”，在右侧的框中勾选“开发工具”，然后点击“确定”。
这样，你的PPT菜单栏就会出现一个“开发工具”选项卡。

3. 调整信任设置

因为我们要运行VBA代码，所以还需要调整一下PPT的信任设置，确保宏代码能够顺利执行。

点击“文件 -> 选项 -> 信任中心 -> 信任中心设置 -> 宏设置”。
在弹出的窗口中，勾选“启用所有宏”和“信任对VBA工程对象模型的访问”，然后点击“确定”。
这样，PPT就不会限制宏代码的执行了。

第二步：编写VBA代码

好了，准备工作都做好了，接下来就开始编写代码。别担心，这一部分其实没那么复杂，跟着我的步骤，你也能轻松搞定。

1. 打开VBA编辑器

点击“开发工具 -> Visual Basic”，这时会弹出VBA编辑器窗口。

在VBA编辑器中，点击“插入 -> 模块”，创建一个新的代码模块。

2. 粘贴核心代码

这个代码就是用来连接DeepSeek API的核心部分了，负责发送请求、接收结果。你需要将从DeepSeek获得的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 = NothingEnd 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 = NothingEnd Function
Sub DeepSeekR()Dim selectedText As StringDim apikey As StringDim response As StringDim midString As StringDim ans As StringDim shp As ShapeDim slide As slide    Dim regex As Object    Dim matches As ObjectDim selectedShape As Shape' 检查是否有选中的对象If ActiveWindow.Selection.Type = ppSelectionShapes Then' 获取选中的形状Set selectedShape = ActiveWindow.Selection.ShapeRange(1)
' 检查形状是否有文本If selectedShape.HasTextFrame ThenIf selectedShape.TextFrame.HasText ThenselectedText = selectedShape.TextFrame.TextRange.TextselectedText = 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

ElseMsgBox "选中的形状没有文本内容。"End IfElseMsgBox "选中的形状没有文本框。"End IfElseMsgBox "请选择一个形状。"End IfEnd Sub

注意：代码中会涉及到API调用的细节，跟着操作就好。

第三步：自定义功能区

为了让操作更方便，我们还可以给PPT添加一个自定义按钮，点击这个按钮就能触发DeepSeek的API。

1. 添加自定义按钮

点击“文件 -> 选项 -> 自定义功能区”。
在右侧的“开发工具”选项卡中，右键点击“开发工具”，选择“添加新组”。
给新组取个名字，比如“DeepSeek”，还可以选择你喜欢的图标。

2. 绑定宏到按钮

在左侧的命令列表中选择“宏”，找到刚刚创建的宏“CallDeepSeekAPI”。
将它添加到右侧的“DeepSeek”组中，点击“确定”保存。

第四步：测试功能

现在，一切设置都完成了，接下来就来测试一下效果。

1. 打开PPT幻灯片

在PPT中打开你的一张幻灯片，选中一个含有文本的形状，比如一个文本框或者形状。

2. 输入一些文字

在这个形状中输入一些简单的文本，比如“你好，AI！”。

3. 点击按钮

这时，你只需要点击菜单栏中的“DeepSeekAPI”按钮，DeepSeek就会处理这些文字并返回结果。你会看到，原来输入的文字被DeepSeek处理过后，变得更加精美或者符合需求。

4. 查看结果

如果一切设置正确，你会看到PPT中选中的文本被DeepSeek处理后的内容替换了。太神奇了，是不是？你甚至可以在其他幻灯片中多次使用这个功能，AI处理文本简直让工作效率翻倍。

处理可能的错误

当然，技术不可能一帆风顺，有些问题可能会让你头疼。这里是几个常见问题和解决办法：

API Key错误：确保你输入的API Key是正确的，如果有问题，请重新申请。
网络连接问题：DeepSeek需要联网才能正常工作，检查你的网络连接是否正常。
参数设置问题：如果返回的结果不符合预期，可以尝试调整代码中的参数设置，确保请求符合API要求。

好啦，今天的教程到这里就结束了！是不是觉得很简单？只要跟着步骤走，就能让PPT瞬间变得更加智能，自己也变成了一个AI大佬。

最后，我为大家打造了一份deepseek的入门到精通教程，完全免费：https://www.songshuhezi.com/deepseek

同时，也欢迎加入下方的交流群，一起研究deepseek的最新玩法