Python技术迷

DeepSeek接入Word!手把手教程!

嗨,大家好。今天,我们来聊聊一个超级实用的话题:如何在Word上接入DeepSeek,给你的文档增添智能功能。

Image

别担心,这个过程并不复杂,按照步骤操作,你也能轻松搞定。废话不多说,开始动手吧!

第一步:获取API Key

首先,要让DeepSeek在Word上跑起来,我们需要一个“通行证”,也就是API Key。这个Key就像是你和DeepSeek之间的私人通道,没有它,你就无法和DeepSeek的服务进行互动。

不过,由于DeepSeek官网的服务器资源有限,最近他们暂停了API充值服务,所以你可以到腾讯云:https://curl.qcloud.com/T3M5yBHp 申请 API Key。目前能正常使用,推荐!

💡 注意:不管用哪个 API Key,对应平台账户里一定要有余额,

第二步:配置Word

有了API Key之后,接下来的步骤是配置Word,让它能够调用DeepSeek的功能。看似复杂,其实操作起来挺简单的。下面就跟着我一步步来。

1. 启用开发者工具

首先,打开你的Word文档。接着,点击菜单栏的“文件”,然后选择“选项”——进入“自定义功能区”。在右侧,你会看到一个选项框,勾选“开发者工具”,点击“确定”。这时候,你的菜单栏上就会出现“开发者工具”这一选项卡。

Image

这一步很重要,不然后面的操作可能会没法进行。

2. 调整信任设置

接着,我们要调整Word的信任设置,让它能执行一些宏(这些宏是DeepSeek功能的基础)。具体步骤是:点击“文件”——“选项”——“信任中心”——“信任中心设置”,然后勾选“启用所有宏”和“信任对VBA工程对象模型的访问”,再点击“确定”。记得,宏设置是必须启用的,不然DeepSeek功能无法生效。

Image

3. 添加脚本代码

完成了信任设置后,下一步是添加DeepSeek的脚本代码。点击菜单栏的“开发者工具”选项卡,然后选择左上角的“Visual Basic”按钮,这时会弹出一个编辑器窗口。

Image

在这个编辑器里,点击“插入”——“模块”,会出现一个新的代码窗口。

Image

在这个窗口里,粘贴上你从DeepSeek提供的代码(记得把你的API Key替换成代码里的占位符)。

Image

如果你不太懂代码,别担心,你只需要替换掉API Key部分,其他的代码就能直接用。DeepSeek-V3代码(官方apikey)

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-chat"", ""messages"": [{""role"":""system"", ""content"":""You are a Word assistant""}, {""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
' 弹出窗口显示 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 Object
api_key = "替换为你的api key" If api_key = "" Then MsgBox "Please enter the API key." Exit Sub ElseIf Selection.Type <> wdSelectionNormal Then MsgBox "Please select text." Exit Sub End If
' 保存原始选中的文本 Set originalSelection = Selection.Range.Duplicate
inputText = Replace(Replace(Replace(Replace(Replace(Selection.text, "\", "\\"), vbCrLf, ""), vbCr, ""), vbLf, ""), Chr(34), "\""") 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(Replace(response, """", Chr(34)), """", Chr(34))
' 取消选中原始文本 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

把代码粘贴好后,点击关闭按钮,回到Word主界面。

4. 添加自定义按钮

接下来,我们来给DeepSeek添加一个快捷按钮,让操作更方便。点击“文件”——“选项”——“自定义功能区”。这时,你可以右键点击“开发工具”,选择“添加新组”。然后,给新组取个名字,比如“DeepSeek”,也可以为它选择一个你喜欢的图标。

Image

Image

接下来,选择左侧的“宏”,找到刚才添加的“DeepSeekV3”,点击“添加”到右侧的“DeepSeek”组中。

Image

然后,再右键点击这个按钮,重命名为“开始对话”,并给它选个图标。这样,DeepSeek的快捷按钮就配置好了。

Image

第三步:测试DeepSeek功能

一切配置完成后,是时候测试一下效果了。打开一个Word文档,随便输入一段文字,比如“将这段文本翻译成英文”。然后,选中这段文字,点击刚才添加的“开始对话”按钮。如果一切顺利,DeepSeek会自动生成翻译结果,并将其插入到你选中文本的下一行。

Image

小贴士

  • 在使用DeepSeek之前,确保你已经保存好API Key,并且按照步骤配置了所有设置。
  • 测试时,如果遇到任何问题,先检查下API Key是否正确粘贴,或者信任设置是否启用。

结束语

就是这么简单!通过这几步,你就能在Word中成功接入DeepSeek,轻松实现自动翻译、内容生成等功能,提升工作效率。是不是觉得超方便?说实话,我觉得这种操作不但能让我们在文档处理上省时省力,甚至能让我们感受到科技的力量。

好了,今天的教程就到这里。如果你有任何问题或者在操作过程中遇到困难,随时留言给我,我会帮你解决。

最后,我为大家打造了一份deepseek的入门到精通教程,完全免费:https://www.songshuhezi.com/deepseek

同时,也欢迎加入下方的交流群,一起研究deepseek的最新玩法

图片