目标： 在 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的时候就可以使用，不需要重复配置。

图片

本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。