【大模型】WPS 接入 DeepSeek-R1詳解，打造全能AI辦公助手

一、前言

二、WPS接入AI工具優勢???????

三、WPS接入AI工具兩種方式

3.1 手動配置的方式

3.2 Office AI助手

四、WPS手動配置方式接入AI大模型

4.1 安裝VBA插件

4.1.1 下載VBA插件并安裝

4.2 配置WPS

4.3 WPS集成VB

4.4 AI助手效果測試

4.5 配置模板文件

五、使用OfficeAI?助手的方式接入AI大模型

5.1?OfficeAI?簡介

5.2 Office AI安裝

5.3 word 文檔中開啟授信

5.4 配置大模型

5.5 AI助手效果測試

5.5.1 內置大模型效果測試

5.5.2 使用硅基流動DeppSeek R1模型測試

六、寫在文末

一、前言

隨著當下國產大模型DeepSeek的走紅，與之相關的應用領域也正在逐步接入DeepSeek，從而提升自己的競爭力，除了各大互聯網巨頭之外，比如像阿里云的百煉平臺，硅基流動，字節的火山引擎等，都已經基于自身的平臺與DeepSeek完成了整合，與此同時，一些開源的工具軟件為了提升自己的AI能力，完善用戶的使用體驗，也開始支持對DeepSeek的模型配置能力，本文將詳細介紹如何在wps中對接DeepSeek。

二、WPS接入AI工具優勢

WPS（WPS Office）作為一款廣泛使用的辦公軟件，在日常工作生活中具備重要的地位。但是隨著AI大模型的誕生和廣泛使用，傳統的操作方式一定程度上在效率方面不夠好，而接入AI工具可以顯著提升其功能性和用戶體驗，帶來多方面的優勢。具體來說：

提升辦公效率

自動化處理：AI可以自動完成重復性任務，如文檔格式調整、表格數據整理、PPT排版優化等，減少用戶手動操作的時間。
智能推薦：AI可以根據用戶的使用習慣和內容，推薦合適的模板、樣式或功能，幫助用戶快速完成工作。
語音輸入與指令：通過AI語音識別技術，用戶可以直接通過語音輸入文字或下達指令，進一步提升操作效率。

增強文檔處理能力

智能寫作助手：AI可以提供語法檢查、拼寫糾正、句子優化等功能，幫助用戶寫出更高質量的文檔。
內容生成：AI可以根據用戶輸入的關鍵詞或主題，自動生成文章、報告、郵件等內容，節省創作時間。
多語言翻譯：集成AI翻譯工具，支持實時文檔翻譯，幫助用戶輕松處理多語言文檔。

數據分析與可視化

智能數據分析：在WPS表格中，AI可以自動分析數據，識別趨勢、異常值，并生成可視化圖表。
預測與決策支持：AI可以根據歷史數據提供預測分析，幫助用戶做出更明智的決策。
數據清洗：AI可以自動識別并清理表格中的重復數據、錯誤數據，提高數據質量。

個性化用戶體驗

智能推薦模板：AI可以根據用戶的需求和場景，推薦最合適的文檔模板、表格樣式或PPT主題。
學習用戶習慣：AI可以學習用戶的操作習慣，提供個性化的功能推薦和界面優化。
智能提醒：AI可以根據用戶的工作進度和日程安排，提供任務提醒和截止日期提示。

創新功能拓展

AI生成PPT：用戶只需輸入主題或關鍵詞，AI即可自動生成完整的PPT，包括內容、圖表和設計。
智能表格公式：AI可以自動推薦或生成復雜的表格公式，幫助用戶快速完成計算。
圖像識別與處理：AI可以識別文檔中的圖片內容，并提供編輯、優化建議。

降低成本

減少人工操作：通過AI自動化功能，減少用戶對專業技能的依賴，降低人力成本。
提高資源利用率：AI可以優化文檔存儲、共享和管理，減少資源浪費。

三、WPS接入AI工具兩種方式

目前WPS中，以word或excel來說，如果要對接DeepSeek主要有兩種方式。

3.1 手動配置的方式

手動配置，即通過一些底層的參數配置方式來實現，具體來說，像world或excel，都是支持VB插件的，而VB具備代碼編程的能力，于是可以借助VB插件作為橋接，從而將AI大模型產品集成進去使用。

3.2 Office AI助手

Office AI是一款AI插件，可以理解為專為Office 辦公軟件而生的一款AI插件，基于這個插件的代理能力，用戶可以在Office AI中配置指定的第三方大模型，從而達到使用外部AI大模型的能力。入口：OfficeAI助手 - 免費辦公智能AI助手, AI寫作

四、WPS手動配置方式接入AI大模型

以WPS中word為例進行操作演示。

4.1 安裝VBA插件

為WPS默認不支持VB編輯器（Visual Basic forApplication），所以需要先手動在本地安裝一個VB插件

4.1.1 下載VBA插件并安裝

將下載的VBA插件放到本地的目錄，然后安裝即可

4.2 配置WPS

手動創建一個word文檔，然后使用wps打開

打開：文件->選型，彈出下面的框

找到左側的"自定義功能區"，然后勾選下面的"工具"選項

上一步保存完成后，再次進入，切換為 "信任中心"，找到右側的 "宏安全性"，在彈框中勾選最下面的那一欄 "低"

