ReaderMX.
程序员老鬼

手把手教程！DeepSeek接入Word，效率起飞!

程老鬼约 5 分钟

今天我们来聊聊一个超级实用的技能——如何在 Word 中接入 DeepSeek！你没听错，就是 DeepSeek，它可以帮助你在文档中进行智能操作，超有用！而且别担心，步骤不多，跟着我一步步做，你也能搞定。

Image

好啦，话不多说，咱们开始吧！

第一步：获取 API Key

在接入 DeepSeek 前，咱得先搞个“通行证”——API Key。没错，它就是 DeepSeek 让你进入系统的钥匙。

不过，有个小问题。因为 DeepSeek 的官网服务器最近有点忙（别问我怎么知道的），它们已经暂停了API充值服务。

你可以去 腾讯云：https://curl.qcloud.com/T3M5yBHp 申请 API Key。目前能正常使用，推荐！

💡 注意：不管用哪个 API Key，对应平台账户里一定要有余额

拿到 API Key 后，一定要妥善保存。最好放在记事本里，千万别丢了——这个 Key 后面可大有用处！

第二步：配置 Word

拿到 API Key 之后，接下来就是进入 Word 配置 DeepSeek，让它发挥作用。别着急，咱慢慢来，一步步操作。操作不复杂，关键是认真。

1. 启用开发者工具

首先，打开 Word，点击“文件” -> “选项” -> “自定义功能区”，然后在右侧勾选“开发者工具”选项卡，点击确定。你会发现，Word 的菜单栏上多了一个“开发者工具”的选项卡。

2. 调整信任设置

这个步骤可能会有点麻烦，但是只要配置好，以后就能高枕无忧了。

接着，点击“文件” -> “选项” -> “信任中心” -> “信任中心设置”，然后选择“启用所有宏”和“信任对VBA工程对象模型的访问”，点击确定。

Image

这两项配置让你能够安全地运行代码和宏，别跳过了！

3. 添加脚本代码

这一步最关键。点击菜单栏里的“开发者工具”，再点击左上角的“Visual Basic”按钮。此时，你会看到一个编辑器窗口。

Image

在这个窗口里，点击“插入” -> “模块”，它会弹出一个新的代码窗口。这里就要粘贴我给你准备好的脚本代码啦！

Image

Deepseek-R1代码(官方apikey）如下（记得替换成你自己的 API Key）：

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-reasoner"", ""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 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_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 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, "\n\n", 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, "\n\n", 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 IfEnd Sub

完了之后，关闭代码窗口，回到 Word 主界面。接下来，我们要设置一个自定义按钮，来让 DeepSeek 像你想的那样工作。

4. 添加自定义按钮

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

Image

  • 然后，选中新组，右键重命名为“DeepSeek”，并为它挑选个喜欢的图标。

Image

  • 最后，左侧选择“宏”，找到刚才的“DeepSeekV3”宏，点击“添加”到右侧的 DeepSeek 组里。

Image

接着，再右键点击新加的按钮，重命名它为“开始对话”，并为它挑选一个图标，方便识别。

第三步：测试 DeepSeek 功能

一切配置好之后，来点实际操作，看看 DeepSeek 到底能不能在 Word 中跑起来。

  1. 打开一个 Word 文档，随便输入一段文字，比如：“将上面的文本翻译成英文”。
  2. 选中这段文字，点击菜单栏的“开始对话”按钮。
  3. 如果一切顺利，DeepSeek 会自动生成翻译并插入到选中的内容下方。是不是很酷？

Image

Image

小贴士

  1. 不要省略步骤：每一步都至关重要，特别是信任设置和宏的启用。如果有任何一步跳过了，可能会导致功能无法正常使用。
  2. API Key 保存好：这是你和 DeepSeek 之间的“通行证”，丢了可不好。
  3. 测试时小心：尽量测试一些简单的内容，确保接入顺利，等熟悉之后再尝试更复杂的功能。

怎么样？是不是觉得整个过程其实没有想象中的那么复杂呢？只要按照步骤来，DeepSeek 就能轻松嵌入到 Word 中，提升你的工作效率，特别是在需要快速生成内容或者做些简单翻译时，简直是神器！

这就是我自己尝试接入 DeepSeek 到 Word 的全过程，既实用又简单。你试试，绝对能玩得转！

最后，我为大家打造了一份deepseek的入门到精通教程，完全免费：https://www.songshuhezi.com/deepseek

同时，也欢迎加入下方的交流群，一起研究deepseek的最新玩法

图片

KEEP THE THREAD GOING

更多来源文章