WPS里装上deepseek，简直就是办公神器

不得不说，将DeepSeek-R1接入WPS真的惊呆我了！这意味着什么？简单来说，文档编辑从“手动挡”进化成了“自动挡”！不管是生成内容、优化表达，甚至是逻辑推理分析，AI都能直接帮你搞定，爽到飞起！

今天就来给大家聊聊，如何在WPS里接入 DeepSeek-R1，一步步带你从零配置到实战，让AI真正成为你的文档处理助手。

!img

为什么要在WPS里接入DeepSeek-R1？

讲道理，我以前用WPS，大多数时候就是敲敲字、插插图、改改排版，写完了还得自己检查语法、优化表达，甚至有时候绞尽脑汁想一段好文案，简直像掏空灵魂。

但现在，DeepSeek-R1 直接进驻 WPS，相当于在文档里藏了一个AI小助手，帮你：

快速生成内容：随便给个大纲，AI就能帮你扩展成一段流畅的文本。
优化表达：写完的内容，总觉得有点别扭？AI可以帮你润色，变得更自然、更流畅。
逻辑推理：写方案、分析数据、写报告？让AI来帮你理清逻辑，提升说服力。

这么一看，这不就是文档界的“外挂”吗？不装等啥呢？接下来就带你 一步步配置，让AI真正成为你的写作搭子。

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

要让DeepSeek-R1在WPS里跑起来，首先得有个 API Key，就像是进入AI世界的“通行证”。获取方式有两种：

方案一：DeepSeek官方API Key

可以去官网申请：https://www.deepseek.com

!img

方案二：腾讯云提供的DeepSeek-R1 API Key

这个方案更靠谱，可以去这里申请：https://curl.qcloud.com/T3M5yBHp相对稳定，推荐使用！

⚠️ 重要提醒：不管用哪个API Key，都得保证你的账户有余额，否则AI是不会搭理你的！

第二步：配置WPS开发工具

既然AI要接入WPS，那就得打开WPS的开发模式，整个流程其实很简单，跟着来就行。

1. 启用开发工具

打开 WPS，随便新建一个文档。

!img

点击文件 → 选项 → 自定义功能区。
在右侧的功能区列表中，找到 “工具”，勾选它。

!img

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

2. 配置信任中心

!img

在 WPS 中，点击文件 → 选项 → 信任中心。
选择 “信任中心设置” → “宏安全性”。
将安全性设置为 “低”，这样才能运行 VBA 宏。

3. 添加宏模块

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

!img

重启后，点击 VB编辑器。

!img

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

!img

复制以下代码到编辑区里，并把 yourapikeyhere 换成你申请到的API Key：

!img

保存代码，关闭 VB 编辑器。

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

``text Function CallDeepSeekAPI(apikey As String, inputText As String) As String Dim API As String Dim SendTxt As String Dim Http As Object Dim statuscode 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 " & apikey
        .send SendTxt
        statuscode = .Status
        response = .responseText
    End With

' 弹出窗口显示 API 响应（调试用）
' MsgBox "API Response: " & response, vbInformation, "Debug Info"
If statuscode = 200 Then
        CallDeepSeekAPI = response
    Else
        CallDeepSeekAPI = "Error: " & statuscode & " - " & response
    End If

Set Http = Nothing
End Function
Sub DeepSeekR1()
    Dim apikey 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
apikey = "替换为你的api key"
    If apikey = "" 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(apikey, inputText)

If Left(response, 5) <> "Error" Then
        ' 创建正则表达式对象来分别匹配推理内容和最终回答
        Set reasoningRegex = CreateObject("VBScript.RegExp")
        With reasoningRegex
            .Global = True
            .MultiLine = True
            .IgnoreCase = False
            .Pattern = """reasoningcontent"":""(.?)"""
        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``