ReaderMX.
程序员老鬼

【最全教程】DeepSeek接入WPS，效率起飞!

程老鬼约 6 分钟
今天我来跟大家聊一聊怎么在WPS里接入DeepSeek，别说，真是爽到飞起啊！

说实话，接入它之后，我的文档处理速度简直能和闪电比肩，不信你看——我们一步步来，看看如何在WPS中加速自己的工作流。

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

说白了，DeepSeek-R1接入WPS后，你可以直接在文档里调用AI，轻松生成文本、优化表达，甚至搞点推理分析啥的。工作中需要常常处理文档的程序员们肯定懂，手动去修改文档内容、优化表达啥的，真的又累又无聊。

但有了DeepSeek-R1，基本上就是让AI来帮我一把，直接完成那些繁琐的文档编辑和内容生成。效率提升不说，文档也会变得更智能——完全解放了我那颗“打字快手”的心。

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

要玩DeepSeek-R1，首先得有一个API Key。没这个，你连开始的机会都没有。以下有两种获取方式（虽然官方的申请已经暂停，但别急，还是有办法的）：
1.DeepSeek官方API Key
官网有个API Key可以申请（不过，提醒一句，目前申请已经暂停了）。但你还是可以去官网碰碰运气，或许稍后会有新机会。

官网地址：https://www.deepseek.com/

Image

2.腾讯云提供的DeepSeek-R1 API Key
如果你不想等官方开通，腾讯云提供的API Key是一个稳定的替代方案，效果也很棒，推荐大家直接用。
地址：https://curl.qcloud.com/T3M5yBHp
拿到API Key之后，千万记得好好保管，以后在配置过程中会用到。哦对了，不管选哪个方式，确保你平台上有足够的余额，不然也用不了哦。

第二步：配置WPS开发工具

别看WPS是个办公软件，其实它也支持开发功能，所以你可以在它里搞点大事情。要在WPS里使用DeepSeek-R1，我们得先启用开发工具并做一些简单的设置。

1. 启用开发工具

  • 打开WPS，新建个文档。

Image

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

Image

  • 点“确定”，保存设置。

2. 配置信任中心

在WPS中启用宏安全性，这一步也不能跳过：

Image

  1. 点击“文件” → “选项” → “信任中心”。
  2. 选择“信任中心设置” → “宏安全性”。
  3. 将宏安全性设置为“低”，这样就能运行VBA宏了。

3. 添加模块

这一步就进入到编码环节了：
  • 在WPS中点击“工具” → “开发工具” → “切换到VB环境”。

Image

Image

  • 重启后，回到文档，再点击VB编辑器。

Image

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

Image

复制下面的代码，并将它替换成你获取到的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 = NothingEnd 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 IfEnd Sub

Image

4. 自定义功能区

  • 回到WPS主界面，点击“文件” → “选项” → “自定义功能区”。
  • 在右侧功能区列表中，点击“新建组”，命名为“DeepSeek”。

Image

  • 在左侧的命令列表中，找到刚才添加的宏（比如“DeepSeekV3”），点击“添加”。

Image

  • 右键重命名为“生成”，然后点击“确定”保存设置。

Image

这样，WPS的开发工具就配置完毕啦！接下来的操作就轻松多了。

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

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

Image

是不是简单得让你想笑？AI的帮助真的能让工作变得不再单调，效率也大大提升。

第四步：创建WPS模板

为了下次能够快速使用，我们可以将当前配置保存成一个WPS模板。这样，之后每次都能直接打开模板，开始工作。具体操作如下：
  • 点击“文件” → “另存为”。
  • 在保存类型中选择“Microsoft Word 带宏的模板文件 (*.dotm)”。

Image

  • 将文件保存到WPS的模板文件夹中，路径大概是：C:\Users\用户名\AppData\Roaming\kingsoft\wps\startup。
  • 下次使用时，打开这个模板文件就行。
这样一来，DeepSeek-R1就完美接入WPS了，工作中你就能随时利用它来优化文档、生成内容，甚至推理分析什么的。不再需要不断切换工具，只需在WPS中一键搞定，真是方便又快捷！
以后写文档不再是“硬仗”，而是轻松的“AI配合”，赶快试试吧！

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

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

图片

KEEP THE THREAD GOING

更多来源文章