打工人办公利器：DeepSeek+Word教程，让你的工作更高效！

DeepSeek + Word ，让你的工作更高效！在 Word 界面里，选中文字点击按钮，就能让 DeepSeek 为你快速检索信息、精准翻译文本、智能生成内容等等。这样就不需要在多个软件之间频繁切换，告别低效的信息处理方式，让工作效率大幅提升！　

Python老猿

4605人浏览 · 2025-02-10 10:25:49

Python老猿 · 2025-02-10 10:25:49 发布

效果演示

按照文本教程完成操作后，Word 的选项卡中将会出现 DeepSeek 的生成图标，选中文本并点击生成，即可实现模型回复！例如，我们想要根据哪吒 2 番外写一段文稿：

接下来我将详细介绍，如何实现 DeepSeek 与 Word 和 WPS 的结合。

获取 API Key

进入 deepseeek 官网链接：https://platform.deepseek.com/sign_in

这样，我们的账号就已经注册好了。接下来我们将使用 deepseek R1 模型。昨天 API 开放平台又可以进入了，免费赠送了 10 元额度。

接下来让我们获取 API 密钥，为 word 使用 AI 能力做准备。

我在这里已经创建了一个 API 密钥了，这步还是非常简单的。创建好后记得复制并保存好自己的密钥，这个作为 API 访问的凭证。

word配置DeepSeek R1

因为这里需要使用到 word 文档中的开发者工具来完成 API 调用，因此我们需要先让开发工具功能显示出来。

新建一个 Word 文档，点击文件 -> 选项 -> 自定义功能区，勾选“开发者工具”。

再点击信任中心 -> 信任中心设置，选择“启用所有宏”与“信任对VBA…”。

完成后点击“确定”保存，回到上一菜单后同样点击“确定”保存。这样，“开发工具”就出现在顶部菜单了。

接下来，我们点击开发者工具，再点击 Visual Basic，将会弹出一个窗口。

打开后进入的页面是这样。如果中间没有编辑块，则可以点击“插入”，再点击“模块”。

