谋划： 在 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的时间就不错使用，不需要叠加设置。
图片
本站仅提供存储就业，悉数骨子均由用户发布，如发现存害或侵权骨子，请点击举报。