欢迎大家来到IT世界,在知识的湖畔探索吧!
之前视频指导给大家，代码发在评论区大家老是看不到，现整成文章，大家自取吧。
欢迎大家来到IT世界,在知识的湖畔探索吧!
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
免责声明：本站所有文章内容,图片，视频等均是来源于用户投稿和互联网及文摘转载整编而成，不代表本站观点，不承担相关法律责任。其著作权各归其原作者或其出版社所有。如发现本站有涉嫌抄袭侵权/违法违规的内容,侵犯到您的权益，请在线联系站长,一经查实,本站将立刻删除。 本文来自网络,若有侵权，请联系删除，如若转载，请注明出处：https://itzsg.com/113564.html
