word$deepseep

news2025/2/23 2:17:27

1、进入官网地址。

DeepSeek

2、进入DeepSeek的API文档

3、点击DeepSeek开放平台左侧的“API Keys”, 再点击“创建API Key”

4、在弹出的对话框中，输入自己的API Key名称，点击创建。

sk-0385cad5e19346a0a4ac8b7f0d7be428

5、打开Word文档。

6、Word找到文件。

7、文件-选项

8、在“word选项”对话框中，点击选择“自定义功能区”，然后在右侧选中“开发工具”，使“开发工具”前面的方框中出现“”，word的菜单栏中就会出现“开发工具”项目。

9、打开开发工具。

10、信任中心-信任中心设置。

11、信任中心-宏的设置-全部启用。

12、在“信任中心设置”对话框中，点击“宏设置”，在左侧选择“启用所有宏……”，然后选中“信任对VBA工程对象模型的访问”。

13、在word菜单栏，点击“开发工具”项，选择“Visual Basic”。

14、进入Visual Basic编辑界面，如下图，选择“Normal”下的“模块”。

Option Explicit


Sub DeepSeekV3()


Const api_Url As String = "https://api.deepseek.com/chat/completions"


Const api_Key As String = "替换为自己申请的API Key"


Dim inputText As String


Dim response As String


Dim originalSelection As Range


On Error GoTo ErrorHandler


' 检查API密钥内容


If api_Key = "" Then


MsgBox "请输入您的API Key。", vbExclamation


Exit Sub


End If


' 检查是否选中文本


If Selection.Type <> wdSelectionNormal Then


MsgBox "请选中要分析的文本。", vbExclamation


Exit Sub


End If


' 保存原始选中的文本


Set originalSelection = Selection.Range.Duplicate


' 处理选中的文本


inputText = ReplaceSpecialCharacters(Selection.text)


' 调用Deepseek API


response = CallDeepseekAPI(api_Key, api_Url, inputText)


' 处理API响应


If IsJsonResponse(response) Then


response = FormatJson(response)


InsertResponseToDocument response


MsgBox "API分析内容已插入文档！", vbInformation


Else


MsgBox response, vbCritical


End If


Exit Sub


ErrorHandler:


MsgBox "发生错误：" & Err.Description, vbCritical


End Sub


' 将API响应插入文档


Sub InsertResponseToDocument(response As String)


With ActiveDocument.Content


.InsertAfter vbCrLf & "分析内容：" & vbCrLf & response


End With


End Sub


' 调用DeepseekAPI函数


Function CallDeepseekAPI(api_Key As String, api_Url As String, inputText As String) As String


Dim http As Object


Dim requestBody As String


Dim response As String


Dim status_Code As Integer


On Error GoTo ErrorHandler


' 构造请求体


requestBody = BuildRequestBody(inputText)


' 创建HTTP对象


Set http = CreateObject("MSXML2.XMLHTTP")


' 发送请求


With http


.Open "POST", api_Url, False


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


.setRequestHeader "Authorization", "Bearer " & api_Key


.send requestBody


status_Code = .Status


response = .responseText


End With


' 检查HTTP状态码


If status_Code = 200 Then


CallDeepseekAPI = response


Else


CallDeepseekAPI = "API 请求失败，状态码：" & status_Code & "-" & response


End If


ExitFunction:


Set http = Nothing


Exit Function


ErrorHandler:


CallDeepseekAPI = "调用API时发生错误：" & Err.Description


Resume ExitFunction


End Function


' 构造API请求体


Function BuildRequestBody(inputText As String) As String


BuildRequestBody = "{""model"": ""deepseek-chat"", ""messages"": [{""role"":""system"", ""content"":""You are a Word assistant""}, {""role"":""user"", ""content"":""" & inputText & """}], ""stream"": false}"


End Function


' 检查是否为JSON响应


Function IsJsonResponse(response As String) As Boolean


IsJsonResponse = (Left(response, 1) = "{")


End Function


' 辅助函数：格式化 JSON 响应


Function FormatJson(json As String) As String


Dim i As Long


Dim indentLevel As Long


Dim result As String


Dim char As String


indentLevel = 0


result = ""


For i = 1 To Len(json)


char = Mid(json, i, 1)


Select Case char


Case "{", "["


result = result & char & vbCrLf & Space((indentLevel + 1) * 4)


indentLevel = indentLevel + 1


Case "}", "]"


indentLevel = indentLevel - 1


result = result & vbCrLf & Space(indentLevel * 4) & char


Case ","


result = result & char & vbCrLf & Space(indentLevel * 4)


Case ":"


result = result & char & " "


Case Else


result = result & char


End Select


Next i


FormatJson = result


End Function


' 辅助函数：替换特殊字符


Function ReplaceSpecialCharacters(text As String) As String


ReplaceSpecialCharacters = Replace(Replace(Replace(Replace(Replace(text, "\", "\\"), vbCrLf, ""), vbCr, ""), vbLf, ""), Chr(34), "\""")


End Function

15、模块代码编辑完成后，进入“word选项”对话框，选择“开发工具”，在其上右击，选择“添加新组”。