DeepSeek如何接入Word？接入步骤详解

DeepSeek 接入 Word 后，可以实现翻译、内容扩写以及检查错别字等操作。用户可通过启用并创建宏命令等步骤进行接入。下面，小编为大家整理了详细的操作教程，感兴趣的小伙伴千万不要错过。

DeepSeek 怎么接入 Word

1. 首先需要打开 Word 文档，然后依次点击【文件】、【更多】、【Word 选项】、【自定义功能区】，勾选【开发工具】。
   

   

   
   
2. 完成后需要按照下方步骤进行信任中心界面，找到宏设置后点击【启用所有宏】。
   

   

   
   
3. 依次点击【开发工具】、【Visual Basic】按钮。
   

   

   
   
4. 选择菜单后点击【插入】、【模块】，然后将图中红框处命名为【DeepSeek】。
   

   

   
   
5. 之后将下方代码粘贴至 DeepSeek 模块中。
   

   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服务地址
       API = "https://apiemp.baystoneai.com/cognihub/service/v1/chat/completions"
       ' API模型名称
       SendTxt = "{""model"": ""deepseek-r1-distill-qwen"", ""messages"": [{""role"":""system"", ""content"":""You are a helpful 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 = Nothing
   End Function
   
   Sub DeepSeekR1()
       Dim api_key As String
       Dim inputText As String
       Dim response As String
       Dim regex As Object
       Dim reasoningRegex As Object
       Dim contentRegex As Object
       Dim matches As Object
       Dim reasoningMatches As Object
       Dim originalSelection As Object
       Dim reasoningContent As String
       Dim finalContent As String
       ' API密钥：替换为你的api key
       api_key = "YOUR_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 reasoningRegex = CreateObject("VBScript.RegExp")
           With reasoningRegex
               .Global = True
               .MultiLine = True
               .IgnoreCase = False
               .Pattern = """reasoning_content"":""(.*?)"""
           End With
           Set contentRegex = CreateObject("VBScript.RegExp")
           With contentRegex
               .Global = True
               .MultiLine = True
               .IgnoreCase = False
               .Pattern = """content"":""(.*?)"""
           End With
           ' 提取推理内容
           Set reasoningMatches = reasoningRegex.Execute(response)
           If reasoningMatches.Count > 0 Then
               reasoningContent = reasoningMatches(0).SubMatches(0)
               reasoningContent = Replace(reasoningContent, "nn", vbNewLine)
               reasoningContent = Replace(reasoningContent, "n", vbNewLine)
               reasoningContent = Replace(Replace(reasoningContent, """", Chr(34)), """", Chr(34))
           End If
           ' 提取最终回答
           Set matches = contentRegex.Execute(response)
           If matches.Count > 0 Then
               finalContent = matches(0).SubMatches(0)
               finalContent = Replace(finalContent, "nn", vbNewLine)
               finalContent = Replace(finalContent, "n", vbNewLine)
               finalContent = Replace(Replace(finalContent, """", Chr(34)), """", Chr(34))
               ' 取消选中原始文本
               Selection.Collapse Direction:=wdCollapseEnd
               ' 插入推理过程（如果存在）
               If Len(reasoningContent) > 0 Then
                   Selection.TypeParagraph
                   Selection.TypeText "推理过程："
                   Selection.TypeParagraph
                   Selection.TypeText reasoningContent
                   Selection.TypeParagraph
                   Selection.TypeText "最终回答："
                   Selection.TypeParagraph
               End If
               ' 插入最终回答
               Selection.TypeText finalContent
               ' 将光标移回原来选中文本的末尾
               originalSelection.Select
           Else
               MsgBox "Failed to parse API response.", vbExclamation
           End If
       Else
           MsgBox response, vbCritical
       End If
   End Sub
   

   
   
6. 保存后将这个弹框关闭，然后依次点击【文件】、【更多】、【选项】、【自定义功能区】，然后勾选宏。
   

   

   
   
7. 接着根据图中顺序进行操作。
   

   

   
   

   

   
   
8. 点击下方按钮后，点击继续根据图中提示进行操作。
   

   

   
   

   

   
   
9. 就能在开发工具界面看到下方按钮。
   

   

   
   
10. 最后大家只需在 Word 文档中输入一段文字，然后点击新建的按钮，就能进行内容扩写、翻译、检查错别字等操作了。