Word 接入 DeepSeek R1 实测：选中文字，AI 直接帮你写

方法来源：抖音"3分钟Word接入DeepSeek R1"视频的完整复现。熟练后 3 分钟搞定，第一次操作约 10-15 分钟。亲测可用的完整代码在步骤三，直接复制替换即可。

先说明现状：视频里说"完全免费"——2026 年 DeepSeek 官方 API 已经按量收费（很便宜，充 10 块钱能用很久），想真白嫖可以走硅基流动（注册送额度，有免费模型），本文两种方式都给。

实测前准备

• 电脑装好 Microsoft Word（2016 以上 / Office 365 都行，WPS 见文末）
• 一个 DeepSeek API Key（或硅基流动 Key）
• 全程约 10-15 分钟，操作都在 Word 里完成，不写一行代码（代码是现成的）
• 安全提醒：本方法需要开启 Word 宏功能，有一定风险。请只在你自己电脑上、只粘贴文末这份代码，API Key 不要发给任何人。

步骤一：拿到 API Key（二选一）

方式 A：DeepSeek 官方（稳定，按量付费）

1. 打开 platform.deepseek.com，注册并登录
2. 左侧菜单点「API Keys」→「创建 API key」
3. 输入名称 → 创建 → 立刻复制保存（只显示一次，以 sk- 开头）
4. 充一点余额（最低充值额度不大，按 token 计费，日常写文档消耗极低）

方式 B：硅基流动 SiliconFlow（免费白嫖，原视频走的路子）

1. 打开 siliconflow.cn，手机号注册
2. 控制台左侧「API 密钥」→「新建 API 密钥」→ 复制保存
3. 记下两样东西（后面要填进代码）：接口地址：https://api.siliconflow.cn/v1/chat/completions模型名：模型广场选 DeepSeek 模型，复制它的模型名（如 deepseek-ai/DeepSeek-R1）

步骤二：Word 开启「开发工具」+ 启用宏

这一步不做好，后面步骤三的入口都看不到。

1. 打开 Word，点左上角「文件」→「选项」→「自定义功能区」
2. 右侧勾选「开发工具」→ 确定（顶部菜单栏会多出一个「开发工具」选项卡）
3. 再点「文件」→「选项」→「信任中心」→「信任中心设置」
4. 「宏设置」里勾选「启用所有宏」，再勾选「信任对 VBA 工程对象模型的访问」→ 确定 → 确定
5. 
6. 踩坑提示：只启用宏、不勾"信任 VBA 工程对象模型"，点按钮时会报错"系统找不到指定的文件"或直接没反应，这是最常见的问题。

步骤三：粘贴 VBA 代码（核心步骤）

1. 点顶部「开发工具」→「Visual Basic」（或按 Alt+F11）
2. 左侧工程窗口里，右键「Normal」→「插入」→「模块」，名字改成 deepseek
3. 把下面代码整段复制进右侧编辑区（下面这段基于公开教程的通用实现整理，已验证可用；原视频中的代码也是同一套逻辑）

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 ' ===== 接口地址（二选一）===== ' DeepSeek 官方： API = "https://api.deepseek.com/chat/completions" ' 硅基流动白嫖（取消下行注释、注释掉上面那行）： ' API = "https://api.siliconflow.cn/v1/chat/completions" SendTxt = "{""model"": ""deepseek-reasoner"", ""messages"": [{""role"":""system"", ""content"":""你是Word文案助手""}, {""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 If status_code = 200 Then CallDeepSeekAPI = response Else CallDeepSeekAPI = "Error: " & status_code & " - " & response End If Set Http = NothingEnd FunctionSub DeepSeekR() 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 Key" 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 = Selection.Text inputText = Replace(inputText, "\", "\\") inputText = Replace(inputText, vbCrLf, " ") inputText = Replace(inputText, vbCr, " ") inputText = Replace(inputText, vbLf, " ") inputText = Replace(inputText, """", "\""") ' 发送请求 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(response, "\n", vbCrLf) response = Replace(response, "\\", "\") response = Replace(response, "", "") response = Replace(response, "#", "") ' 在选中文字下方插入生成结果 Selection.Collapse Direction:=wdCollapseEnd Selection.TypeParagraph Selection.TypeText Text:=response originalSelection.Select Else MsgBox "解析响应失败。", vbExclamation End If Else MsgBox response, vbCritical End IfEnd Sub

步骤四：把「生成」按钮加到工具栏

1. 「文件」→「选项」→「自定义功能区」
2. 右侧列表右键「开发工具」→「添加新组」，重命名为「AI」
3. 左侧下拉选「宏」，找到 DeepSeekR → 添加到右侧「AI」组下
4. 右键刚加进去的命令 → 重命名 → 显示名称改成「生成」，选个喜欢的图标
5. 确定。回到文档，顶部「开发工具」里就能看到「生成」按钮了

步骤五：实测使用（选中文字 → 点生成）

用法就一句话：在 Word 里选中一段文字，点「生成」，AI 的回答会出现在选中文字下方。

四个高频场景实测效果：

场景怎么用写作扩写列出要点（如"1. 本周完成3个需求 2. 修复2个bug 3. 下周计划…"），全选，点生成 → 变完整周报润色改写选中写得乱的一段话，点生成 → 输出通顺版本翻译选中中文，点生成 → 输出英文（默认让它做文案助手，也可以先写"翻译成英文："再选中）续写选中写了一半的内容，点生成 → AI 顺着往下写实测提示：想在生成时指定任务（润色/翻译/扩写），直接在选中文字前面加上指令词，比如把"润色：原稿内容"整段选中再点生成，效果最好。

配套 Prompt 库（重要）

上面代码里 system 提示词是默认的"你是Word文案助手"。改成下面任意一个，就是对应的专用功能（改代码第 19 行 ""你是Word文案助手"" 引号里的内容）：

① 写作助手（默认）

你是Word文案助手，根据用户选中的要点，扩写成通顺、专业、完整的正式文稿，语气自然，不要加多余解释。② 中文润色

你是中文润色专家。把用户选中的文字改写得更精炼、专业、流畅，保持原意不变，直接输出润色后的全文，不要解释。③ 中英翻译

你是专业翻译。把用户选中的内容翻译成地道的商务英语（如果原文是英文则翻译成中文），直接输出译文，不要解释。④ 内容续写

你是内容续写助手。顺着用户选中文字的风格和内容继续往下写，保持语气一致，自然收尾。⑤ 排版整理

你是文档排版助手。把用户选中的杂乱内容整理成结构清晰、带小标题和要点的规范文档，去掉冗余重复。⑥ 公文/周报专用

你是职场公文助手。把用户选中的工作要点整理成正式周报/汇报格式：本周完成、存在问题、下周计划，语言精炼专业。换一次 system 提示词，Word 里的"生成"按钮就变成一个专用功能。想要多个功能并存，就复制几份模块（分别命名 deepseek1、deepseek2…）各放一个提示词，各加一个按钮。

结语

这套方法的价值不在代码——代码是现成的，价值在于让 AI 长在了你天天用的文档里：不用来回切换网页/App，选中即用。熟练之后，写周报、改方案、翻译、润色都是几秒钟的事。

实测结论：值得装。装一次，长期受用。

原作者：在下小曾 o（抖音号：AIXZ60）

原作品链接：https://www.douyin.com/user/MS4wLjABAAAA_MwbLwyLnMARlAErwvPwmlhVlvG_NOgc80_3TeHIj-E?from_tab_name=main&modal_id=7470137608467729703