千人收藏word接入deepseek的代码

之前视频指导给大家，代码发在评论区大家老是看不到，现整成文章，大家自取吧。

https://m.toutiao.com/is/Ty4wiLpM2t0/ 【深夜观察室】1分钟学会DeepSeek接入word - 今日头条

文本代码

' 需要先引用库：工具 > 引用 > Microsoft XML, v6.0

' 和 Microsoft Scripting Runtime（处理JSON）

Dim API_KEY As String

Const API_URL = "https://api.deepseek.com/v1/chat/completions"

Sub Init()

API_KEY = "your_api_key_here" ' 替换为你的实际密钥

End Sub

Function DeepSeekQuery(prompt As String) As String

Dim oHttp As New MSXML2.XMLHTTP60

Dim jsonBody As String

Dim response As String

jsonBody = "{""model"":""deepseek-chat"",""messages"":[{""role"":""user"",""content"":""" & prompt & """}]}"

With oHttp

.Open "POST", API_URL, False

.setRequestHeader "Content-Type", "application/json"

.setRequestHeader "Authorization", "Bearer " & API_KEY

.send jsonBody

If .Status = 200 Then

response = .responseText

DeepSeekQuery = ParseJSON(response)

Else

DeepSeekQuery = "Error: " & .Status & " - " & .statusText

End If

End With

End Function

Function ParseJSON(json As String) As String

' 简单JSON解析（建议使用JSONConverter库更专业）

Dim startPos As Integer

Dim endPos As Integer

startPos = InStr(json, """content"":""") + 10

endPos = InStr(startPos, json, """,""")

ParseJSON = Mid(json, startPos, endPos - startPos)

ParseJSON = Replace(ParseJSON, "\n", vbCrLf) ' 转换换行符

End Function