首页
学习
活动
专区
圈层
工具
发布
首页
学习
活动
专区
圈层
工具
MCP广场
社区首页 >专栏 >办公利器:DeepSeek+Word教程,让你的工作更高效!

办公利器:DeepSeek+Word教程,让你的工作更高效!

作者头像
Datawhale
发布于 2025-02-08 05:56:18
发布于 2025-02-08 05:56:18
13.9K1567
代码可运行
举报
文章被收录于专栏:Datawhale专栏Datawhale专栏
运行总次数:67
代码可运行

Datawhale干货 作者:尚启峰,高校行组织者

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

效果演示

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

Image
Image
Image
Image

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

获取 API Key

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

Image
Image

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

Image
Image

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

Image
Image

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

Image
Image
Image
Image

word配置DeepSeek R1

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

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

Image
Image

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

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

Image
Image
Image
Image

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

Image
Image

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

Image
Image

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

代码语言:javascript
代码运行次数:0
运行
AI代码解释
复制
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
代码语言:javascript
代码运行次数:0
运行
AI代码解释
复制
完成修改后,关闭弹窗即可。 

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

Image
Image

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

Image
Image

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

Image
Image

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

Image
Image

最后点击确定。 

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

Image
Image

至此,Word 成功接入 DeepSeek R1。 

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

WPS配置DeepSeek R1

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

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

Image
Image

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

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

Image
Image

目前,官方的 API 现在还不是很稳定

参考资料:

https://mp.weixin.qq.com/s/jocIZQZw0iIpxU5tZGdDiw

