办公神器来袭 | DeepSeek 一键接入 Word,效率飞起!


宝子们,在快节奏的职场中,谁不想拥有一个能让自己工作效率直线飙升的办公神器呢?今天,我就给大家挖到宝啦!它就是 DeepSeek + Word 这对王炸组合,轻松实现 AI 助力办公,让你告别繁琐操作,开启高效办公新大门,话不多说,赶紧跟我一起来看看吧~
Tony's blog image

什么是 DeepSeek + Word ?

DeepSeek 就像一位超级聪明的 AI 助手,而 Word 是我们熟悉的办公文档编辑器。当 DeepSeek 遇上 Word ,强强联合,直接在 Word 界面里,咱们动动鼠标点一点,DeepSeek 就能超快速帮咱检索信息、精准翻译文本,还能智能生成内容,这可太方便啦,妈妈再也不用担心我在不同软件间来回切换啦,办公效率想不高都难!

接入前的准备

1. 获取 API key :

宝子们,这步很关键哦,先参照教程去获取 API key,拿到 “钥匙” 才能开启后续功能呢。博主这里使用的是腾讯的Deepseek API服务(免费使用至2025年2月25日哦,后续可自行购买)

1.1 打开链接https://curl.qcloud.com/GlPIXCIi ->选择产品体验->调用DeepSeek API
Tony's blog image

1.2 根据教程创建API_KEY
博主选择的是”Openai兼容协议接口”, 后续可以切换成其他家API服务。
申请API文档参考https://curl.qcloud.com/N0gdpW0X

1.3 拿到属于自己的崭新的Deepseek API KEY, 记住他,后面要用
Tony's blog image

2. 新建 Word 文档 :

打开 Word ,点击左上角 “文件”,选择 “选项”,接着点击 “自定义功能区”,勾选 “开发者工具”,再点击 “信任中心” - “信任中心设置”,选中 “启用所有宏” 与 “信任对 VBA……”,点击确定,这一步是为了让后续操作能顺利进行哦。
Tony's blog image
Tony's blog image
Tony's blog image

接入步骤详解

1. 插入模块写代码 :

点击 “开发者工具”,再点击 “Visual Basic”,弹出窗口后,点击 “插入” - “模块”,把下面这段代码复制到编辑区,记得把 “替换为你的 API key” 换成咱自己刚拿到的 API key 哦。完成后,可直接关闭弹窗。然后记得保存哦,保存万后,把Visual Basic窗口也关闭了哦!
Tony's blog image
Tony's blog image

  1. Function CallDeepSeekAPI(api_key As String, inputText As String) As String
  2. Dim API As String
  3. Dim SendTxt As String
  4. Dim Http As Object
  5. Dim status_code As Integer
  6. Dim response As String
  7. API = "https://api.lkeap.cloud.tencent.com/v1/chat/completions"
  8. SendTxt = "{""region"": ""ap-guangzhou"", ""model"": ""deepseek-v3"", ""messages"": [{""role"":""system"", ""content"":""You are a Word assistant""}, {""role"":""user"", ""content"":""" & inputText & """}], ""stream"": false}"
  9. Set Http = CreateObject("MSXML2.XMLHTTP")
  10. With Http
  11. .Open "POST", API, False
  12. .setRequestHeader "Content-Type", "application/json"
  13. .setRequestHeader "Authorization", "Bearer " & api_key
  14. .send SendTxt
  15. status_code = .Status
  16. response = .responseText
  17. End With
  18. ' 弹出窗口显示 API 响应(调试用)
  19. ' MsgBox "API Response: " & response, vbInformation, "Debug Info"
  20. If status_code = 200 Then
  21. CallDeepSeekAPI = response
  22. Else
  23. CallDeepSeekAPI = "Error: " & status_code & " - " & response
  24. End If
  25. Set Http = Nothing
  26. End Function
  27. Sub DeepSeekV3()
  28. Dim api_key As String
  29. Dim inputText As String
  30. Dim response As String
  31. Dim regex As Object
  32. Dim matches As Object
  33. Dim originalSelection As Object
  34. api_key = "替换为你的api key"
  35. If api_key = "" Then
  36. MsgBox "请输入腾讯云DeepSeek模型API KEY."
  37. Exit Sub
  38. ElseIf Selection.Type <> wdSelectionNormal Then
  39. MsgBox "请先选择文本再操作."
  40. Exit Sub
  41. End If
  42. ' 保存原始选中的文本范围
  43. Set originalSelection = Selection.Range.Duplicate
  44. inputText = Replace(Replace(Replace(Replace(Replace(Selection.text, "\", "\\\"), vbCrLf, ""), vbCr, ""), vbLf, ""), Chr(34), "\\""")
  45. response = CallDeepSeekAPI(api_key, inputText)
  46. If Left(response, 5) <> "Error" Then
  47. Set regex = CreateObject("VBScript.RegExp")
  48. With regex
  49. .Global = True
  50. .MultiLine = True
  51. .IgnoreCase = False
  52. ' 修改正则表达式以匹配 content 内容
  53. .Pattern = """choices"":\[\{""index"":\d+,""message"":{""role"":""assistant"",""content"":""(.*?)""}\,""finish_reason"":""stop""}\]"
  54. End With
  55. Set matches = regex.Execute(response)
  56. If matches.Count > 0 Then
  57. response = matches(0).SubMatches(0)
  58. response = Replace(response, "\""", Chr(34)) ' 处理引号
  59. ' 取消选中原始文本,移动到选中文本的末尾
  60. Selection.Collapse Direction:=wdCollapseEnd
  61. ' 插入一个段落分隔符,换行
  62. Selection.TypeParagraph
  63. ' 插入模型生成的内容到新行
  64. Selection.TypeText text:=response
  65. ' 移动光标到最后,方便用户继续编辑或查看生成的内容
  66. Selection.MoveEnd Unit:=wdCharacter, Count:=0
  67. Else
  68. MsgBox "格式化API响应失败,请检查下代码BUG吧!.", vbExclamation
  69. End If
  70. Else
  71. MsgBox response, vbCritical
  72. End If
  73. End Sub

2. 设置功能区与宏 :

点击 “文件” - “选项” - “自定义功能区”,右键 “开发工具”,点击 “添加新组”,重命名为 “DeepSeek”,选择心仪图标。在添加的新建组点击右键,选择 “宏”,找到 “DeepSeekV3”,选中后点击 “添加”,再右键点击重命名,选择开始符号作为图标,并重命名为 “AI生成”,最后点击确定。
Tony's blog image
Tony's blog image
Tony's blog image
Tony's blog image

使用体验

接入完成后,咱在 Word 里选中文字,点击 “AI生成”,就能直接把选中的文本发送给大模型,它会按照咱选中的文本做出响应,比如把中文翻译成英文,或者根据内容生成相关拓展,整个过程超流畅,办公效率瞬间就提上来了,真的爱了爱了。
Tony's blog image


宝子们,DeepSeek + Word 这么实用的办公组合,赶紧学起来用起来吧,相信我,用了之后你会发现办公原来可以这么轻松愉快,快去试试,开启你的高效办公之旅吧!