DeepSeek与word、wps、excel和PPT嵌套使用汇总

最新推荐文章于 2025-02-21 10:24:58 发布
最新推荐文章于 2025-02-21 10:24:58 发布
阅读量1.8k 收藏 17
点赞数 14
文章标签： word wps excel
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/qq_43404969/article/details/145541665
版权

**

‍最近DeepSeek成功出圈，全网铺天盖地的文章和视频，但参考资料半成品居多，今天就简单分享下DeepSeek与word、wps、excel和ppt的汇总资料，仅限记录，笔记分享（来源于网上各种资料粘贴复制）。

**

1.DeepSeek+Word

1.1 获取API key

  • deepseek-r1模型API Key获取地址：https://www.deepseek.com/
  • qwen2.5模型API Key获取地址：https://bailian.console.aliyun.com/

1.2配置Word

1.2.1启用开发者工具

  • 新建Word，点击 文件 -> 选项 -> 自定义功能区
  • 勾选"开发者工具"
    在这里插入图片描述

1.2.2. 配置信任中心

  • 点击 信任中心 -> 信任中心设置
  • 选择"启用所有宏"与"信任对VBA…"
    在这里插入图片描述

1.2.3添加模块

  • 点击开发者工具，点击Visual Basic
  • 在新窗口中点击插入，选择模块
  • 将代码复制到编辑区中（注意替换你自己的API key）

在这里插入图片描述
DeepSeekV3代码

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 = 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 = "替换为你的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 If
End Sub

