WPS中调用DeepSeek方法
本帖最后由 pythonfun 于 2025-10-3 19:17 编辑随着DeepSeek等人工智能技术的飞速发展，把AI能力直接融入日常办公软件已经成为不可逆转的大趋势。办公软件如WPS、PDFgear、Notion等都融合有AI功能。
很多同学希望在写作、翻译、润色文稿时，能够随时调用大模型来帮忙。虽然有OfficeAI助手等插件辅助，但是为了安全起见，我们采用WPS VBA宏代码，把 DeepSeek V3模型接入到 WPS 中，同时给它设定一个快捷方式，方便随时调用。
一、准备工作
要在WPS中使用 DeepSeek，我们需要做三件事：
1.获取API密钥：这是访问 DeepSeek 服务的通行证，类似一把钥匙。可以通过注册硅基流动来获得，其实就是一串以“sk-”开头的字符串。
2. 打开宏功能：WPS 默认关闭宏，需要到“选项 → 信任中心”里启用宏支持。
3. 进入VBA 编辑器：按下快捷键【Alt + F11】，或者通过【开发工具】—【VB编辑器】就可以打开宏的编辑界面。这三步完成后，环境就准备好了。
二、导入宏代码
进入VBA 编辑器后，点击【视图】，找到Normal模板下的模块，右击它新建一个模块，并将其属性改为:DeepSeekV3。然后，把下面这段VBA代码完整复制进去，把代码中API_KEY处替换成你自己的，最后保存并关闭编辑器。
Function CallDeepSeekAPI(api_key As String, inputText As String) As String
Dim API As String
Dim SendExt As String
Dim Http As Object
Dim status_code As Integer
Dim response As String
API = "http://api.siliconflow.cn/v1/chat/completions"
SendExt = "{""model"": ""deepseek-ai/DeepSeek-V3"", ""messages"": [{""role"":""system"",""content"":""You are a helpful assistant.""},{""role"":""user"",""content"":""" & inputText & """}]}"
On Error Resume Next
Set Http = CreateObject("MSXML2.XMLHTTP.6.0")
If Err.Number <> 0 Then
CallDeepSeekAPI = "Error: Failed to create HTTP object - " & Err.Description
Exit Function
End If
With Http
.Open "POST", API, False
.setRequestHeader "Content-Type", "application/json; charset=utf-8"
.setRequestHeader "Authorization", "Bearer " & api_key
.Send SendExt
If Err.Number <> 0 Then
CallDeepSeekAPI = "Error: API request failed - " & Err.Description
Exit Function
End If
status_code = .Status
response = .responseText
End With
On Error GoTo 0
If status_code = 200 Then
CallDeepSeekAPI = response
Else
CallDeepSeekAPI = "HTTP " & status_code & " : " & response
End If
Set Http = Nothing
End Function
Sub DeepSeekV3_Simplest()
Dim api_key As String
Dim inputText As String
Dim response As String
Dim content As String
Dim originalSelection As Range
Dim startPos As Long
Dim endPos As Long
' 设置 API 密钥
api_key = "<你硅基流动的API_KEY>"
' 检查 API 密钥是否为空
If api_key = "" Then
MsgBox "请填写API密钥", vbCritical
Exit Sub
End If
' 检查是否选择了文本
If Selection.Type <> wdSelectionNormal Then
MsgBox "请先选择需要处理的文本", vbExclamation
Exit Sub
End If
' 保存当前选中的文本范围
Set originalSelection = Selection.Range
inputText = Trim(Replace(Selection.Text, vbCr, ""))
' 调用 DeepSeek API
response = CallDeepSeekAPI(api_key, inputText)
' 检查 API 调用是否出错
If Left(response, 5) = "Error" Or Left(response, 4) = "HTTP" Then
MsgBox response, vbCritical
Exit Sub
End If
' 简单提取content内容（不使用JSON解析）
startPos = InStr(response, """content"":""") + 11
endPos = InStr(startPos, response, """},""")
If startPos > 11 And endPos > startPos Then
content = Mid(response, startPos, endPos - startPos)
' 清理格式
content = Replace(content, "\n", vbCrLf)
content = Replace(content, "\""", """")
content = Replace(content, "**", "")
content = Replace(content, "###", "")
' 插入到文档
originalSelection.Collapse Direction:=wdCollapseEnd
originalSelection.InsertAfter vbCrLf & vbCrLf & "AI回答：" & vbCrLf & content
Else
MsgBox "无法解析API响应", vbExclamation
End If
End Sub
三、添加到快捷工具栏
如果每次都要进宏菜单运行，会比较麻烦。为了方便使用，我们可以把它放到WPS 的“快捷工具栏”里。
方法如下：
1. 打开 WPS ，依次点击【选项】— 【自定义功能区】 — 【快速访问工具栏】。
2. 在左侧的类别中选择宏，找到Normal开头、名称为DeepSeekV3的选项。
3. 点击 【添加】，把它放到右边的工具栏列表。
4. 确认后保存，WPS 界面左上方多了一个快捷按钮。
5. 还可以在【自定义工具栏】处，找到对应的宏，给它分配一个快捷键，如Ctrl + Shift + D，这样用起来更快。以后只需要选中文字，点一下快捷按钮，或者按下快捷键，就得获取DeepSeek的回答。
四、注意事项
1. API 密钥不能为空：第一次使用前，需要把代码中的密钥位置替换为你自己的。
2. 必须先选中内容：宏只处理当前选中的文字，如果没有选择，宏会弹窗提醒。
3. 网络需要保持畅通：宏是通过互联网与 DeepSeek 交互，没有网络就无法返回结果的。
五、总结
我们通过编程宏，开启宏，导入代码，设置快捷方式，添加快捷按钮，选中文本运行，实现了在WPS当中调用DeepSeek V3的api，不需要切换软件，不需要复制粘贴，就能直接请DeepSeek在文档里辅助你完成各项任务。由于我们把宏代码放到了Normal模板里，这样每次打开WPS都可以调用它用于日常撰写文章、整理报告、翻译材料时，大幅提升办公效率。如果感兴趣就赶快实践一下吧！期待你的留言反馈。 嘿嘿，我不为楼主这样的标题所吸引，也不是被帖子的内容所迷惑。我不是来抢沙发的，也不是来打酱油的。我不是为楼主呐喊加油的，也不是对楼主进行围堵攻击的。我只是为了每天积分默默奋斗。你是个美女，我毫不关心，你是个怪兽，我决不在意；你是个帅哥，我不会妒忌，你是个畜男，我也不会PS。你的情操再怎么高尚，我也不会赞美，你的道德如何沦丧，我也不为所动。在这个回帖才能看贴的坛子，不得不弄段**的话来显眼，于是我抄下了这段话，专门用来回帖 pythonfun 发表于 2025-10-13 15:29
注意你看你的key是哪里的？我的是silicon flow里的，不是官方的key
嗯嗯是这个原因不过第一次简单的命令没问题 然后复杂的显示 HTTP 400 : {"code":20015,"message":"The parameter is invalid. Pleasecheck again.","data":null} 来得正好，刚刚从本站下载了wps，还有人推荐大学版的wps 教程详细，感谢指导。{:17_1074:} 来得正好 本帖最后由 putitree 于 2025-10-3 20:29 编辑
谢谢楼主，跟着学习下，把宏代码放到了Normal模板里，这样每次打开WPS都可以调用它用于日常撰写文章、整理报告、翻译材料时，确实是能较大幅度的提升办公效率，谢谢楼主 看不懂感觉很牛批 破解版的wps可以吗 huabaojie 发表于 2025-10-3 20:33
破解版的wps可以吗
要求得安装 WPS VBA插件才可以。 不支持本地ollama？？？ 高手，这个好学习了。谢谢分享。