【最牛教程】DeepSeek-R1大模型接入WPS

最新推荐文章于 2025-02-25 20:49:21 发布
最新推荐文章于 2025-02-25 20:49:21 发布
阅读量533 收藏 5
点赞数 5
文章标签： wps
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/xiaodoudou123456/article/details/145845550
版权

1. 获取API key

2. 配置Wps

  1. 启用开发工具
  • 新建文档，点击 文件 -> 选项 -> 自定义功能区
  • 勾选"工具"


2. 配置信任中心

  • 点击 信任中心 -> 宏安全性
  • 安全性选择"低


3. 添加模块

  • 前置条件：安装wps.vba
  • 点击工具 -> 开发工具，点击VB 编辑器
  • 在新窗口中点击插入，选择模块
  • 将下面的代码复制到编辑区中（注意替换你自己的API key


4. 自定义功能区

  • 点击 文件 -> 选项 -> 自定义功能区
  • 选中，点击新建组
  • 右键新建组，点击重命名
  • 将其命名为"DeepSeek"


5. 添加命令

  • 选择DeepSeek（自定义）
  • 在左侧命令中选择"宏"
  • 找到并选中"DeepSeekV3"，点击添加
  • 点击重命名
  • 重命名为"生成"
  • 点击确定


3. 使用方法

  • 选中需要处理的文字
  • 点击"生成"按钮
  • 等待大模型响应


4. 创建模板

  • 将你的文档另存为 Wps 模板 (.dotm)：
    • 点击"文件" → "另存为"
    • 选择保存类型为"Microsoft Word 带宏的模板文件 (*.dotm)"
    • 保存到 Wps 的模板文件夹（通常是 C:\Users\用户名\AppData\Roaming\kingsoft\wps\startup，如C:\Users\Administrator\AppData\Roaming\kingsoft\wps\startup）

