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

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

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

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

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

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

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

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

因为这里需要使用到 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 = 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 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 IfEnd Sub