deepseek-reasoner代码(即DeepSeek-R1模型)

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}"

    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 reasoningRegex As Object
    Dim contentRegex As Object
    Dim matches As Object
    Dim reasoningMatches As Object
    Dim originalSelection As Object
    Dim reasoningContent As String
    Dim finalContent As String

    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 reasoningRegex = CreateObject("VBScript.RegExp")
        With reasoningRegex
            .Global = True
            .MultiLine = True
            .IgnoreCase = False
            .Pattern = """reasoning_content"":""(.*?)"""
        End With
        
        Set contentRegex = CreateObject("VBScript.RegExp")
        With contentRegex
            .Global = True
            .MultiLine = True
            .IgnoreCase = False
            .Pattern = """content"":""(.*?)"""
        End With

        ' 提取推理内容
        Set reasoningMatches = reasoningRegex.Execute(response)
        If reasoningMatches.Count > 0 Then
            reasoningContent = reasoningMatches(0).SubMatches(0)
            reasoningContent = Replace(reasoningContent, "\n\n", vbNewLine)
            reasoningContent = Replace(reasoningContent, "\n", vbNewLine)
            reasoningContent = Replace(Replace(reasoningContent, """", Chr(34)), """", Chr(34))
        End If

        ' 提取最终回答
        Set matches = contentRegex.Execute(response)
        If matches.Count > 0 Then
            finalContent = matches(0).SubMatches(0)
            finalContent = Replace(finalContent, "\n\n", vbNewLine)
            finalContent = Replace(finalContent, "\n", vbNewLine)
            finalContent = Replace(Replace(finalContent, """", Chr(34)), """", Chr(34))

            ' 取消选中原始文本
            Selection.Collapse Direction:=wdCollapseEnd

            ' 插入推理过程（如果存在）
            If Len(reasoningContent) > 0 Then
                Selection.TypeParagraph
                Selection.TypeText "推理过程："
                Selection.TypeParagraph
                Selection.TypeText reasoningContent
                Selection.TypeParagraph
                Selection.TypeText "最终回答："
                Selection.TypeParagraph
            End If

            ' 插入最终回答
            Selection.TypeText finalContent

            ' 将光标移回原来选中文本的末尾
            originalSelection.Select
        Else
            MsgBox "Failed to parse API response.", vbExclamation
        End If
    Else
        MsgBox response, vbCritical
    End If
End Sub

qwen2.5-max代码

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://dashscope.aliyuncs.com/compatible-mode/v1/chat/completions"
    SendTxt = "{""model"": ""qwen-max-0125"", ""messages"": [{""role"":""system"", ""content"":""You are a Word assistant""}, {""role"":""user"", ""content"":""" & inputText & """}]}"

    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 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(response, "\n\n", vbNewLine)  ' 双换行替换为真实的单换行
            response = Replace(response, "\n", vbNewLine)  ' 单换行替换为真实的换行
            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 If
End Sub

1.2.4自定义功能区

  • 点击 文件 -> 选项 -> 自定义功能区
  • 右键开发工具，点击添加新组
  • 右键新建组，点击重命名
  • 将其命名为"DeepSeek"，选择心仪的图标
  • 点击确定
    在这里插入图片描述

1.2.5使用方法

    1. 选中需要处理的文字
    1. 点击"生成"按钮
    1. 等待大模型响应
      在这里插入图片描述

1.2.6创建模板

  • 点击"文件" → “另存为”
  • 选择保存类型为"Word 启用宏的模板 (.dotm)"
  • 保存到 Word 的模板文件夹（通常是 C:\Users\用户名\AppData\Roaming\Microsoft\Word\STARTUP）
  • 这样每次打开 Word 时，宏就会自动可用

2.DeepSeek+wps

直接放链接，自己去了解吧，挺简单。。。DeepSeek+wps使用方法链接

3.DeepSeek+Excel

DeepSeek+Excel链接

4.DeepSeek+PPT使用方法（结合KIMI一起使用）

DeepSeek+PPT

【工具篇】DeepSeek助力PPT制作，效率飙升不是梦！
再见孙悟空的专栏
02-05 3820
DeepSeek 是一款结合了 AI 技术和海量数据资源的智能搜索引擎，它就像是一个超级智能助手，能理解你用自然语言提出的各种问题，并给出精准的回答 。无论是复杂的技术问题、生活常识，还是创意写作需求，它都能应对自如。而且，它还能帮你进行代码编写、资料整理，甚至解决复杂的数学问题，可谓是功能强大。最近，DeepSeek 又解锁了新技能 —— 生成 PPT，这可大大提升了我们制作 PPT 的效率。以往，制作一份 PPT 可能需要花费大量时间收集资料、构思内容、设计排版，而现在，借助 DeepSeek，很多繁琐
【实战篇】在 Office 中部署 DeepSeek 的详细教程
再见孙悟空的专栏
02-11 4430
最近大家是不是都在疯狂探索 AI 和办公软件的结合，想让自己的办公效率 “蹭蹭” 往上涨？今天就来给大伙唠唠怎么在 Office 里部署 DeepSeek，用 Office AI 助手的方式，让你的办公软件瞬间 “智能” 起来，废话不多说，上干货！
WPS中接入DeepSeek，保姆级教程！
m0_63171455的博客
02-12 1万+
接下来，我们要把宏添加到WPS的功能区：返回WPS主界面，点击“文件” → “选项” → “自定义功能区”。在功能区里创建一个新的组，命名为“DeepSeek”。在命令列表中找到刚才添加的宏，点击“添加”，然后右键重命名为“生成”。最后，点击“确定”保存设置。好了，WPS的开发工具已经配置完成，接下来就是享受它的强大功能了！
deepseek接入word的代码
weixin_70682362的博客
02-14 4842
要将 DeepSeek 的 AI 功能接入 Microsoft Word，通常需要通过 API 调用并结合 VBA（Visual Basic for Applications）或 Office 插件开发。适用于简单文本生成或分析场景。
ppt 接入 deepseek （含代码）
m0_59235945的博客
02-08 4798
DeepSeek 提供了强大的文本处理能力，不仅可以用于文本生成、润色和翻译，还可以结合 VBA 实现更多功能，如文生图等。本文将介绍如何在 PPT 中使用 DeepSeek API 处理选中的文本内容，并将其结果插入到形状中。
Word 里面嵌入DeepSeek
qq_39128364的博客
02-14 2113
在word中嵌入DeepSeek工具
黑科技！用脚本将DeepSeek嵌入Word中，5分钟搞定（附保姆级教程）
SQL数据库开发
02-13 1759
大家好，我是岳哥。岳哥最近建了几个DeepSeek交流群，大家五花八门的玩法和需求一大堆。有小伙伴问DeepSeek能不能接入Office办公软件，岳哥研究了一番还真可以。昨天教大家用第三方软件接入WPS和Office，还没看过的可以看下。DeepSeek一键接入WPS和Office，效率提升300%今天教大家如何用VB宏命令将DeepSeek集成到Word中。获取API-Key这一步是我们操作的...
如何在WPS和Word/Excel中直接使用DeepSeek功能
dsgdauigfs的博客
02-08 2万+
使用场景：寻找如何输入“打勾（✔️）符号”的方法，想知道“怎么在插入表格前添加文字”，或者“该用哪个公式”， AI办公助手都能为你提供快速、准确的解决方案。（1）配置完成后，点击WPS界面中的“OfficeAI”选项卡，即可使用DeepSeek的各种功能，如AI校对、文案生成、润色、翻译等。注意：在安装过程的弹窗中，要看清楚是否已经勾选上了需要的所有功能，如“文生图”功能。（3）登录成功后，点击左侧的“API Keys”，然后点击“创建API Key”，输入一个名称，创建完成后复制生成的API Key。
python将Word、Excel和PPT批量转成PDF文档
09-19
办公自动化python将Word、Excel和PPT批量转成PDF文档，win32com操作word文档、Excel表格和PPT文档，WPS转为PDF文件。提高办公效率，快速阅读office文件，保护office文件格式和文件安全。
跨平台对比：DeepSeek在Excel、WPS、PPT办公场景的API接入差异.pdf
02-20
该文档【跨平台对比：DeepSeek在Excel、WPS、PPT办公场景的API接入差异】共计 27 页，文档内容完整、条理清晰。文档内所有文字、图表、目录等元素均显示正常，无任何异常情况，敬请您放心查阅与使用。
c++调用com接口操作wps word/excel/ppt
09-20
而WPS Office（包括WPS Writer、WPS Excel和WPS Presentation）则是一款兼容Microsoft Office的办公软件套件，提供了处理Word文档、Excel表格和PowerPoint演示文稿的能力。在某些情况下，我们可能需要在C++程序中...
python启动办公软件进程(word、excel、ppt、以及wps的et、wps、wpp)
12-24
复制代码 代码如下:#-*- coding:utf-8 -*- from win32com.client import Dispatch import time def start_office_application(app_name): # 在这里获取到app后，其它的操作和通过VBA操作办公软件类似 app = Dispatch...
把DeepSeek接入Word软件，给工作提质增效！
yyongwh的博客
02-08 1万+
今天来分享一下怎么直接在 Word 软件调用 DeepSeek，避免在 Word 软件和网页版 DeepSeek 里来回切换。
DeepSeek关联PPT使用教程
qq_57128262的博客
02-10 7572
点击“生成PPT”按钮后，稍作等待，系统就会根据你提供的内容和选择的模板，快速生成一份PPT。比如“请以人工智能在医疗领域的应用为主题，用Markdown格式生成一份PPT大纲及各页简要内容，需包含封面、目录、人工智能在医疗诊断中的应用、在疾病治疗中的应用、面临的挑战、未来发展趋势、总结页，语言简洁专业，突出关键数据和案例”。如果生成的内容与你的预期存在一定差距，不要着急，你可以进一步与DeepSeek沟通，提出具体的修改意见，如要求补充特定的研究数据、优化语言表达的风格等，直到生成的内容符合你的需求。
Word接入DeepSeek r1，轻松实现智能文本生成与润色
细节处有神明的博客
02-02 8708
点击“文件”->“选项”->“自定义功能区”。选择“宏”，在右侧自定义功能区新建选项卡和组。将宏添加至组中，重命名并更换图标。
将 DeepSeek 接入 WPS，办公效率飞起
热门推荐
deepseek01的博客
02-11 2万+
语义熔炉网，点击“调用 DeepSeek”按钮，即可实现 AI 对话、写作、排版、绘画、校对、翻译、数据分析、公式执行等多种功能。：点击“OfficeAI 助手” → “调用 DeepSeek”，即可使用 AI 对话、写作、排版等功能。安装插件后，打开 WPS，菜单栏会新增“OfficeAI 助手”选项卡。点击“刷新模型列表”，选择“DeepSeek-R1”或“V3”模型。点击“OfficeAI 助手” → “设置” → “大模型设置”。开启“本地部署”，选择“APIKEY”模式。（请确认完整链接）。
Cursor使用及接入教程（非常详细），零基础入门到精通，看这一篇就够了
Python单行客的博客
10-30 8420
Cursor使用及接入教程（非常详细），零基础入门到精通，看这一篇就够了
手把手教学！全网DeepSeek大模型接入PPT教程
2401_85375298的博客
02-17 3934
将全网DeepSeek大模型嵌入PPT，实现「对话式智能创作」，通过语言指令智能排版、自动生成内容、精准调整元素，还能在界面/备注栏实时AI对话，让PPT制作从传统菜单式操作升级为「说句话就完成」的智能体验！
DeepSeek接入PPT，效率拉满【保姆级教程】
最新发布
EnjoyEDU的博客
02-21 3850
点击“文件” -> “选项” -> “自定义功能区”。右键点击“开发工具” -> “添加新组”。重命名新组为“DeepSeek”，并为它选择一个喜欢的图标。
deepseek接入WPS EXCEL
02-09
### 将DeepSeek集成至WPS Excel #### 方法概述 为了使DeepSeek能够与WPS Excel有效对接并发挥其功能，通常需要通过API接口来实现数据交互。这涉及到创建应用程序编程接口（API），以便于两个软件之间的通信[^1]。 #### 实现步骤说明 ##### API开发环境准备 确保拥有必要的开发工具和技术栈支持RESTful服务调用。对于大多数现代应用来说，Python是一个不错的选择因为它有丰富的库用于处理HTTP请求以及解析JSON格式的数据交换。 ##### 获取DeepSeek API访问权限 联系DeepSeek官方获取合法的API密钥和其他认证凭证，这些信息将是发起任何向DeepSeek服务器发送请求所必需的一部分。 ##### 编写中间件脚本 编写一段作为桥梁作用的小程序或函数，该程序负责接收来自Excel宏命令或其他形式触发事件的信息查询参数，并将其转换成适合传递给DeepSeek API的形式；同时也要能接受从DeepSeek返回的结果并将它们适配回Excel可理解的内容结构中去显示出来。 ```python import requests from wox import Wox, WoxAPI # 假设使用wox框架简化插件开发过程 class DeepSeekIntegration(Wox): def query(self, keyword): url = "https://api.deepseek.com/v1/search" headers = { 'Authorization': 'Bearer YOUR_API_KEY', 'Content-Type': 'application/json' } params = {'q': keyword} response = requests.get(url, headers=headers, json=params).json() items = [] for item in response['results']: title = item.get('title', '') description = item.get('description', '')[:100] items.append({ "Title": f"{title}", "SubTitle": f"{description}...", "IcoPath":"Images/app.png", "JsonRPCAction":{"method": "open_url", "parameters":[item["link"]], "dontHideAfterAction":False} }) return items if __name__ == "__main__": DeepSeekIntegration() ``` 请注意上述代码片段仅作为一个概念验证性质的例子展示如何构建这样一个连接器，并不是完整的解决方案。实际部署时还需要考虑安全性、错误处理机制等方面因素。 ##### 配置WPS Office VBA/宏指令集 利用VBA (Visual Basic for Applications) 或者其他由WPS提供的自动化特性，在工作表内部定义特定动作以激活之前编写的外部Python脚本运行，从而完成整个流程闭环操作。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值