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

deepseek王炸組合大全

一、deepseek + wps

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

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

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

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

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

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

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

二、deepseek + word

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

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

3、依次點(diǎn)擊【開(kāi)發(fā)工具】、【Visual Basic】按鈕。

4、選擇菜單后點(diǎn)擊【插入】、【模塊】，然后將圖中紅框處命名為【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á)式對(duì)象來(lái)分別匹配推理內(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

‘ 插入推理過(guò)程（如果存在）

If Len(reasoningContent) > 0 Then

Selection.TypeParagraph

Selection.TypeText “推理過(guò)程：”

Selection.TypeParagraph

Selection.TypeText reasoningContent

Selection.TypeParagraph

Selection.TypeText “最終回答：”

Selection.TypeParagraph

End If

‘ 插入最終回答

Selection.TypeText finalContent

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

originalSelection.Select

Else

MsgBox “Failed to parse API response.”, vbExclamation

End If

Else

MsgBox response, vbCritical

End If

End Sub

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

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

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

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

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

三、deepseek + excel

一、接入方法

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

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

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

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

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

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

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

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

9、依次點(diǎn)擊下方的按鈕。

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

11、下方顯示問(wèn)題的答案后即可設(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” ‘ 替換為實(shí)際的 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 + 微信

上線時(shí)間

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

使用方法

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

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