DeepSeek接入Word!手把手教程!
嗨,大家好。今天,我们来聊聊一个超级实用的话题:如何在Word上接入DeepSeek,给你的文档增添智能功能。
别担心,这个过程并不复杂,按照步骤操作,你也能轻松搞定。废话不多说,开始动手吧!
第一步:获取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文档。接着,点击菜单栏的“文件”,然后选择“选项”——进入“自定义功能区”。在右侧,你会看到一个选项框,勾选“开发者工具”,点击“确定”。这时候,你的菜单栏上就会出现“开发者工具”这一选项卡。
这一步很重要,不然后面的操作可能会没法进行。
2. 调整信任设置
接着,我们要调整Word的信任设置,让它能执行一些宏(这些宏是DeepSeek功能的基础)。具体步骤是:点击“文件”——“选项”——“信任中心”——“信任中心设置”,然后勾选“启用所有宏”和“信任对VBA工程对象模型的访问”,再点击“确定”。记得,宏设置是必须启用的,不然DeepSeek功能无法生效。
3. 添加脚本代码
完成了信任设置后,下一步是添加DeepSeek的脚本代码。点击菜单栏的“开发者工具”选项卡,然后选择左上角的“Visual Basic”按钮,这时会弹出一个编辑器窗口。
在这个编辑器里,点击“插入”——“模块”,会出现一个新的代码窗口。
在这个窗口里,粘贴上你从DeepSeek提供的代码(记得把你的API Key替换成代码里的占位符)。
如果你不太懂代码,别担心,你只需要替换掉API Key部分,其他的代码就能直接用。DeepSeek-V3代码(官方apikey)
Function CallDeepSeekAPI(api_key As String, inputText As String) As StringDim API As StringDim SendTxt As StringDim Http As ObjectDim status_code As IntegerDim response As StringAPI = "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 SendTxtstatus_code = .Statusresponse = .responseTextEnd With' 弹出窗口显示 API 响应(调试用)' MsgBox "API Response: " & response, vbInformation, "Debug Info"If status_code = 200 ThenCallDeepSeekAPI = responseElseCallDeepSeekAPI = "Error: " & status_code & " - " & responseEnd IfSet Http = NothingEnd FunctionSub DeepSeekV3()Dim api_key As StringDim inputText As StringDim response As StringDim regex As ObjectDim matches As ObjectDim originalSelection As Objectapi_key = "替换为你的api key"If api_key = "" ThenMsgBox "Please enter the API key."Exit SubElseIf Selection.Type <> wdSelectionNormal ThenMsgBox "Please select text."Exit SubEnd If' 保存原始选中的文本Set originalSelection = Selection.Range.DuplicateinputText = Replace(Replace(Replace(Replace(Replace(Selection.text, "\", "\\"), vbCrLf, ""), vbCr, ""), vbLf, ""), Chr(34), "\""")response = CallDeepSeekAPI(api_key, inputText)If Left(response, 5) <> "Error" ThenSet regex = CreateObject("VBScript.RegExp")With regex.Global = True.MultiLine = True.IgnoreCase = False.Pattern = """content"":""(.*?)"""End WithSet matches = regex.Execute(response)If matches.Count > 0 Thenresponse = matches(0).SubMatches(0)response = Replace(Replace(response, """", Chr(34)), """", Chr(34))' 取消选中原始文本Selection.Collapse Direction:=wdCollapseEnd' 将内容插入到选中文字的下一行Selection.TypeParagraph ' 插入新行Selection.TypeText text:=response' 将光标移回原来选中文本的末尾originalSelection.SelectElseMsgBox "Failed to parse API response.", vbExclamationEnd IfElseMsgBox response, vbCriticalEnd IfEnd Sub
把代码粘贴好后,点击关闭按钮,回到Word主界面。
4. 添加自定义按钮
接下来,我们来给DeepSeek添加一个快捷按钮,让操作更方便。点击“文件”——“选项”——“自定义功能区”。这时,你可以右键点击“开发工具”,选择“添加新组”。然后,给新组取个名字,比如“DeepSeek”,也可以为它选择一个你喜欢的图标。
接下来,选择左侧的“宏”,找到刚才添加的“DeepSeekV3”,点击“添加”到右侧的“DeepSeek”组中。
然后,再右键点击这个按钮,重命名为“开始对话”,并给它选个图标。这样,DeepSeek的快捷按钮就配置好了。
第三步:测试DeepSeek功能
一切配置完成后,是时候测试一下效果了。打开一个Word文档,随便输入一段文字,比如“将这段文本翻译成英文”。然后,选中这段文字,点击刚才添加的“开始对话”按钮。如果一切顺利,DeepSeek会自动生成翻译结果,并将其插入到你选中文本的下一行。
小贴士
在使用DeepSeek之前,确保你已经保存好API Key,并且按照步骤配置了所有设置。 测试时,如果遇到任何问题,先检查下API Key是否正确粘贴,或者信任设置是否启用。
结束语
就是这么简单!通过这几步,你就能在Word中成功接入DeepSeek,轻松实现自动翻译、内容生成等功能,提升工作效率。是不是觉得超方便?说实话,我觉得这种操作不但能让我们在文档处理上省时省力,甚至能让我们感受到科技的力量。
好了,今天的教程就到这里。如果你有任何问题或者在操作过程中遇到困难,随时留言给我,我会帮你解决。
最后,我为大家打造了一份deepseek的入门到精通教程,完全免费:https://www.songshuhezi.com/deepseek
同时,也欢迎加入下方的交流群,一起研究deepseek的最新玩法