WPS 嵌入 DeepSeek 教程
目标： 在 WPS 中嵌入 DeepSeek 功能，实现文档智能处理。
所需工具：
WPS Office 最新版本
DeepSeek API 密钥
文本编辑器（如记事本、VS Code）
步骤：
一、获取 DeepSeek API 密钥
访问 DeepSeek 官网 (https://www.deepseek.com/) 并注册账号。
点击右上角API开放平台。
创建一个新应用，并获取 API 密钥。
二、wps配置过程
1、启用开发工具
首先，我们得让WPS具有开发功能，打开WPS，新建一个文档，点击顶部菜单栏“文件”--“选项”--“自定义功能区”，找到“工具”勾选上，点击确定。
2、配置信任中心
在WPS里要运行VBA代码，默认是禁用的，所以需要把宏安全性降低。
点击顶部菜单栏“文件”--“选项”--“信任中心”，点击右上角“宏安全性”，选择“低”。
三、编写 VBA 代码
1.打开 WPS，新建一个空白文档。
2.点击菜单栏“工具”--“开发工具”--点击右上角“切换到VB环境”。（如果没有vb编辑器的需要单独安装）。
3.打开vb编辑器后，选择“插入”--“模块”。
4.在新建的VB模块中，粘贴以下代码：
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
' DeepSeek API 的 URL
API = "https://api.deepseek.com/chat/completions"
' 对 inputText 中的双引号进行转义，确保 JSON 格式正确
inputText = Replace(inputText, """", "\""")
' 构造发送的 JSON 数据
SendTxt = "{""model"": ""deepseek-chat"", ""messages"": [ {""role"":""system"", ""content"":""You are a Word assistant""}, {""role"":""user"", ""content"":""" & inputText & """} ], ""stream"": false}"
' 创建 XMLHTTP 对象
Set Http = CreateObject("MSXML2.XMLHTTP")
With Http
' 打开连接，使用 POST 方法
.Open "POST", API, False
' 设置请求头
.setRequestHeader "Content-Type", "application/json"
.setRequestHeader "Authorization", "Bearer " & api_key
' 发送请求
.send SendTxt
' 获取状态码和响应内容
status_code = .Status
response = .responseText
End With
' 根据状态码返回响应内容或错误信息
Select Case status_code
Case 200
CallDeepSeekAPI = response
Case 402
CallDeepSeekAPI = "Error: 402 - Insufficient Balance. Please check your account balance."
Case Else
CallDeepSeekAPI = "Error: " & status_code & " - " & response
End Select
' 释放对象
Set Http = Nothing
End Function
Sub DeepSeekV3()
Dim api_key As String
Dim inputText As String
Dim regex As Object
Dim matches As Object
Dim originalSelection As Object
Dim response As String
' 设置 API 密钥
api_key = "替换为你的 DeepSeek API 密钥"
' 检查 API 密钥是否为空
If api_key = "" Then
MsgBox "请输入 API 密钥。"
Exit Sub
' 检查是否有文本被选中
ElseIf Selection.Type <> wdSelectionNormal Then
MsgBox "请选择文本。"
Exit Sub
End If
' 保存原始选中的文本
Set originalSelection = Selection.Range.Duplicate
' 清理选中的文本，去除不必要的字符
inputText = Replace(Replace(Replace(Replace(Replace(Selection.Text, "", ""), vbCrLf, ""), vbCr, ""), vbLf, ""), Chr(34), """")
' 调用 DeepSeek API
response = CallDeepSeekAPI(api_key, inputText)
' 检查响应是否包含错误
If Left(response, 5) <> "Error" Then
' 创建正则表达式对象
Set regex = CreateObject("VBScript.RegExp")
With regex
.Global = True
.MultiLine = True
.IgnoreCase = False
' 设置正则表达式模式，用于提取 API 响应中的内容
.Pattern = """content"":""(.*?)"""
End With
' 执行正则表达式匹配
Set matches = regex.Execute(response)
' 如果匹配成功，提取内容并插入到文档中
If matches.Count > 0 Then
response = matches(0).SubMatches(0)
response = Replace(Replace(response, "\""", """"), "\""", """")
' 取消选中原始文本
Selection.Collapse Direction:=wdCollapseEnd
' 将内容插入到选中文字的下一行
Selection.TypeParagraph ' 插入新行
Selection.TypeText Text:=response
' 将光标移回原来选中文本的末尾
originalSelection.Select
Else
MsgBox "无法解析 API 响应。", vbExclamation
End If
Else
MsgBox response, vbCritical
End If
End Sub
四、自定义Deepseek按钮
1. 打开“文件"->“选项”->“自定义功能区”,在右侧功能区列表中点击“新建组”，命名为“DeepSeek”。
2.在左侧命令列表中找到“宏”,找到Project.模块1.DeepSeekR1，添加到右侧功能区“DeepSeek”中，然后改一个你喜欢的名字，点击“确定”保存设置。
做完这些，你就有了一个专属DeepSeek按钮。
五、测试功能
1.返回 WPS 文档，输入一段文本。
2.选中这段文字，点击刚刚创建的“开始对话”按钮。
3.DeepSeek会自动生成内容，轻松完成任务!
4.将中文翻译成英文，DeepSeek也能快速搞定!
友情提醒：这里存在一个小问题，如果你的DeepSeek账号里面没有余额，而且现在由于资源紧张也不支持充值，当你点击完你的DeepSeek小按钮后，它就会给你报错Error 402。所以大家如果想要用API，只能等重新开放充值。
六、创建模板
为了能一直使用一直高效办公摸鱼，我们把这个功能保存成一个模板。
点击“文件”-“另存为”，选择Microsoft Word 带宏的模板文件 (*.dotm)，文件保存到C:\Users\用户名\AppData\Roaming\kingsoft\wps\startup，下次再打开WPS的时候就可以使用，不需要重复配置。