DeepSeek接入word步驟

春風化雨100 >《待分類》

2025.02.07 湖北

關注

DeepSeek接入Microsoft Word，通常需要通過API集成并結(jié)合VBA宏或插件開發(fā)，以下是詳細步驟：

第一步：獲取DeepSeek API訪問權(quán)限

注冊DeepSeek賬戶
訪問DeepSeek官網(wǎng)或開發(fā)者平臺，注冊賬號。
創(chuàng)建API密鑰（DeepSeek首頁下拉底部菜單）。
查閱API文檔
確認API端點（如https://api.deepseek.com/v1/chat/completions）、支持的模型、請求格式（JSON）、認證方式（如Bearer Token）。

第二步：在Word中啟用開發(fā)工具

開啟開發(fā)者選項卡
打開Word → 文件 → 選項 → 自定義功能區(qū) → 勾選“開發(fā)工具”。
準備VBA編輯器
進入開發(fā)者選項卡 → 點擊“Visual Basic”打開編輯器。
右鍵項目 → 插入模塊（用于編寫API調(diào)用代碼）。

第三步：編寫VBA代碼調(diào)用API

Sub CallDeepSeekAPI() Dim http As Object Dim url As String, apiKey As String Dim requestBody As String, response As String Dim selectedText As String ' 獲取當前選中的文本 selectedText = Selection.Text ' 配置API信息 apiKey = 'YOUR_API_KEY' ' 替換為你的API密鑰 url = 'https://api.deepseek.com/v1/chat/completions' ' 構(gòu)建請求體（根據(jù)DeepSeek API要求調(diào)整） requestBody = '{''model'':''deepseek-chat'',''messages'':[{''role'':''user'',''content'':''' & selectedText & '''}]}' ' 創(chuàng)建HTTP請求 Set http = CreateObject('MSXML2.XMLHTTP') http.Open 'POST', url, False http.setRequestHeader 'Content-Type', 'application/json' http.setRequestHeader 'Authorization', 'Bearer ' & apiKey http.send requestBody ' 處理響應 If http.Status = 200 Then response = http.responseText ' 解析JSON（需要JSON解析庫，如VBA-JSON） Dim parsed As Dictionary Set parsed = JsonConverter.ParseJson(response) Dim outputText As String outputText = parsed('choices')(1)('message')('content') ' 插入到文檔 Selection.TypeText outputText Else MsgBox 'API請求失敗: ' & http.Status & ' - ' & http.statusText End IfEnd Sub