WPS中接入DeepSeek，保姆级教程！

最新推荐文章于 2025-04-07 09:55:14 发布

AI大模型-大飞

最新推荐文章于 2025-04-07 09:55:14 发布

阅读量1.2w

点赞数 8

文章标签： wps 人工智能 AI大模型大模型教程大模型 Deepseek 大模型学习

本文链接：https://blog.csdn.net/m0_63171455/article/details/145597749

版权

如何将DeepSeek-R1接入WPS！作为一个程序员，我一向是个追求高效、简洁的工具党，而这次尝试完之后，我可以毫不夸张地说，真的爽！

DeepSeek-R1这个大模型接入到WPS后，文档编辑变得像喝水一样简单，打字都觉得省力了。是不是很酷？那我们就来一探究竟，看看怎么操作。

为什么要将DeepSeek-R1接入WPS？

我能想象，你一定和我一样，每天面对一堆文档，想要提升工作效率，却又不能离开WPS这些熟悉的工具。好吧，来点正经的：将DeepSeek-R1接入WPS，你就能直接在文档中调用AI来处理文字内容，比如生成新的文本、优化表达，甚至是进行一些推理分析。

试想一下，写文案、处理报告、修改句子结构这些事，全都交给DeepSeek-R1来做，效率提升不止一点点，工作也更智能，懒人都能觉得自己变得高效了！

接下来，我们就来聊聊怎么操作吧。你也一定想知道，怎么才能把DeepSeek-R1接入WPS。

第一步：获取DeepSeek-R1的API Key

首先，你得有DeepSeek-R1的API Key，才可以和它建立联系。说实话，拿到API Key这一步没什么难度，就是需要你稍微花点时间去申请。这里有两种方式来获取它：

DeepSeek官方API Key
官网地址：https://www.deepseek.com
但这条路上有个坑，目前官方API Key的申请已经暂停开放。所以，你得有点耐心，等它恢复吧。

腾讯云提供的DeepSeek-R1 API Key
这是个稳定的替代方案，大家可以从这个链接获取：https://curl.qcloud.com/T3M5yBHp
注意：无论选择哪种方式，你的账户上必须要有一定的余额，否则就算拿到API Key也没法用哦！

API Key搞定后，记得保存好，后续配置时会用到。

第二步：配置WPS开发工具

好了，现在我们进入正题，要在WPS里启动DeepSeek-R1，首先得配置一下开发工具。别怕，这个步骤不难，一起来看看。

1. 启用开发工具

首先，打开WPS，新建一个文档，然后按下列步骤启用开发工具：

点击顶部菜单栏的“文件” → “选项” → “自定义功能区”。
在右侧的功能区列表里，勾选“工具”选项。

点击“确定”保存设置。

就这样，你已经在WPS里启用了开发工具。接下来，我们要配置一些信任设置，确保WPS可以运行你加上的宏。

2. 配置信任中心

在WPS里，点击“文件” → “选项” → “信任中心”。选择“信任中心设置” → “宏安全性”，把安全性设置为“低”。这样，WPS才允许宏安全执行，不然咱们的DeepSeek宏就打不开了。

3. 添加模块

现在，开始添加宏模块了。步骤如下：

点击顶部菜单栏的“工具” → “开发工具” → “切换到VB环境”，然后重启WPS。

重启之后，回到“开发工具”，再点击“VB编辑器”。

在弹出的VB编辑器窗口里，点击“插入” → “模块”。

把提供的代码粘贴到编辑区，并替换为你的API Key。