附：配套代码
Deepseek-R1代码(官方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-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 DeepSeekR1()
    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

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 = 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-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.siliconflow.cn/v1/chat/completions"
    SendTxt = "{""model"": ""deepseek-ai/DeepSeek-R1"", ""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-R1大模型接入WPS
deepseek01的博客
02-17 4794
【代码】【最全教程】DeepSeek-R1大模型接入WPS。
WPS文档中接入DeepSeek接口的方法，用wps自带的JS宏实现。
lupiqian的博客
02-07 1万+
2.更改代码中POST的构造数据，可以实现各种自定义功能，基本原理就是更改AI的提示词。WPS文档中接入DeepSeek接口的方法，用wps自带的JS宏实现。最近deepseek比较火，捣鼓了wps接入其接口的方法，记录如下。这样基本上就完成了功能，选中文字，运行宏就行了。1.给宏添加快捷方式，入口在“文件——选项”
在WPS中调用DeepSeek宏（附代码）
liuguangshibei的博客
02-11 2897
在WPS中调用DeepSeek宏
如何在wps中加载deepseek？（文章后附VBA代码）
The丶Star
02-06 1万+
如何在wps中加载deepseek？（文章后附VBA代码）
如何在wps excel中加载deepseek？（文章后附VBA代码）
The丶Star
02-08 1万+
wps与deepseek完美联动。一分钟教会你在WPS EXCEL中使用deepseek,尝试青海省各市、州面积、语言转换为复杂公式、文字翻译等等，由deepseek自动快速生成结果!效率起飞!!【VB开发可码可评论或私信，感谢支持!】
赶紧本地部署DeepSeek体验一下最牛的大模型
程序员Feri
02-05 731
如果你还没安装Ollama，那么赶紧参考我上一篇博客《从0到1手把手教你本地部署大模型》DeepSeek号称“国运级”，那么究竟怎么样？本篇主要带大家本地化部署。
ollama加载deepseek模型
dengdaijc的专栏
02-13 1044
利用ollama加载deepseek-r1模型，并在控制台直接对话。
-2021史上最牛辞职信 --条据书信.docx
11-08
从给定的文件标题“2021史上最牛辞职信 - 条据书信”及其内容来看，本文档主要包含了两封辞职信。一封是由保安李云舟所写，另一封则是某员工（以下简称王某）的辞职信。下面将根据这两封辞职信中的内容进行详细分析...
最牛无价excel教程.pptx
11-12
在这个“最牛无价Excel教程”中，我们将深入探讨一些关键的知识点，帮助你提升Excel技能，使其成为你日常工作的得力工具。 1. **基础操作** - **单元格引用**：了解相对引用、绝对引用和混合引用的区别，这在公式...
最牛matlab代码-Solar-Angle-Calculator:计算方位角和天顶角以进行完整的日常分析
06-18
最牛matlab代码太阳角计算器 计算方位角和天顶角以进行完整的日常分析。 达伦牛 11/24/2014 这将计算一天内的太阳方位角和天顶角。 输出将进入表格格式。 更新 1.28.15（可能在此之前）：该程序已放在一个网页上供...
Office/WPS接入DeepSeek-R1多种大模型，开启办公新模式！
DEVELOPERAA的博客
02-07 7459
在现代职场中，Office办公套件已成为工作和学习的必备工具，其功能强大但复杂，熟练掌握需要系统的学习。为了简化操作，使每个人都能轻松使用各种功能，市场上涌现出各类办公插件。这些插件不仅提升了用户体验，还有效提高了工作效率。
DeepSeek接入WPS office
最新发布
wangchenaaaa的博客
02-25 459
将DeepSeek接入WPS office
WPS如何接入DeepSeek（通过第三方工具）
xfysq_的博客
02-08 1万+
WPS如何接入DeepSeek（通过第三方工具）
WPS集成DeepSeek最新教程，附详细图文，让文案生成更智能
热门推荐
Java徐师兄的博客
02-08 6万+
本文将为大家详细介绍如何将 DeepSeek 功能集成到 WPS 中，通过 OfficeAI 插件，你无需进行复杂的本地部署，只需通过官网连接即可快速启用 DeepSeek 强大的 AI 功能。不论是文案生成、翻译校对，还是深度推理、决策支持，DeepSeek 都能为你提供便捷的解决方案。让我们一起来看看如何操作吧！
如何在WPS和Word/Excel中直接使用DeepSeek功能
dsgdauigfs的博客
02-08 2万+
使用场景：寻找如何输入“打勾（✔️）符号”的方法，想知道“怎么在插入表格前添加文字”，或者“该用哪个公式”， AI办公助手都能为你提供快速、准确的解决方案。（1）配置完成后，点击WPS界面中的“OfficeAI”选项卡，即可使用DeepSeek的各种功能，如AI校对、文案生成、润色、翻译等。注意：在安装过程的弹窗中，要看清楚是否已经勾选上了需要的所有功能，如“文生图”功能。（3）登录成功后，点击左侧的“API Keys”，然后点击“创建API Key”，输入一个名称，创建完成后复制生成的API Key。
在WPS中通过JavaScript宏（JSA）调用本地DeepSeek API优化文档教程
搏博的专栏
02-13 3031
既然我们已经在本地部署了DeepSeek，肯定希望能够利用本地的模型对自己软件开发、办公文档进行优化使用，接下来就先在WPS中通过JavaScript宏（JSA）调用本地DeepSeek API优化文档的教程奉上。”->“选项”中，在“自定义功能区”中，左侧选择“主选项卡”，找到“开发工具”，添加到右侧，之后就会在选项菜单中启用“开发工具”按钮。如果在WPS的“工具”菜单中没有“开发工具”，则可以按以下方式添加，依然在“（1）启用宏安全性：进入 「文件」→「选项」→「信任中心」→「宏设置」。
第四讲：（不坑盒子）word、wps+deepseek教程
weixin_74009895的博客
02-04 1万+
27 不坑老师✅教师办公技巧发布了一篇小红书笔记，快来看吧！😆 55Dsbc6MR47dP9E 😆 http://xhslink.com/a/7BglFJTtK474，复制本条信息，打开【小红书】App查看精彩内容！链接: https://pan.baidu.com/s/1l-NPEYff3gc6Xhsgso41ow?pwd=sxu7 提取码: sxu7。通过网盘分享的文件：不坑盒子.zip。--来自百度网盘超级会员v5的分享。点击：“可点击此处进行管理”
WPS中接入DeepSeek，保姆级教程
qq_41081984的博客
02-11 2527
将DeepSeek-R1接入WPS，你就能直接在文档中调用AI来处理文字内容，比如生成新的文本、优化表达，甚至是进行一些推理分析。
Deepseek的API调用使用(自用)
qq_64296768的博客
01-13 5万+
Deepseek的API调用使用(自用)
评论 3
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

霍小毛

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

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

余额充值