本文参与 腾讯云自媒体同步曝光计划,分享自微信公众号。
原始发表:2025-02-07,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 Datawhale 微信公众号,前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体同步曝光计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
15 条评论
热度
最新
为什么复制代码到里面,出现汉字不显示 都是问号 什么情况
为什么复制代码到里面,出现汉字不显示 都是问号 什么情况
回复回复点赞举报
error 402- error message insufficient balance type unknown error param null code invalid request error 在线求 怎么弄
error 402- error message insufficient balance type unknown error param null code invalid request error 在线求 怎么弄
回复回复点赞举报
感谢分享,链接成功,就是速度不理想。
感谢分享,链接成功,就是速度不理想。
回复回复点赞举报
Error:401-{"error":{"message":"Authentication Fails(no such user)","type":"authentication_error","param":null,"code":"invalid_request_error"}"},麻烦解答一下原因
Error:401-{"error":{"message":"Authentication Fails(no such user)","type":"authentication_error","param":null,"code":"invalid_request_error"}"},麻烦解答一下原因
22点赞举报
充值
充值
回复回复点赞举报
原因:API key 错误,认证失败 解决方法:请检查您的 API key 是否正确,如没有 API key,请先 创建 API key
原因:API key 错误,认证失败 解决方法:请检查您的 API key 是否正确,如没有 API key,请先 创建 API key
回复回复点赞举报
402
402
11点赞举报
402 - 余额不足
402 - 余额不足
回复回复点赞举报
很详细,但卡在WORD里没有“Visual Basic”这一项,是不是得下载一个?
很详细,但卡在WORD里没有“Visual Basic”这一项,是不是得下载一个?
回复回复点赞举报
If Selection.Type <> wdSelectionNormal Then 报错
If Selection.Type &lt;&gt; wdSelectionNormal Then 报错
回复回复点赞举报
出现402怎么办
出现402怎么办
33点赞举报
请问这个402怎么解决的啊
请问这个402怎么解决的啊
回复回复点赞举报
是因为现在官方把充值入口关了,也就是没有充值的话就没有使用流量,才会出现402。
是因为现在官方把充值入口关了,也就是没有充值的话就没有使用流量,才会出现402。
回复回复点赞举报
查看全部3条回复
棒!
棒!
回复回复点赞举报
推荐阅读
编辑精选文章
换一批
编写一个 Word Macro,调用 DeepSeek API
设计一个能将所选文本发送到 DeepSeek API 并插入返回结果的 Word 宏,需要对每行代码进行深入剖析。下面这篇文章从宏的声明到错误处理,详尽解读代码的目的与实现细节,帮助你深入理解 VBA 在 Word 自动化中的应用。
编程小妖女
2025/06/15
1300
编写一个 Word Macro,调用 DeepSeek API
在 Word 里编写 Visual Basic 调用 DeepSeek API
本文通过分步解析 Visual Basic 代码,展示了如何构造 JSON 请求、使用 MSXML2.XMLHTTP 发送 HTTP POST 请求,并根据响应状态码返回结果。CallDeepSeekAPI 函数接收 API 密钥与用户输入文本,拼接为符合 DeepSeek Chat API 规范的请求体,然后以同步方式调用接口,最后依据返回的 HTTP 状态码决定函数输出是原始响应还是错误信息。
编程小妖女
2025/06/14
1360
在 Word 里编写 Visual Basic 调用 DeepSeek API
解锁智能办公新境界——WPS携手DeepSeek,效率翻倍!
首先,我们需要下载并安装 OfficeAI 插件,它是一个专为 Microsoft Office 和 WPS 用户设计的智能 AI 办公工具。
Lethehong
2025/03/04
4220
解锁智能办公新境界——WPS携手DeepSeek,效率翻倍!
如何用Word结合chatgpt快速搞定文章和周报与作文!
在自定义功能区,先新建选项卡,再新建组,然后在宏下面把上一步创建的宏放到里面:如下图操作
Chatgpt注册
2023/05/13
3.3K0
【愚公系列】《AI智能化办公:ChatGPT使用方法与技巧从入门到精通》 023-ChatGPT的办公应用(ChatGPT在Word中的应用)
当您想要在Word中使用ChatGPT作为插件来辅助创建文档时,您可以按照以下步骤进行操作:
愚公搬代码
2024/10/11
4000
YYDS!WPS 集成 DeepSeek,办公从此更智能
大家好,我是徐公,今天将为大家详细介绍如何将 DeepSeek 功能集成到 WPS 中,通过 Office 插件,我们可以无需本地部署模型,直接通过官网连接来使用 DeepSeek 强大的 AI 功能。无论是文案生成、翻译校对,还是深度思考、推理决策,都能轻松完成。下面是一步一步的操作教程。
徐师兄
2025/03/31
3810
YYDS!WPS 集成 DeepSeek,办公从此更智能
扣子Coze如何接入DeepSeek-R1节点?
DeepSeek- R1已经火爆全球了,详细可见《DeepSeek火爆原因,使用方法及接入API全解析》那么在扣子Coze如何拥有DeepSeek- R1?我们可以通过自定义插件来接入。
陈宇明
2025/02/26
5940
扣子Coze如何接入DeepSeek-R1节点?
VBA专题06-1:利用Excel中的数据自动化构建Word文档—了解Word对象模型
前言:将Excel与Word合理地整合交互,往往能够获得很好的效果,极大地提高办公自动化效率。例如,将数据存放在Excel工作表中,Word文档按需自动化提取其中的特定数据;或者使用Excel来分析数据,然后以Word文档来呈现分析结果,等等。本专题先讲解了Word对象模型中常用的对象,让大家先熟悉VBA是如何操控Word文档的,有了一定的Word VBA基础知识后,再通过详细的示例演示Excel与Word交互的技术。
fanjy
2019/10/09
3.4K0
VBA专题06-1:利用Excel中的数据自动化构建Word文档—了解Word对象模型
3步配置,1分钟上手!WPS接入DeepSeek,办公效率飙升300%!!!
明明只是一份普通的季度总结,却要熬到深夜才能勉强完成。还有那些需要精确数据分析的Excel表格,看着那一堆数字,脑袋就嗡嗡作响。更别提临时被领导钦点制作PPT汇报了,那简直是职场噩梦现场!
一臻AI
2025/03/18
4320
3步配置,1分钟上手!WPS接入DeepSeek,办公效率飙升300%!!!
PyCharm安装Continue插件对接Deepseek
PyCharm是一款功能强大的Python集成开发环境,支持丰富的插件扩展,能够显著提升开发效率。本文将介绍如何在PyCharm中安装和配置Continue插件,并结合Deepseek模型实现智能代码补全与增强的代码生成功能。通过这种结合,开发者可以在编写代码时获得更智能的建议和实时的辅助,提高开发效率并优化编程体验。这篇文章适合希望探索AI编程工具的开发者,让你轻松上手并充分利用PyCharm的强大功能。
YaoQi
2025/07/14
670
PyCharm安装Continue插件对接Deepseek
让DeepSeek模仿曹操,果然好玩!
上回说到,在《新三国》中荀彧对曹操说的那句名言,但相比荀彧而言,我觉得曹操的名言会更多,我一想,若能用AI重现这位乱世奸雄曹操,会得到怎样的体验?
闫同学
2025/03/30
2610
让DeepSeek模仿曹操,果然好玩!
Word VBA实战应用:给文本添加屏幕提示
本文提供的Word VBA程序可以在Word中制作类似网站中的屏幕提示,即将鼠标悬停在特定文本上时显示包含相关信息的小框。你可以使用这类屏幕提示来显示术语的定义、提示该段文本的特殊作用,等等。
fanjy
2023/02/24
2.1K0
用Blazor和DeepSeek API创建聊天应用
本文将指导您如何使用Blazor框架和DeepSeek API构建一个简单的聊天应用。Blazor是一个用于构建交互式Web UI的框架,它允许开发者使用C#编写前端代码。DeepSeek API则提供强大的自然语言处理能力,使得应用程序能够理解和生成人类语言。
郑子铭
2025/03/21
1880
用Blazor和DeepSeek API创建聊天应用
Word VBA技术:统计文档中每个字母字符的数量
在某些情况下,可能想知道在文档中每个字母有多少个,即字母a-Z中每个有多少,或者可能想找出特定文本中最常用的字母。
fanjy
2023/02/24
2.6K0
【人工智能】DeepSeek R1可以为我们做什么?
在当今人工智能技术日新月异的时代,大模型如雨后春笋般不断涌现,彻底改变了我们的生活与工作方式,为我们带来了前所未有的便利与惊喜。在众多大模型中,国产的 DeepSeek R1 凭借其卓越的推理能力以及丰富多元的功能,脱颖而出,吸引了无数目光。
蒙奇D索隆
2025/02/16
9520
【人工智能】DeepSeek R1可以为我们做什么?
炸裂:SpringAI内置DeepSeek啦!
好消息,Spring AI 最新快照版已经内置 DeepSeek 了,所以以后项目中对接 DeepSeek 就方便多了。但因为快照版会有很多 Bug,所以今天咱们就来看稳定版的 Spring AI 如何对接 DeepSeek 满血版。
磊哥
2025/02/13
5570
炸裂:SpringAI内置DeepSeek啦!
VBA实用小程序:将Excel中的内容输入到Word
将Excel数据输入到Word文档并不难,但这会破坏书签,如果你在对Word文档进行了大量修改后发现想要重新从Excel中输入数据,那可能会令人沮丧。我想要一个可以根据需要经常重复的将Excel数据输入到Word,这意味着在复制完成后要重新创建书签。
fanjy
2023/02/14
2.7K0
Word VBA技术:复制带有自动编号的文本并在粘贴时保留编号的数字
在Word文档中,复制文本并在某处粘贴是经常要进行的操作。然而,如果文档中包含有自动编号的文本内容,例如以自动编号的数字开头的文本,如果要复制的内容不包括第一个编号项,那么这种复制粘贴操作可能会导致问题。在这种情况下,原始文档中的数字和粘贴的文本将不匹配。
fanjy
2023/02/24
2.6K0
解决方案——Zotero生成的参考文献和Word如何建立超链接,实现点击引用跳转的效果
Zotero是一款开源的文献管理工具,它可以帮助用户方便地收集、组织、引用和共享文献。
中杯可乐多加冰
2024/10/05
3K4
VBA: 使用递归法将xls文件批量转化为xlsm文件
文章背景: 根据工作的需要,早期内部根据不同需求设置了很多模板文件,都是xls格式。相比于xlsm文件,采用xls格式存在一些不足之处:一是保存同样的内容,xls文件占用空间相对更大;二是xls文件能支持的单元格格式个数是4,000;而xlsm文件能支持的单元格格式个数是64,000。因此,有必要将xls文件另存为xlsm文件。
Exploring
2022/09/20
1.8K0
VBA: 使用递归法将xls文件批量转化为xlsm文件
推荐阅读
相关推荐
编写一个 Word Macro,调用 DeepSeek API
更多 >
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档