保姆级！DeepSeek集成 Office，办公效率暴增200%

办公的时候要是能让DeepSeek和WPS联手，那效率不得起飞！今天就来教大家怎么把DeepSeek插入到WPS Office里，让咱办公如虎添翼。不管你是写文档、做策划，还是处理各种文字工作，有了DeepSeek的帮忙，都能轻松不少。不过这过程稍微有点复杂，大家跟着我的步骤一步一步来，肯定没问题！

图片

DeepSeek集成WPS Office教程

1. 获取API key：首先得拿到deepseek - r1模型的API Key，咱们打开去官网https://www.deepseek.com/SiliconCloud 去获取。如果官方出现服务器错误，那么可以使用：硅基流动的API，硅基流动目前免费白嫖ds，有很多模型包括现在火出圈的deepseek的模型这API Key就像是一把钥匙，没它可进不了DeepSeek的大门。

图片

2. 配置WPS信任中心：打开自己的WPS，找到“信任中心”，点击进去后再找到“宏安全性”，把安全性选择设置为“低”。这一步是为了让WPS能顺利运行咱们后面要添加的代码。

图片

3. 打开VB编辑器：点击“工具”，找到“开发工具”，然后打开VB编辑器。

图片

要是你电脑里没有VB工具，得先去下载一个，这工具可是用来给WPS写内部代码的关键。要是已经有这个环境，那就直接切换到VB环境就行。

图片

4. 安装wps.vba：下载地址，把wps.vba下载下来。

5. 添加模块并复制代码：在VB编辑器里，点击“插入”，选择“模块”。然后把下面的代码复制到编辑区中，这里一定要注意把代码里的“替换为你的api key”换成你自己刚刚获取到的API key。这是DeepSeek - V3的代码：

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-chat"", ""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 DeepSeekV3()

Dim api_key As String

Dim inputText As String

Dim response As String

Dim regex As Object

Dim matches As Object

Dim originalSelection As Object

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 regex = CreateObject("VBScript.RegExp")

With regex

.Global = True

.MultiLine = True

.IgnoreCase = False

.Pattern = """content"":""(.*?)"""

End With

Set matches = regex.Execute(response)

If matches.Count > 0 Then

response = matches(0).SubMatches(0)

response = Replace(Replace(response, """", Chr(34)), """", Chr(34))

' 取消选中原始文本

Selection.Collapse Direction:=wdCollapseEnd

' 将内容插入到选中文字的下一行

Selection.TypeParagraph ' 插入新行

Selection.TypeText text:=response

' 将光标移回原来选中文本的末尾

originalSelection.Select

Else

MsgBox "Failed to parse API response.", vbExclamation

End If

Else

MsgBox response, vbCritical

End If

End Sub

添加完成之后保存关闭就行。

图片

6. 自定义功能区：点击“文件”，再点击“选项”，接着点击“自定义功能区”。选中之后，点击“新建组”，然后右键新建组。在新的组里面插入DeepSeek，再点击重命名，把它命名为"Deepseek"。保存配置并退出，这时候要是看到工具那里有DeepSeek，就说明已经安装好啦！

图片

7. 测试功能：安装好之后，咱们就可以测试一下DeepSeek在WPS里好不好用啦。选中文本，点击刚刚添加的DeepSeek功能，看看能不能得到想要的结果。

图片

图片

图片

Deepseek+AIPPT，做PPT效率提升300%

按照上面这些步骤，咱们就成功把DeepSeek插入到WPS Office里了！以后办公的时候，写文案、找灵感，DeepSeek都能帮上大忙。

作者声明本文无利益相关，欢迎值友理性交流，和谐讨论～