如何将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://cloud.siliconflow.cn/i/bCWC3MOQ||
• 注意：无论选择哪种方式，你的账户上必须要有一定的余额，否则就算拿到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 = 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

4. 自定义功能区

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

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

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

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

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

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

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

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

 

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

第四步：创建WPS模板

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

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

 

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

这样，下次要用时，直接打开模板文件，就能马上开始愉快的AI文档处理啦！
若是API实在没搞定，可以参考DeepSeek本地部署_deepseek下载csdn-CSDN博客