以下是**Deepseek-R1代码(官方apikey）**代码示例，记得替换为你的API Key：

Function CallDeepSeekAPI(api_key As String, inputText As String) As String`    `Dim API As String`    `Dim SendTxt As String`    `Dim Http As Object`    `Dim status_code As Integer`    `Dim response As String``   `    `API = "https://api.deepseek.com/chat/completions"`    `SendTxt = "{""model"": ""deepseek-reasoner"", ""messages"": [{""role"":""system"", ""content"":""You are a Word assistant""}, {""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``   `    `' 弹出窗口显示 API 响应（调试用）``   `    `' MsgBox "API Response: " & response, vbInformation, "Debug Info"``   `    `If status_code = 200 Then`        `CallDeepSeekAPI = response`    `Else`        `CallDeepSeekAPI = "Error: " & status_code & " - " & response`    `End If``   `    `Set Http = Nothing``End Function``   ``Sub DeepSeekR1()`    `Dim api_key As String`    `Dim inputText As String`    `Dim response As String`    `Dim regex As Object`    `Dim reasoningRegex As Object`    `Dim contentRegex As Object`    `Dim matches As Object`    `Dim reasoningMatches As Object`    `Dim originalSelection As Object`    `Dim reasoningContent As String`    `Dim finalContent As String``   `    `api_key = "替换为你的api key"`    `If api_key = "" Then`        `MsgBox "Please enter the API key."`        `Exit Sub`    `ElseIf Selection.Type <> wdSelectionNormal Then`        `MsgBox "Please select text."`        `Exit Sub`    `End If``   `    `' 保存原始选中的文本`    `Set originalSelection = Selection.Range.Duplicate``   `    `inputText = Replace(Replace(Replace(Replace(Replace(Selection.text, "\", "\\"), vbCrLf, ""), vbCr, ""), vbLf, ""), Chr(34), "\""")`    `response = CallDeepSeekAPI(api_key, inputText)``   `    `If Left(response, 5) <> "Error" Then`        `' 创建正则表达式对象来分别匹配推理内容和最终回答`        `Set reasoningRegex = CreateObject("VBScript.RegExp")`        `With reasoningRegex`            `.Global = True`            `.MultiLine = True`            `.IgnoreCase = False`            `.Pattern = """reasoning_content"":""(.*?)"""`        `End With`        `        Set contentRegex = CreateObject("VBScript.RegExp")`        `With contentRegex`            `.Global = True`            `.MultiLine = True`            `.IgnoreCase = False`            `.Pattern = """content"":""(.*?)"""`        `End With``   `        `' 提取推理内容`        `Set reasoningMatches = reasoningRegex.Execute(response)`        `If reasoningMatches.Count > 0 Then`            `reasoningContent = reasoningMatches(0).SubMatches(0)`            `reasoningContent = Replace(reasoningContent, "\n\n", vbNewLine)`            `reasoningContent = Replace(reasoningContent, "\n", vbNewLine)`            `reasoningContent = Replace(Replace(reasoningContent, """", Chr(34)), """", Chr(34))`        `End If``   `        `' 提取最终回答`        `Set matches = contentRegex.Execute(response)`        `If matches.Count > 0 Then`            `finalContent = matches(0).SubMatches(0)`            `finalContent = Replace(finalContent, "\n\n", vbNewLine)`            `finalContent = Replace(finalContent, "\n", vbNewLine)`            `finalContent = Replace(Replace(finalContent, """", Chr(34)), """", Chr(34))``   `            `' 取消选中原始文本`            `Selection.Collapse Direction:=wdCollapseEnd``   `            `' 插入推理过程（如果存在）`            `If Len(reasoningContent) > 0 Then`                `Selection.TypeParagraph`                `Selection.TypeText "推理过程："`                `Selection.TypeParagraph`                `Selection.TypeText reasoningContent`                `Selection.TypeParagraph`                `Selection.TypeText "最终回答："`                `Selection.TypeParagraph`            `End If``   `            `' 插入最终回答`            `Selection.TypeText finalContent``   `            `' 将光标移回原来选中文本的末尾`            `originalSelection.Select`        `Else`            `MsgBox "Failed to parse API response.", vbExclamation`        `End If`    `Else`        `MsgBox response, vbCritical`    `End If``End Sub

4. 自定义功能区

接下来，我们要把宏添加到WPS的功能区：

返回WPS主界面，点击“文件” → “选项” → “自定义功能区”。
在功能区里创建一个新的组，命名为“DeepSeek”。

在命令列表中找到刚才添加的宏，点击“添加”，然后右键重命名为“生成”。

最后，点击“确定”保存设置。

好了，WPS的开发工具已经配置完成，接下来就是享受它的强大功能了！

第三步：使用DeepSeek-R1生成内容

配置完毕，终于到了最激动人心的一步——使用DeepSeek-R1来生成内容！

打开WPS文档，选中你需要处理的文字。
点击刚才添加的“生成”按钮。
稍等片刻，DeepSeek-R1会返回处理结果，并直接插入到文档中。

是不是超级简单？不需要离开WPS，也不需要手动去切换其他工具，DeepSeek-R1就在你的文档中待命，随时提供帮助。

第四步：创建WPS模板

为了以后方便使用，推荐你将当前配置保存为一个WPS模板。这样，下次只需要打开模板文件，就能马上使用DeepSeek-R1了。

点击“文件” → “另存为”。
选择“Microsoft Word 带宏的模板文件 (*.dotm)”格式保存。

把文件保存在WPS的模板文件夹里。

这样，下次要用时，直接打开模板文件，就能马上开始愉快的AI文档处理啦！

在这里插入图片描述

如何学习AI大模型？

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

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

在这里插入图片描述