在WPS中接入DeepSeek，爽到起飞！
Chrome教程约 6 分钟我要给大家分享一个让我爽到起飞的技能：将 DeepSeek-R1 接入 WPS，直接在文档中调用强大的AI来处理文字内容，简直不要太方便！
作为一个程序员，每次想提高工作效率的时候，总觉得某些步骤太繁琐，特别是文档处理那些无聊的文字优化、语法调整、分析推理啥的，能不能有个工具把这些活都干掉？
这不，我终于找到了神器——DeepSeek-R1！接入到 WPS 后，它能帮你轻松生成文本、优化表达，甚至还能够推理分析，想想都觉得激动。
不过，作为程序员的我，不能直接去享受成果，也得学会如何把这个功能给接入到 WPS 中对吧？今天，我就来给大家分步介绍一下，如何操作。废话不多说，先来看看步骤吧！
接下来，具体的接入过程可是很有技术含量的，别担心，照着这些步骤来，保证你也能轻松搞定！
第一步：获取DeepSeek-R1的API Key
获取API Key的两种方式
1.DeepSeek官方API Key：你可以通过 DeepSeek 的官网申请 API Key，但目前它的申请已经暂停。所以，可能你得等一段时间才能申请。
官网地址：https://www.deepseek.com
2.腾讯云提供的DeepSeek-R1 API Key：这也是个不错的替代方案，我个人推荐这个替代方案，稳定好用。可以去这里申请：https://curl.qcloud.com/T3M5yBHp
拿到 API Key 后，一定要妥善保存，这个 Key 会在后续配置过程中派上大用场。记得，平台上得有余额才行，别忘了这一点。
第二步：配置WPS开发工具
启用WPS开发工具
打开 WPS，开始新建一个文档。
在顶部菜单栏点击“文件” → “选项” → “自定义功能区”。 在右侧的功能区列表里，勾选“工具”选项。
点击“确定”保存设置。
接下来就是对信任中心的配置了。别急，继续跟着做！
配置信任中心
在 WPS 中，点击“文件” → “选项” → “信任中心”。 选择“信任中心设置” → “宏安全性”。 将安全性设置为“低”，这样就能运行 VBA 宏了，记得保存设置！
添加模块
在顶部菜单栏的“工具” → “开发工具” → “切换到VB环境”，然后重启 WPS。
重启后，再次进入 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 StringAPI = "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 IfSet Http = NothingEnd FunctionSub 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 Stringapi_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.DuplicateinputText = 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 IfEnd Sub
自定义功能区
回到 WPS 主界面，点击“文件” → “选项” → “自定义功能区”。 在右侧的功能区列表中点击“新建组”，并命名为“DeepSeek”。
在左侧的命令列表里，选择“宏”，找到你刚刚添加的宏（例如：“DeepSeekV3”），然后点击“添加”。
右键点击该命令，重命名为“生成”，保存设置。
到这里，WPS 的开发工具就配置完成啦！
第三步：使用DeepSeek-R1生成内容
现在终于到了实操的部分！你可以直接在 WPS 文档中使用 DeepSeek 生成内容了。
打开 WPS 文档，选中需要处理的文字。 点击你刚刚添加的“生成”按钮，DeepSeek-R1 会处理并直接插入处理结果。
是不是超简单？对于我这种程序员来说，能在原生文档里直接调用 DeepSeek 处理，真的是方便到爆。
第四步：创建WPS模板
为了以后的高效使用，我们可以把当前配置保存成 WPS 模板文件，这样下次就不用再配置一次。
点击“文件” → “另存为”。 在保存类型里选择“Microsoft Word 带宏的模板文件 (*.dotm)”。 将文件保存到 WPS 的模板文件夹里。路径通常在： C:\Users\用户名\AppData\Roaming\kingsoft\wps\startup。
下次需要用的时候，只要打开模板文件就好啦，超级方便。
总的来说，把 DeepSeek-R1 集成进 WPS 后，无论是文档生成、优化表达，还是进行深度分析，简直是事半功倍。程序员的我可以直接在文档中用 AI 提升工作效率，再也不用频繁切换工具了。说实话，能有这么强大的功能，还能省下大量时间，真是爽到飞起！
好了，赶紧按照这个步骤试试看吧，体验一下 DeepSeek-R1 带给你的“高效生活”！
最后，我为大家打造了一份deepseek的入门到精通教程，完全免费：https://www.songshuhezi.com/deepseek
同时，也欢迎加入下方的交流群，一起研究deepseek的最新玩法