同時在信任中心中，勾選下圖中的兩個選項，勾選完成后點擊確定

4.3 WPS集成VB

基于上面配置完成之后，再在導航欄頂部，通過點擊"工具"，可以看到在這一欄中就看到了一個 VB編輯器的工具

點擊VB編輯器進入下面的窗口

在當前的工程下插入一個模塊

這樣會打開一個代碼編輯的窗口，然后將下面的代碼粘貼到輸入框中

Function CallDeepSeekAPI(api_key As String, inputText As String) As StringDim API As StringDim SendTxt As StringDim Http As ObjectDim status_code As IntegerDim response As StringAPI = "https://dashscope.aliyuncs.com/compatible-mode/v1/chat/completions"SendTxt = "{""model"": ""qwen-max-0125"", ""messages"": [{""role"":""system"", ""content"":""請根據用戶的問題給出詳細的解答。""}, {""role"":""user"", ""content"":""" & inputText & """}]}"Set Http = CreateObject("MSXML2.XMLHTTP")With Http.Open "POST", API, False.setRequestHeader "Content-Type", "application/json".setRequestHeader "Authorization", "Bearer " & api_key.send SendTxtstatus_code = .Statusresponse = .responseTextEnd With' 彈出窗口顯示 API 響應（調試用）' MsgBox "API Response: " & response, vbInformation, "Debug Info"If status_code = 200 ThenCallDeepSeekAPI = responseElseCallDeepSeekAPI = "Error: " & status_code & " - " & responseEnd IfSet Http = Nothing
End FunctionSub qwen2_5()Dim api_key As StringDim inputText As StringDim response As StringDim regex As ObjectDim matches As ObjectDim originalSelection As Objectapi_key = "填寫你的API-KEY"If api_key = "" ThenMsgBox "Please enter the API key."Exit SubElseIf Selection.Type <> wdSelectionNormal ThenMsgBox "Please select text."Exit SubEnd If' 保存原始選中的文本Set originalSelection = Selection.Range.DuplicateinputText = Replace(Replace(Replace(Replace(Replace(Selection.text, "\", "\\"), vbCrLf, ""), vbCr, ""), vbLf, ""), Chr(34), "\""")response = CallDeepSeekAPI(api_key, inputText)If Left(response, 5) <> "Error" ThenSet regex = CreateObject("VBScript.RegExp")With regex.Global = True.MultiLine = True.IgnoreCase = False.Pattern = """content"":""(.*?)"""End WithSet matches = regex.Execute(response)If matches.Count > 0 Thenresponse = matches(0).SubMatches(0)' 處理換行符和特殊字符response = Replace(response, "\n\n", vbNewLine)  ' 雙換行替換為真實的單換行response = Replace(response, "\n", vbNewLine)  ' 單換行替換為真實的換行response = Replace(Replace(response, """", Chr(34)), """", Chr(34))' 取消選中原始文本Selection.Collapse Direction:=wdCollapseEnd' 將內容插入到選中文字的下一行Selection.TypeParagraph ' 插入新行Selection.TypeText text:=response' 將光標移回原來選中文本的末尾originalSelection.SelectElseMsgBox "Failed to parse API response.", vbExclamationEnd IfElseMsgBox response, vbCriticalEnd If
End Sub

在自定義功能區 -> 工具目錄下，新建一個組，組的名稱可以自己定義

在常用命令的下拉菜單中，選擇宏，然后就可以看到上面創建的那個VB腳本的模塊

添加到右側剛剛自定義的AI助手下面，可以對其進行重命名，最后點擊確定即可

此時，再看頂部導航欄的工具下面，就有了上面我們剛剛添加的這個AI助手了

4.4 AI助手效果測試

接下來就在當前的文檔中進行一下測試，首先問一個問題，在文檔中輸入一段話，比如問 ”你是什么大模型”，選中這段話，然后點擊上面的這個"千問2.5AI助手"，等待片刻之后，可以看到在當前的文檔中，千問大模型自動給出了回復

效果如下：

4.5 配置模板文件

當前的設置完成后，如果沒有關閉窗口是可以使用的，但是為了讓以后都可以使用自己配置的這個AI助手，則需要將設置好的wps文件另存為"帶宏的模板文件"。

將這個文件存儲為下面的這個格式的文件

保存之后的文件如下

最后將上面的這個模板文件放到本機電腦中的下面的目錄中

通過這樣的配置之后，以后就是永久生效了，有興趣的同學不妨嘗試關閉下，再打開看看效果

五、使用OfficeAI?助手的方式接入AI大模型

5.1?OfficeAI?簡介

OfficeAI 助手是一款免費的智能AI辦公工具軟件，專為 Microsoft Office 和 WPS 用戶打造。無論你是在尋找如何輸入“打勾（√）符號”的方法，還是想知道“怎么在插入表格前添加文字”，或者“該用哪個公式”， AI辦公助手都能為你提供快速、準確的解決方案。通過簡單的指令，ExcelAI 插件可以幫你自動完成復雜的公式計算、函數選擇。 WordAI 插件還具備整理周報、撰寫會議紀要、總結內容、以及文案潤色的強大功能。總之，OfficeAI 助手將大大提升你的辦公效率，讓日常工作變得更加輕松便捷。