3、之后前往deepseek官網并點擊右上方的【開發者平臺】創建訪問憑證。
4、登錄后進入開發者中心，然后選擇訪問密鑰，生成新密鑰時建議大家將其命名為【WPS辦公套件】。
5、隨后復制生成的32位加密字符。
6、點擊大模型設置并開啟本地部署，最后將密鑰粘貼到圖中方框處。
7、完成后顯示綠色校驗標識即可使用。
二、deepseek + word
1、首先需要打開Word文檔，然后依次點擊【文件】、【更多】、【Word選項】、【自定義功能區】、勾選【開發工具】。
2、完成后需要按照下方步驟進行信任中心界面，找到宏設置后點擊【啟用所有宏】。
3、依次點擊【開發工具】、【Visual Basic】按鈕。
4、選擇菜單后點擊【插入】、【模塊】，然后將圖中紅框處命名為【DeepSeek】。
5、之后將下方代碼粘貼至DeepSeek模塊中。
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服務地址
API = “https://apiemp.baystoneai.com/cognihub/service/v1/chat/completions”
‘ API模型名稱
SendTxt = “{“”model””: “”deepseek-r1-distill-qwen””, “”messages””: [{“”role””:””system””, “”content””:””You are a helpful 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 DeepSeekR1()
Dim api_key As String
Dim inputText As String
Dim response As String
Dim regex As Object
Dim reasoningRegex As Object
Dim contentRegex As Object
Dim matches As Object
Dim reasoningMatches As Object
Dim originalSelection As Object
Dim reasoningContent As String
Dim finalContent As String
‘ API密鑰：替換為你的api key
api_key = “YOUR_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 reasoningRegex = CreateObject(“VBScript.RegExp”)
With reasoningRegex
.Global = True
.MultiLine = True
.IgnoreCase = False
.Pattern = “””reasoning_content””:””(.*?)”””
End With
Set contentRegex = CreateObject(“VBScript.RegExp”)
With contentRegex
.Global = True
.MultiLine = True
.IgnoreCase = False
.Pattern = “””content””:””(.*?)”””
End With
‘ 提取推理內容
Set reasoningMatches = reasoningRegex.Execute(response)
If reasoningMatches.Count > 0 Then
reasoningContent = reasoningMatches(0).SubMatches(0)
reasoningContent = Replace(reasoningContent, “nn”, vbNewLine)
reasoningContent = Replace(reasoningContent, “n”, vbNewLine)
reasoningContent = Replace(Replace(reasoningContent, “”””, Chr(34)), “”””, Chr(34))
End If
‘ 提取最終回答
Set matches = contentRegex.Execute(response)
If matches.Count > 0 Then
finalContent = matches(0).SubMatches(0)
finalContent = Replace(finalContent, “nn”, vbNewLine)
finalContent = Replace(finalContent, “n”, vbNewLine)
finalContent = Replace(Replace(finalContent, “”””, Chr(34)), “”””, Chr(34))
‘ 取消選中原始文本
Selection.Collapse Direction:=wdCollapseEnd
‘ 插入推理過程（如果存在）
If Len(reasoningContent) > 0 Then
Selection.TypeParagraph
Selection.TypeText “推理過程：”
Selection.TypeParagraph
Selection.TypeText reasoningContent
Selection.TypeParagraph
Selection.TypeText “最終回答：”
Selection.TypeParagraph
End If
‘ 插入最終回答
Selection.TypeText finalContent
‘ 將光標移回原來選中文本的末尾
originalSelection.Select
Else
MsgBox “Failed to parse API response.”, vbExclamation
End If
Else
MsgBox response, vbCritical
End If
End Sub
6、保存后將這個彈框關閉，然后依次點擊【文件】、【更多】、【選項】、【自定義功能區】，然后勾選宏。
7、接著根據圖中順序進行操作。
8、點擊下方按鈕后，點擊繼續根據圖中提示進行操作。
9、就能在開發工具界面看到下方按鈕。
10、最后大家只需在Word文檔中輸入一段文字，然后點擊新建的按鈕，就能進行內容擴寫、翻譯、檢查錯別字等操作了。
三、deepseek + excel
一、接入方法
1、首先需要獲取deepseek的KPI，然后前往deepseek官網并點擊右側的【API平臺】。
2、跳轉界面后找到左側的【APIcase】，之后點擊【創建】，并任意填入一個名字。
3、之后依次點擊【創建】和【復制】按鈕。
4、將其放入文檔下面后，再次復制VBA代碼。
5、進入excel表格后點擊左上方的【開發工具】，然后依次點擊下方箭頭指向的位置。
6、將代碼放到excel表格中后，繼續復制一下API。
7、然后回到excel表格中，將【你的API】替換為剛才復制的API。
8、關閉當前界面后，需要創建按鈕進行激活。
9、依次點擊下方的按鈕。
10、出現彈框后選擇第一個代碼，然后輸入一個問題后點擊一下后方的按鈕。
11、下方顯示問題的答案后即可設置成功。
二、VBA代碼
Sub CallDeepSeekAPI()
Dim question As String
Dim response As String
Dim url As String
Dim apiKey As String
Dim http As Object
Dim content As String
Dim startPos As Long
Dim endPos As Long
question = ThisWorkbook.Sheets(1).Range(“A1”).Value
url = “https://api.deepseek.com/v1/chat/completions” ‘ 替換為實際的 API URL
apiKey = “你的API” ‘ 替換為你的 API 密鑰
Set http = CreateObject(“MSXML2.XMLHTTP”)
http.Open “POST”, url, False
http.setRequestHeader “Content-Type”, “application/json”
http.setRequestHeader “Authorization”, “Bearer ” & apiKey
Dim requestBody As String
requestBody = “{“”model””:””deepseek-chat””,””messages””:[{“”role””:””user””,””content””:””” & question & “””}]}”
http.send requestBody
If http.Status = 200 Then
response = http.responseText
startPos = InStr(response, “””content””:”””) + Len(“””content””:”””)
endPos = InStr(startPos, response, “”””)
content = Mid(response, startPos, endPos – startPos)
ThisWorkbook.Sheets(1).Range(“A2”).Value = content
Else
ThisWorkbook.Sheets(1).Range(“A2”).Value = “Error: ” & http.Status & ” – ” & http.statusText
End If
End Sub
四、deepseek + 微信
上線時間
預計將在今年內上線，目前該功能還處于灰度測試階段，只有部分用戶能用。
使用方法
1、首先用戶需要進入微信app，接著點擊搜索，再點擊搜索框下面的“ai搜索”的按鍵。
2、最后用戶就可以選擇deepseek-R1模型進行搜索了。
