deepseek接入办公软件（wps，office通用）最完整教程

大模型入门学习

于 2025-03-11 16:07:49 发布

阅读量2.1k

点赞数 11

文章标签： wps 大模型入门大模型学习人工智能 AI大模型大模型 DeepSeek

本文链接：https://blog.csdn.net/2401_84494441/article/details/146181692

版权

内容概要：将deepseek通过VBA接入办公软件后，最大的价值是可以根据自己的工作需求制定提示词，一键完成过去多个步骤才能完成的，比如格式调整、大纲调整等。

在word中，一键生成大纲、扩展内容、优化完善内容

在ppt中，一键进行内容总结

实现上面视频的功能一点都不难，只需以下几步就可完整，后面有详细教程

1、准备office办公软件
2、注册deepseek的API，获取apikey
3、在word中导入VBA模块并修改apikey
4、配置功能菜单
5、使用测试

一、准备office办公软件

如果你是的电脑安装的是office，只要是2016以上版本即可，可跳过此章节。

如果你安装的是WPS，可参考第四部分配置，如果相关功能找不到，建议参考下面链接的这篇文章安装WPS，里面以后下载方式

二、注册deepseek的API，获取apikey

方式1：注册deepseek官网（使用人较多，速度较慢）

  登录www.deepseek.com，注册登录后点击左上角"API开放平台"

  实名后充值10元（可以生成百万字），后点击左侧"API keys"

3.点击创建API key，填写名称，自动生成key，复制Key备用

方式2：天翼云账号注册（有免费额度，但稳定性较差）

打开官网https://www.ctyun.cn/，点击右上角免费注册

在这里插入图片描述

注册登录后，点击首页的如下图的立即体验，或输入网址https://huiju.ctyun.cn/experienceCenter/

进入如下界面，点击左侧菜单栏的服务接入

显示如下界面，点击去创建进行服务组创建

根据下图进行填写，填写完成后提交

提交后下方显示创建信息，如图所示，获取apikey

方式3：火山引擎账号注册（推荐使用，免费额度高，速度快）

登录https://www.volcengine.com/experience/ark?utm_term=202502dsinvite&ac=DSASUQY5&rc=QWZFYIW5，输入手机号注册，有邀请码送15元。

注册登录后，按照如下图指示进入

进入后点击控制台

实名登记，点击右上角用户，进入账户管理中，进入实名认证（所有使用api都需要实名认证，操作简单，手机扫码人脸识别即可）

右边菜单中点击开通管理，按照下图进行操作

左面菜单中找api key管理，然后创建apikey并复制，后面vba中使用

三、在word中导入VBA模块并修改apikey

方式一：在office中配置：

打开word的菜单-文件-选项-设置安全权限，否则无法执行vba脚本

打开在文件-选项-自定义功能区中设置

在Normal的模块下右键选择导入文件，选择下载的word调用deepseek.bas进行导入，bas下载方法，后台发送deepseekvba获得

或添加模块后直接复制下面代码，将前面保存apiKey替换代码中第四行的"填写你的火山引擎的apikey"

   ``Private Const API_URL As String = "https://ark.cn-beijing.volces.com/api/v3/chat/completions"``Private Const API_MODEL As String = "deepseek-v3-241226"``Private Const API_MODEL_R As String = "deepseek-r1-250120"``Private Const apikey As String = "填写你的火山引擎的apikey"``   ``Function CallDeepSeekAPI(api_key As String, inputText As String)`    `Dim API As String`    `Dim SendTxt As String`    `Dim Http As Object`    `Dim status_code As Integer`    `Dim response As String`    `MsgBox "开始调用Deepseek V3进行总结，耐心等待......"``   `    `API = API_URL`    `SendTxt = "{""model"": """ & API_MODEL & """, ""messages"": [{""role"":""system"", ""content"":""你是word文案助手""}, {""role"":""user"", ""content"":""" & inputText & """}], ""stream"": false}"`     `Set Http = CreateObject("WinHttp.WinHttpRequest.5.1")`    `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``   ``   ``Function CallDeepSeekRAPI(api_key As String, inputText As String)`    `Dim API As String`    `Dim SendTxt As String`    `Dim Http As Object`    `Dim status_code As Integer`    `Dim response As String`     `MsgBox "开始调用Deepseek R1进行总结，耐心等待......"`    `API = API_URL`    `SendTxt = "{""model"": """ & API_MODEL_R & """, ""messages"": [{""role"":""system"", ""content"":""你是word文案助手""}, {""role"":""user"", ""content"":""" & inputText & """}], ""stream"": false}"`    `Set Http = CreateObject("WinHttp.WinHttpRequest.5.1")`    `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`    `CallDeepSeekRAPI = response`    `Else`      `CallDeepSeekRAPI = "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 Object`   `api_key = apikey`     `If api_key = "" Then`       `MsgBox "Please enter the API key."`      `Exit Sub`    `ElseIf Selection.Type <> wdSelectionNormal Then`       `MsgBox "请选择文本."`     `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))`        `response = Replace(response, "\n\n", "\n")`        `response = Replace(response, "\n", vbCrLf)`        `response = Replace(response, "*", "")`        `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``   ``   ``Sub DeepSeekR()``   `    `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 = apikey`     `If api_key = "" Then`       `MsgBox "Please enter the API key."`      `Exit Sub`    `ElseIf Selection.Type <> wdSelectionNormal Then`       `MsgBox "请选择文本."`     `Exit Sub`  `End If`   `' 保存原始选中的文本`  `Set originalSelection = Selection.Range.Duplicate`   `inputText = Replace(Replace(Replace(Replace(Replace(Selection.text, "\", "\\"), vbCrLf, ""), vbCr, ""), vbLf, ""), Chr(34), "\""")`   `response = CallDeepSeekRAPI(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))`        `response = Replace(response, "\n\n", "\n")`        `response = Replace(response, "\n", vbCrLf)`        `response = Replace(response, "*", "")`        `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``   ``

方式二：在WPS中配置：

安全设置，确保可以运行宏