免费deepseek的API获取教程及将API接入word或WPS中

免费deepseek的API获取教程:

1 火山方舟 https://console.volcengine.com/中注册填写邀请码：WGDGUTTL 即可获取3250万R1模型tokens
或硅基流动 https://cloud.siliconflow.cn/中注册时填写邀请码：GAejkK6X即可获取2000 万 Tokens;

2 按照图中步骤进行操作
在这里插入图片描述

wordWPS_8">将API接入word或WPS中

1 打开一个word，文件-选项-自定义功能区-勾选开发工具-左侧的信任中心-信任中心设置-宏设置-启用所有宏-确定
在这里插入图片描述

2 开发工具-VB-插入-模块

3 在调出的窗口中输入如下代码

word">Function CallDeepSeekAPI(api_key word">As word">String, inputText word">As word">String) word">As word">Stringword">Dim API word">As word">Stringword">Dim SendTxt word">As word">Stringword">Dim Http word">As word">Objectword">Dim status_code word">As word">Integerword">Dim response word">As word">StringAPI = "https://api.siliconflow.cn/v1/chat/completions" SendTxt = "{""model"": ""deepseek-ai/DeepSeek-V3"", ""messages"": [{""role"":""system"", ""content"":""You are a Word assistant""}, {""role"":""user"", ""content"":""" & inputText & """}], ""stream"": false}"word">Set Http = CreateObject("MSXML2.XMLHTTP")word">With Http.word">Open "POST", API, word">False.setRequestHeader "Content-Type", "application/json".setRequestHeader "Authorization", "Bearer " & api_key.send SendTxtstatus_code = .Statusresponse = .responseTextword">End word">With' 弹出窗口显示 API 响应（调试用）' MsgBox "API Response: " & response, vbInformation, "Debug Info"word">If status_code = 200 word">ThenCallDeepSeekAPI = responseword">ElseCallDeepSeekAPI = "Error: " & status_code & " - " & responseword">End word">Ifword">Set Http = word">Nothing
word">End word">Functionword">Sub DeepSeekV3()word">Dim api_key word">As word">Stringword">Dim inputText word">As word">Stringword">Dim response word">As word">Stringword">Dim regex word">As word">Objectword">Dim matches word">As word">Objectword">Dim originalSelection word">As word">Objectapi_key = "替换为你的api key"word">If api_key = "" word">ThenMsgBox "Please enter the API key."word">Exit word">Subword">ElseIf Selection.word">Type <> wdSelectionNormal word">ThenMsgBox "Please select text."word">Exit word">Subword">End word">If' 保存原始选中的文本word">Set originalSelection = Selection.Range.DuplicateinputText = Replace(Replace(Replace(Replace(Replace(Selection.text, "\", "\\"), vbCrLf, ""), vbCr, ""), vbLf, ""), Chr(34), "\""")response = CallDeepSeekAPI(api_key, inputText)word">If Left(response, 5) <> "Error" word">Thenword">Set regex = CreateObject("VBScript.RegExp")word">With regex.word">Global = word">True.MultiLine = word">True.IgnoreCase = word">False.Pattern = """content"":""(.*?)"""word">End word">Withword">Set matches = regex.Execute(response)word">If matches.Count > 0 word">Thenresponse = matches(0).SubMatches(0)response = Replace(Replace(response, """", Chr(34)), """", Chr(34))' 取消选中原始文本Selection.Collapse Direction:=wdCollapseEnd' 将内容插入到选中文字的下一行Selection.TypeParagraph ' 插入新行Selection.TypeText text:=response' 将光标移回原来选中文本的末尾originalSelection.word">Selectword">ElseMsgBox "Failed to parse API response.", vbExclamationword">End word">Ifword">ElseMsgBox response, vbCriticalword">End word">If
word">End word">Sub

在使用火山方舟时API更改为： API = “https://ark.cn-beijing.volces.com/api/v3/chat/completions”
并将相应密匙进行更改即可

4 文件-选项-自定义功能区-选中开发工具-新建组（命名为deepseek）
在这里插入图片描述
5 中间框中依次选中“宏”-deepseek模型-（选中刚创建的deepseek组）添加
6 文件-另存为带宏的模板-放入C:\Users<YourUsername>\AppData\Roaming\Microsoft\Word\STARTUP中，完成

7上述代码为v3模型，r1模型代码如下：

word">Function CallDeepSeekAPI(api_key word">As word">String, inputText word">As word">String) word">As word">Stringword">Dim API word">As word">Stringword">Dim SendTxt word">As word">Stringword">Dim Http word">As word">Objectword">Dim status_code word">As word">Integerword">Dim response word">As word">StringAPI = "https://api.siliconflow.cn/v1/chat/completions"SendTxt = "{""model"": ""deepseek-ai/DeepSeek-R1"", ""messages"": [{""role"":""system"", ""content"":""You are a Word assistant""}, {""role"":""user"", ""content"":""" & inputText & """}], ""stream"": false}"word">Set Http = CreateObject("MSXML2.XMLHTTP")word">With Http.word">Open "POST", API, word">False.setRequestHeader "Content-Type", "application/json".setRequestHeader "Authorization", "Bearer " & api_key.send SendTxtstatus_code = .Statusresponse = .responseTextword">End word">With' 弹出窗口显示 API 响应（调试用）' MsgBox "API Response: " & response, vbInformation, "Debug Info"word">If status_code = 200 word">ThenCallDeepSeekAPI = responseword">ElseCallDeepSeekAPI = "Error: " & status_code & " - " & responseword">End word">Ifword">Set Http = word">Nothing
word">End word">Functionword">Sub DeepSeekR1()word">Dim api_key word">As word">Stringword">Dim inputText word">As word">Stringword">Dim response word">As word">Stringword">Dim regex word">As word">Objectword">Dim matches word">As word">Objectword">Dim originalSelection word">As word">Objectapi_key = "替换为你的api key"word">If api_key = "" word">ThenMsgBox "Please enter the API key."word">Exit word">Subword">ElseIf Selection.word">Type <> wdSelectionNormal word">ThenMsgBox "Please select text."word">Exit word">Subword">End word">If' 保存原始选中的文本word">Set originalSelection = Selection.Range.DuplicateinputText = Replace(Replace(Replace(Replace(Replace(Selection.text, "\", "\\"), vbCrLf, ""), vbCr, ""), vbLf, ""), Chr(34), "\""")response = CallDeepSeekAPI(api_key, inputText)word">If Left(response, 5) <> "Error" word">Thenword">Set regex = CreateObject("VBScript.RegExp")word">With regex.word">Global = word">True.MultiLine = word">True.IgnoreCase = word">False.Pattern = """content"":""(.*?)"""word">End word">Withword">Set matches = regex.Execute(response)word">If matches.Count > 0 word">Thenresponse = matches(0).SubMatches(0)response = Replace(Replace(response, """", Chr(34)), """", Chr(34))' 取消选中原始文本Selection.Collapse Direction:=wdCollapseEnd' 将内容插入到选中文字的下一行Selection.TypeParagraph ' 插入新行Selection.TypeText text:=response' 将光标移回原来选中文本的末尾originalSelection.word">Selectword">ElseMsgBox "Failed to parse API response.", vbExclamationword">End word">Ifword">ElseMsgBox response, vbCriticalword">End word">If
word">End word">Sub