在WPS里接入DeepSeek-R1！有了這個(gè)，文檔編輯的速度就像安裝了火箭引擎，分分鐘讓你跟AI擦肩而過，感覺像是坐上了飛行器一樣。

而且，這不只是簡單的文本生成那么簡單哦，它還可以幫你優(yōu)化表達(dá)、自動(dòng)推理分析，簡直是程序員的福音！

我知道，可能有些朋友看到這里就開始犯難：“這什么玩意兒？能在WPS里玩出花樣，聽起來有點(diǎn)復(fù)雜啊。”別擔(dān)心，我會(huì)一步步帶你們走，保證你們能把這個(gè)DeepSeek-R1大模型完美接入到WPS里，然后爽得飛起！

為什么要將DeepSeek-R1接入WPS？

老實(shí)說，我覺得WPS本身就挺不錯(cuò)，大家熟悉吧？尤其是它支持各種宏和插件，可以在文檔中添加自定義功能。

通過DeepSeek-R1的接入，你可以在文檔中實(shí)現(xiàn)AI文字處理，比如生成新的內(nèi)容、優(yōu)化表達(dá)，甚至可以進(jìn)行一些推理分析。

你想想，如果有個(gè)AI助手隨時(shí)幫你優(yōu)化文檔、生成內(nèi)容，豈不是比熬夜寫代碼更開心？

第一步：獲取DeepSeek-R1的API Key

想要玩這個(gè)，第一步就是得搞到DeepSeek-R1的API Key。這里有兩種方式可以獲得，當(dāng)然不管哪一種，記得保管好你的API Key，它可是關(guān)鍵！

1、DeepSeek官方API Key

官網(wǎng)地址：https://www.deepseek.com，不過，提醒一下，目前官方的API Key申請已經(jīng)暫停了。

2.騰訊云提供的DeepSeek-R1 API Key

地址：https://curl.qcloud.com/T3M5yBHp，這是個(gè)穩(wěn)定的替代方案，直接使用這個(gè)就行。

獲取好API Key后，記得妥善保管，后續(xù)配置中可得上用。

第二步：配置WPS開發(fā)工具

接下來，我們得開始配置WPS的開發(fā)工具。這一段有點(diǎn)步驟，但也不復(fù)雜，給大家?guī)硪环菰敿?xì)的配置攻略。

1. 啟用開發(fā)工具

打開WPS，新建一個(gè)文檔。

點(diǎn)擊頂部菜單欄的“文件” → “選項(xiàng)” → “自定義功能區(qū)”。

在右側(cè)的功能區(qū)列表中，勾選“工具”選項(xiàng)。

點(diǎn)擊“確定”保存設(shè)置。

2. 配置信任中心

在WPS中，點(diǎn)擊“文件” → “選項(xiàng)” → “信任中心”。

選擇“信任中心設(shè)置” → “宏安全性”。

將安全性設(shè)置為“低”，這樣就能允許運(yùn)行VBA宏了。

3. 添加模塊

點(diǎn)擊頂部菜單欄的“工具” → “開發(fā)工具” → “切換到VB環(huán)境”，然后重啟WPS。

重啟后，再次點(diǎn)擊VB編輯器。

在彈出的VB編輯器窗口中，點(diǎn)擊“插入” → “模塊”。

把DeepSeek-R1相關(guān)代碼復(fù)制到編輯區(qū)，并替換為你的API Key。

記得替換為你的API Key：

DeepSeek-V3代碼(官方apikey）

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 響應(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 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(3
 ' 取消選中原始文本            
 Selection.Collapse Direction:=wdCollapseEnd
' 將內(nèi)容插入到選中文字的下一行            
Selection.TypeParagraph ' 插入新行            
Selection.TypeText text:=response
' 將光標(biāo)移回原來選中文本的末尾            
originalSelection.Select        
Else            
MsgBox "Failed to parse API response.", vbExclamation        
End If    
Else        
MsgBox response, vbCritical   
End If
End Sub

4. 自定義功能區(qū)

回到WPS主界面，點(diǎn)擊“文件” → “選項(xiàng)” → “自定義功能區(qū)”。

在右側(cè)功能區(qū)列表中，點(diǎn)擊“新建組”，命名為“DeepSeek”。

在左側(cè)命令列表中，選擇“宏”，找到剛剛添加的宏（比如“DeepSeekV3”）。

點(diǎn)擊“添加”，然后右鍵重命名為“生成”。

點(diǎn)擊“確定”保存設(shè)置。

就這樣，WPS的開發(fā)工具配置完成了。是不是比你想的還簡單？

第三步：使用DeepSeek-R1生成內(nèi)容

好了，現(xiàn)在我們終于可以開始真正使用DeepSeek-R1了！其實(shí)很簡單，下面這些步驟，你很快就能上手。

打開WPS文檔，選中需要處理的文字。

點(diǎn)擊剛才添加的“生成”按鈕。

稍等片刻，DeepSeek-R1會(huì)自動(dòng)返回處理結(jié)果，并直接插入到文檔中。

是不是很爽？你可以直接在WPS里完成所有操作，完全不需要切換到其他工具，這樣工作效率不就直接飆升了嗎？

第四步：創(chuàng)建WPS模板

為了以后能更方便地使用這個(gè)功能，我們可以將當(dāng)前的配置保存為一個(gè)WPS模板。這樣，以后每次打開WPS文檔，都能直接用上這個(gè)DeepSeek-R1。

點(diǎn)擊“文件” → “另存為”。

在保存類型中選擇“Microsoft Word 帶宏的模板文件 (*.dotm)”。

將文件保存到WPS的模板文件夾中（通常路徑是：C:\Users\用戶名\AppData\Roaming\kingsoft\wps\startup）。

下次使用時(shí)，只需打開模板文件即可。

這樣，每次你打開WPS文檔，DeepSeek-R1的所有設(shè)置就都能直接用上，方便極了！

總結(jié)

好啦，今天的教程就到這里。通過接入DeepSeek-R1，你可以輕松提升文檔處理的效率和智能化水平。對于程序員來說，這種自動(dòng)化的處理方式，不僅節(jié)省了大量時(shí)間，還能讓工作變得更加輕松有趣。

每當(dāng)你坐在電腦前，點(diǎn)擊“生成”按鈕，DeepSeek-R1就像是一個(gè)隨時(shí)待命的助手，幫你處理文檔中的各種復(fù)雜內(nèi)容。試試吧，絕對讓你爽到飛起！

最新評論