ppt 接入 deepseek （含代码）

最新推荐文章于 2025-03-26 10:47:01 发布

程序猿李巡天

最新推荐文章于 2025-03-26 10:47:01 发布

阅读量4.7k

点赞数 14

文章标签： powerpoint microsoft 语言模型人工智能金融大数据

本文链接：https://blog.csdn.net/m0_59235945/article/details/145522635

版权

许多粉丝询问是否可以在 PowerPoint (PPT) 中使用类似的功能，答案是肯定的。不过，直接复制之前的代码并不能满足需求，需要做一些调整。此外，由于 WPS 和 PPT 都支持 VBA，因此这些脚本同样适用于这两个平台。

功能简介

DeepSeek 提供了强大的文本处理能力，不仅可以用于文本生成、润色和翻译，还可以结合 VBA 实现更多功能，如文生图等。本文将介绍如何在 PPT 中使用 DeepSeek API 处理选中的文本内容，并将其结果插入到形状中。

代码实现

以下是 VBA 代码示例，它允许你在 PPT 中选择一个包含文本的形状，并通过 DeepSeek API 对该文本进行处理：

如果大家不好复制，可以发送1001到公众号消息栏，获取代码。

Code

Sub DeepSeek()       Dim selectedText As String       Dim apiKey As String       Dim response As Object, re As String       Dim midString As String       Dim ans As String       Dim shp As Shape       Dim slide As slide       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 = "sk-bgrklqquzmrfucgvtdedkkvfshsqhwozpjmytjjncodgtzhi"                   URL = "https://api.siliconflow.cn/v1/chat/completions"                   Set response = CreateObject("MSXML2.XMLHTTP")                   response.Open "POST", URL, False                   response.setRequestHeader "Content-Type", "application/json"                   response.setRequestHeader "Authorization", "Bearer " + apiKey                   response.Send "{""model"":""deepseek-ai/DeepSeek-R1-Distill-Qwen-7B"", ""messages"":[{""role"":""user"",""content"":""" & selectedText & """}], ""temperature"":0.7}"                                      re = response.responseText                   midString = Mid(re, InStr(re, """content"":""") + 11)                   ans = Split(midString, """")(0)                   ans = Replace(ans, "\n", "")                                      ' 将结果插入到形状的文本中                   selectedShape.TextFrame.TextRange.Text = selectedText & vbNewLine & ans               Else                   MsgBox "选中的形状没有文本内容。"               End If           Else               MsgBox "选中的形状没有文本框。"           End If       Else           MsgBox "请选择一个形状。"       End If   End Sub

使用前准备及注意事项

开启开发工具。
启用宏安全设置。
会玩的，替换为自己的 key（硅基流动）和模型名称。
代码中我用的免费的蒸馏模型，反应快些，够用了，大家如果什么都不改也可以直接使用，（君子协议，为了方便更多的人）。

邀请链接

最近硅基流动在做推广活动，用下面的链接注册，就可以获得 2000 万 Tokens（14 元平台配额），如果需要，就用下面的链接注册吧，嘿嘿~ 模型邀请链接： https://cloud.siliconflow.cn/i/p61lgKxB 邀请码：p61lgKxB

开启开发工具

文件-选项-自定义功能区

启用宏安全设置

文件-选项-信任中心-信任中心设置

功能使用方法

和 word 不同，不是复制文字，而是选中含有文字的形状，点击设置的按钮或者快捷键（本文没有详细说怎么给宏设置快捷键），可以在选项卡上，也可以在快捷栏上。

结果演示视频

Ps ：如果有人文需要视频版详细讲解，我会出的（需要时间），如果没有，我就跳过下一个话题了~

如何学习大模型 AI ？

由于新岗位的生产效率，要优于被取代岗位的生产效率，所以实际上整个社会的生产效率是提升的。

但是具体到个人，只能说是：

“最先掌握AI的人，将会比较晚掌握AI的人有竞争优势”。

这句话，放在计算机、互联网、移动互联网的开局时期，都是一样的道理。

我在一线互联网企业工作十余年里，指导过不少同行后辈。帮助很多人得到了学习和成长。

我意识到有很多经验和知识值得分享给大家，也可以通过我们的能力和经验解答大家在人工智能学习中的很多困惑，所以在工作繁忙的情况下还是坚持各种整理和分享。但苦于知识传播途径有限，很多互联网行业朋友无法获得正确的资料得到学习提升，故此将并将重要的AI大模型资料包括AI大模型入门学习思维导图、精品AI大模型学习书籍手册、视频教程、实战学习等录播视频免费分享出来。

在这里插入图片描述