WPS与DeepSeek的王炸组合，究竟藏着什么大招？-CSDN博客

本文链接：https://blog.csdn.net/Z987421/article/details/147626070

方式一：通过VB宏接入

首先，新建一个WPS文本

点击文件-》选项-》自定义功能区，勾选工具菜单栏中的开发工具，如果已经勾选就略过。

点击文件-》选项-》信任中心-》宏安全性，选择低。

同时勾选如下两项

回到文档页面，点击工具栏的开发工具选项。

点击VB编辑器

右击Normal

插入-》模块

将下方DeepSeek R1代码粘贴到弹出的窗口中。

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"":""你是一个乐于助人的AI助手，请根据用户的问题给出详细的解答。""}, {""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

注意！代码中有一行替换成你的API Key

关闭VB编辑器，回到WPS页面

在工具菜单栏下创建一个自己的AI助手

点击：文件》选项》自定义功能区

选中工具，点击下方的“新建组”，然后重名为自定义的名称

接下来绑定编辑好的VB宏：左侧下拉框选择“宏”，选择DeepSeek R1，添加到自定义的助手当中。

最后点击确定即可。

这个时候我们工具菜单栏下面就会出现刚添加的VB宏，即大模型工具图标。

测试使用

我们输入一段文字，然后点击这个AI助手，就可以和DeepSeek交互了。

等待一会儿（程序可能会卡顿片刻），之后就会得到大模型的响应，如下图：

还可以用大模型检测错别字，文本扩写，翻译等等，总之可以极大的提高我们的文字输出效率。

方式二：通过OfficeAI插件接入

默认WPS是没有OfficeAI插件的，需要自己安装。

officeAI安装包下载链接: https://pan.baidu.com/s/10TTdXuczGW2lRJXlPXlhCg?pwd=aaec 提取码: aaec

关闭所有已打开的 Word 或 Excel 后，双击officeAI应用程序安装。

这里下载附加文件可能有点慢，大家耐心等一会就好，安装完成后会出现OfficeAI菜单栏。

点击设置，会提示需要登录，先扫码登录。

点击左下角的设置按钮，

点击大模型设置，可以看到该插件自带了一些模型的，比如豆包、文心一言等等，

这里，我们打开右上方"本地模型/API KEY"的开关，选择模型平台、模型名，输入API Key。

因为官网的API有时候不稳定，我们这里也可以选择硅基流动，硅基流动的API_KEY获取方式后面详细说。

注意，模型名和api_key一定要选择正确，并且匹配哦！

此时会要求安装本地服务，点击安装即可

接下来我们就可以和DeepSeek助手对话啦！

附：获取硅基流动 API Key

访问硅基流动官网：https://siliconflow.cn/zh-cn/

注册账号并登录。

平台给每一位新用户准备了14元的额度用来体验，这已经足够我们高强度玩好几天了！在右侧“余额充值”页面可以查看余额。

接下来让我们获取API密钥，为word使用AI能力做准备。

点击“新建密钥”，输入描述信息，点击新建密钥，就能看到生成的密钥了。

总结

安装OfficeAI插件和VB宏这两种方法，各有千秋，OfficeAI插件需要安装的东西比较多，但是配置起来简单很多，而VB宏的方法不需要安装很多额外的东西，只不过配置起来稍微复杂些，大家根据自己的情况自行选择。

如何学习大模型 AI ？

由于新岗位的生产效率，要优于被取代岗位的生产效率，所以实际上整个社会的生产效率是提升的。

但是具体到个人，只能说是：

“最先掌握AI的人，将会比较晚掌握AI的人有竞争优势”。

这句话，放在计算机、互联网、移动互联网的开局时期，都是一样的道理。

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

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

这份完整版的大模型 AI 学习资料已经上传CSDN，朋友们如果需要可以微信扫描下方CSDN官方认证二维码免费领取【保证100%免费】