把以下代码复制进编辑区，再把复制好的密钥放到 api_key = “请输入自己的API密钥” ，替换文本内容。

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}"`    `' 不想用R1模型，想用V3模型，就把上面的model的deepseek-reasoner换成deepseek-chat``   `    `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 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 Range``   `    `' API Key`    `api_key = "请输入自己的API密钥"`    `If api_key = "" Then`        `MsgBox "Please enter the API key.", vbExclamation`        `Exit Sub`    `End If``   `    `' 检查是否有选中文本`    `If Selection.Type <> wdSelectionNormal Then`        `MsgBox "Please select text.", vbExclamation`        `Exit Sub`    `End If``   `    `' 保存原始选区`    `Set originalSelection = Selection.Range.Duplicate``   `    `' 处理特殊字符`    `inputText = Selection.Text`    `inputText = Replace(inputText, "\", "\\")`    `inputText = Replace(inputText, vbCrLf, " ")`    `inputText = Replace(inputText, vbCr, " ")`    `inputText = Replace(inputText, vbLf, " ")`    `inputText = Replace(inputText, """", "\""") ' 转义双引号``   `    `' 发送 API 请求`    `response = CallDeepSeekAPI(api_key, inputText)``   `    `' 处理 API 响应`    `If Left(response, 5) <> "Error" Then`        `' 解析 JSON`        `Set regex = CreateObject("VBScript.RegExp")`        `With regex`            `.Global = True`            `.MultiLine = True`            `.IgnoreCase = False`            `.Pattern = """content"":""(.*?)""" ' 匹配 JSON 的 "content" 字段`        `End With`        `Set matches = regex.Execute(response)``   `        `If matches.Count > 0 Then`            `' 提取 API 响应的文本内容`            `response = matches(0).SubMatches(0)``   `            `' 处理转义字符`            `response = Replace(response, "\n", vbCrLf)`            `response = Replace(response, "\\", "\") ' 处理 JSON 里的反斜杠`            ``response = Replace(response, "&", "") ' 过滤 `&`，防止意外符号`````' 让光标移动到文档末尾，防止覆盖已有内容`            `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 If``End Sub

完成修改后，关闭弹窗即可。

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

下拉列表找到“宏”，然后把之前创建的宏模块添加到开发工具里：

如果出现下面这样，说明导入成功了。

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

最后点击确定。

我们发现，工具栏中出现了自己添加的工具。

至此，Word 成功接入 DeepSeek R1。

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

WPS配置DeepSeek R1

没有 Word ，日常使用 WPS 的同学可以看以下增补内容：

点击“工具”，找到“开发工具”菜单，点击它。

进入二级菜单后，点击“切换到 VB 环境”，这时候会有提示安装一个插件，点击等待插件安装完成。安装完成后记得要重启 WPS。

点击“WPS”宏编辑器，剩下的步骤就和 Word 完全一样了。

目前，官方的 API 现在还不是很稳定，这边我也用硅基流动的 API 试了一下，教程贴在下面，可自行取用。

https://datawhaler.feishu.cn/docx/G1ftdRcXkoIJB2xSW3Lc2Jcpndb?from=from_copylink

最后，恭喜你完整地学完了教程，给你点赞 👍

如何系统的去学习大模型LLM ？

大模型时代，火爆出圈的LLM大模型让程序员们开始重新评估自己的本领。 “AI会取代那些行业？”“谁的饭碗又将不保了？”等问题热议不断。

事实上，抢你饭碗的不是AI，而是会利用AI的人。

继科大讯飞、阿里、华为等巨头公司发布AI产品后，很多中小企业也陆续进场！超高年薪，挖掘AI大模型人才！ 如今大厂老板们，也更倾向于会AI的人，普通程序员，还有应对的机会吗？

与其焦虑……

不如成为「掌握AI工具的技术人」，毕竟AI时代，谁先尝试，谁就能占得先机！

但是LLM相关的内容很多，现在网上的老课程老教材关于LLM又太少。所以现在小白入门就只能靠自学，学习成本和门槛很高。

针对所有自学遇到困难的同学们，我帮大家系统梳理大模型学习脉络，将这份 LLM大模型资料 分享出来：包括LLM大模型书籍、640套大模型行业报告、LLM大模型学习视频、LLM大模型学习路线、开源大模型学习教程等, 😝有需要的小伙伴，可以 扫描下方二维码领取🆓↓↓↓

👉CSDN大礼包🎁：全网最全《LLM大模型入门+进阶学习资源包》免费分享（安全链接，放心点击）👈

一、LLM大模型经典书籍

AI大模型已经成为了当今科技领域的一大热点，那以下这些大模型书籍就是非常不错的学习资源。

在这里插入图片描述

二、640套LLM大模型报告合集

这套包含640份报告的合集，涵盖了大模型的理论研究、技术实现、行业应用等多个方面。无论您是科研人员、工程师，还是对AI大模型感兴趣的爱好者，这套报告合集都将为您提供宝贵的信息和启示。(几乎涵盖所有行业)

在这里插入图片描述

三、LLM大模型系列视频教程

在这里插入图片描述

四、LLM大模型开源教程（LLaLA/Meta/chatglm/chatgpt）

在这里插入图片描述

LLM大模型学习路线 ↓

阶段1：AI大模型时代的基础理解

目标：了解AI大模型的基本概念、发展历程和核心原理。
内容：
- L1.1 人工智能简述与大模型起源
- L1.2 大模型与通用人工智能
- L1.3 GPT模型的发展历程
- L1.4 模型工程
- L1.4.1 知识大模型
- L1.4.2 生产大模型
- L1.4.3 模型工程方法论
- L1.4.4 模型工程实践
- L1.5 GPT应用案例

阶段2：AI大模型API应用开发工程

目标：掌握AI大模型API的使用和开发，以及相关的编程技能。
内容：
- L2.1 API接口
- L2.1.1 OpenAI API接口
- L2.1.2 Python接口接入
- L2.1.3 BOT工具类框架
- L2.1.4 代码示例
- L2.2 Prompt框架
- L2.3 流水线工程
- L2.4 总结与展望