deepseek王炸組合可以大幅度提高工作效果，用戶只需按照操作將deepseek和所需的應(yīng)用相結(jié)合即可，由于很多小伙伴對此還不太了解，下面小編將為大家詳細(xì)介紹一下，感興趣的不要錯過了。

deepseek王炸組合大全

一、deepseek + wps

1、第一步需要安裝插件，首先打開WPS頂部菜單欄中的插件，然后搜索【DeepSeek】并點擊安裝官方插件。

2、完成后打開WPS，依次點擊【信任此擴(kuò)展】-【設(shè)置】-【大模型設(shè)置】-【本地部署】-【APIKEY】-選擇【deepseek大模型】。

3、之后前往deepseek官網(wǎng)并點擊右上方的【開發(fā)者平臺】創(chuàng)建訪問憑證。

4、登錄后進(jìn)入開發(fā)者中心，然后選擇訪問密鑰，生成新密鑰時建議大家將其命名為【W(wǎng)PS辦公套件】。

5、隨后復(fù)制生成的32位加密字符。

6、點擊大模型設(shè)置并開啟本地部署，最后將密鑰粘貼到圖中方框處。

7、完成后顯示綠色校驗標(biāo)識即可使用。

二、deepseek + word

1、首先需要打開Word文檔，然后依次點擊【文件】、【更多】、【W(wǎng)ord選項】、【自定義功能區(qū)】、勾選【開發(fā)工具】。

2、完成后需要按照下方步驟進(jìn)行信任中心界面，找到宏設(shè)置后點擊【啟用所有宏】。

3、依次點擊【開發(fā)工具】、【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服務(wù)地址

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 響應(yīng)（調(diào)試用）

‘ 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

‘ 創(chuàng)建正則表達(dá)式對象來分別匹配推理內(nèi)容和最終回答

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

‘ 提取推理內(nèi)容

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

‘ 將光標(biāo)移回原來選中文本的末尾

originalSelection.Select

Else

MsgBox “Failed to parse API response.”, vbExclamation

End If

Else

MsgBox response, vbCritical

End If

End Sub

6、保存后將這個彈框關(guān)閉，然后依次點擊【文件】、【更多】、【選項】、【自定義功能區(qū)】，然后勾選宏。

7、接著根據(jù)圖中順序進(jìn)行操作。

8、點擊下方按鈕后，點擊繼續(xù)根據(jù)圖中提示進(jìn)行操作。

9、就能在開發(fā)工具界面看到下方按鈕。

10、最后大家只需在Word文檔中輸入一段文字，然后點擊新建的按鈕，就能進(jìn)行內(nèi)容擴(kuò)寫、翻譯、檢查錯別字等操作了。

三、deepseek + excel

一、接入方法

1、首先需要獲取deepseek的KPI，然后前往deepseek官網(wǎng)并點擊右側(cè)的【API平臺】。

2、跳轉(zhuǎn)界面后找到左側(cè)的【APIcase】，之后點擊【創(chuàng)建】，并任意填入一個名字。

3、之后依次點擊【創(chuàng)建】和【復(fù)制】按鈕。

4、將其放入文檔下面后，再次復(fù)制VBA代碼。

5、進(jìn)入excel表格后點擊左上方的【開發(fā)工具】，然后依次點擊下方箭頭指向的位置。

6、將代碼放到excel表格中后，繼續(xù)復(fù)制一下API。

7、然后回到excel表格中，將【你的API】替換為剛才復(fù)制的API。

8、關(guān)閉當(dāng)前界面后，需要創(chuàng)建按鈕進(jìn)行激活。

9、依次點擊下方的按鈕。

10、出現(xiàn)彈框后選擇第一個代碼，然后輸入一個問題后點擊一下后方的按鈕。

11、下方顯示問題的答案后即可設(shè)置成功。

二、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 + 微信

上線時間

預(yù)計將在今年內(nèi)上線，目前該功能還處于灰度測試階段，只有部分用戶能用。

使用方法

1、首先用戶需要進(jìn)入微信app，接著點擊搜索，再點擊搜索框下面的“ai搜索”的按鍵。

2、最后用戶就可以選擇deepseek-R1模型進(jìn)行搜索了。