将DeepSeek-R1接入WPS,手把手教程!
不得不说,将DeepSeek-R1接入WPS真的惊呆我了!这意味着什么?简单来说,文档编辑从“手动挡”进化成了“自动挡”!不管是生成内容、优化表达,甚至是逻辑推理分析,AI都能直接帮你搞定,爽到飞起!
今天就来给大家聊聊,如何在WPS里接入 DeepSeek-R1,一步步带你从零配置到实战,让AI真正成为你的文档处理助手。
为什么要在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
但! 目前官方的API Key申请已经暂停开放,所以你可能白跑一趟……
方案二:腾讯云提供的DeepSeek-R1 API Key
这个方案更靠谱,可以去这里申请:https://curl.qcloud.com/T3M5yBHp相对稳定,推荐使用!
⚠️ 重要提醒:不管用哪个API Key,都得保证你的账户有余额,否则AI是不会搭理你的!
第二步:配置WPS开发工具
既然AI要接入WPS,那就得打开WPS的开发模式,整个流程其实很简单,跟着来就行。
1. 启用开发工具
- 打开 WPS,随便新建一个文档。
-
点击 文件 → 选项 → 自定义功能区。
-
在右侧的功能区列表中,找到 “工具”,勾选它。
- 点击 “确定”,保存设置。
2. 配置信任中心
-
在 WPS 中,点击 文件 → 选项 → 信任中心。
-
选择 “信任中心设置” → “宏安全性”。
-
将安全性设置为 “低”,这样才能运行 VBA 宏。
3. 添加宏模块
- 在 WPS 顶部菜单栏,点击 工具 → 开发工具 → 切换到VB环境,然后 重启WPS。
- 重启后,点击 VB编辑器。
- 在弹出的 VB编辑器窗口,点击 插入 → 模块。
- 复制以下代码到编辑区里,并把
your_api_key_here
换成你申请到的API Key:
保存代码,关闭 VB 编辑器。
以下是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 = 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
第三步:自定义功能区(加个AI按钮!)
-
回到 WPS 主界面,点击 文件 → 选项 → 自定义功能区。
-
在右侧列表里,新建一个组,命名为 DeepSeek。
- 在左侧命令列表里,找到 宏,然后选中刚刚创建的 GetAIResponse。
- 点击 添加,然后右键重命名为 生成。
- 点击 确定,保存设置。
现在,我们在WPS里加了一个专属按钮,点一下就能调用AI,牛不牛?
第四步:使用DeepSeek-R1生成内容(实战!)
-
打开WPS文档,随便输入一句话,比如:请输入一个关于AI未来的简短分析:
-
选中这句话。
-
点击刚刚创建的 生成 按钮。
- 等待几秒,AI会自动生成一段完整的分析,并直接插入到文档中!
这体验,就像请了个贴身秘书,随时帮你写文案、润色表达,甚至还能帮你分析问题。
第五步:创建WPS模板(以后直接用!)
有了这个功能,我们可以保存成模板,省得每次都要重新配置:
-
点击“文件” → “另存为”。
-
在文件类型里选择 “Microsoft Word 带宏的模板文件(*.dotm)”。
- 保存到WPS的模板文件夹(通常是这个路径):C:\Users\用户名\AppData\Roaming\kingsoft\wps\startup
下次需要用的时候,直接打开这个模板文件就能用AI写文档,简直不要太方便!
这波操作下来,我真的感觉自己是个“AI增强人”了——文档写作变得超高效,润色优化信手拈来,甚至还能让AI帮忙分析问题,真香!
以前写报告、整理方案,最痛苦的就是改来改去,现在有了 DeepSeek-R1,直接在 WPS 里一句话搞定,省下来的时间都够我刷两集番了。
你们觉得这个功能 炸不炸?赶紧试试,把 AI 请进你的 WPS,享受这飞一般的文档编辑体验!
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· 在鹅厂做java开发是什么体验
· 百万级群聊的设计实践
· WPF到Web的无缝过渡:英雄联盟客户端的OpenSilver迁移实战
· 永远不要相信用户的输入:从 SQL 注入攻防看输入验证的重要性
· 浏览器原生「磁吸」效果!Anchor Positioning 锚点定位神器解析