办公新利器：DeepSeek+Word，让你的工作更高效

按照文本教程完成操作后，Word的选项卡中将会出现DeepSeek的生成图标，选中文本并点击生成，即可实现模型回复！例如，我们想要将一段中文文本翻译成英文：

API key的获取教程可以参照我之前的一篇文章，在获取API key之后，回到这里。

PyCharm接入DeepSeek实现AI编程

Function CallDeepSeekAPI(api_key As String, inputText As String) As String    Dim API As String    Dim SendTxt As String    Dim Http As Object    Dim status_code As Integer    Dim response As String
    API = "https://api.deepseek.com/chat/completions"    SendTxt = "{""model"": ""deepseek-chat"", ""messages"": [{""role"":""system"", ""content"":""You are a Word assistant""}, {""role"":""user"", ""content"":""" & inputText & """}], ""stream"": false}"
    Set Http = CreateObject("MSXML2.XMLHTTP")    With Http        .Open "POST", API, False        .setRequestHeader "Content-Type", "application/json"        .setRequestHeader "Authorization", "Bearer " & api_key        .send SendTxt        status_code = .Status        response = .responseText    End With
    ' 弹出窗口显示 API 响应（调试用）
    ' MsgBox "API Response: " & response, vbInformation, "Debug Info"
    If status_code = 200 Then        CallDeepSeekAPI = response    Else        CallDeepSeekAPI = "Error: " & status_code & " - " & response    End If
    Set Http = NothingEnd Function
Sub DeepSeekV3()    Dim api_key As String    Dim inputText As String    Dim response As String    Dim regex As Object    Dim matches As Object    Dim originalSelection As Object
    api_key = "替换为你的api key"    If api_key = "" Then        MsgBox "Please enter the API key."        Exit Sub    ElseIf Selection.Type <> wdSelectionNormal Then        MsgBox "Please select text."        Exit Sub    End If
    ' 保存原始选中的文本    Set originalSelection = Selection.Range.Duplicate
    inputText = Replace(Replace(Replace(Replace(Replace(Selection.text, "\", "\\"), vbCrLf, ""), vbCr, ""), vbLf, ""), Chr(34), "\""")    response = CallDeepSeekAPI(api_key, inputText)
    If Left(response, 5) <> "Error" Then        Set regex = CreateObject("VBScript.RegExp")        With regex            .Global = True            .MultiLine = True            .IgnoreCase = False            .Pattern = """content"":""(.*?)"""        End With        Set matches = regex.Execute(response)        If matches.Count > 0 Then            response = matches(0).SubMatches(0)            response = Replace(Replace(response, """", Chr(34)), """", Chr(34))
            ' 取消选中原始文本            Selection.Collapse Direction:=wdCollapseEnd
            ' 将内容插入到选中文字的下一行            Selection.TypeParagraph ' 插入新行            Selection.TypeText text:=response
            ' 将光标移回原来选中文本的末尾            originalSelection.Select        Else            MsgBox "Failed to parse API response.", vbExclamation        End If    Else        MsgBox response, vbCritical    End IfEnd Sub

完成后，可直接关闭弹窗。

点击  文件 -> 选项 -> 自定义功能区，右键开发工具，点击添加新组。

随后，选中添加的命令，右键点击重命名，选择开始符号作为图标，并重命名为“生成”。

最后点击确定。

至此，Word成功接入DeepSeek大模型。

选中文字，点击生成，就可以直接将选中的文本发送给大模型，大模型将会按照你选中的文本，做出响应。