DeepSeek-R1大模型嵌入WPS

最新推荐文章于 2025-05-01 21:42:17 发布
最新推荐文章于 2025-05-01 21:42:17 发布
阅读量976 收藏 10
点赞数 22
文章标签： wps 人工智能 汇编 python 开发语言 ai
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/jennycisp/article/details/147590904
版权

  1. 获取API key

  • deepseek-r1模型API Key获取（目前暂停开放）：https://www.deepseek.com/
  • SiliconCloud提供的 deepseek-r1 API Key：https://cloud.siliconflow.cn/i/UY1hayHv

使用邀请码UY1hayHv，注册能获得14元（相当于2000万Tokens）

  1. 配置Wps

  2. 启用开发工具

  • 新建文档，点击 文件 -> 选项 -> 自定义功能区

  • 勾选"工具"

  • 配置信任中心

  • 点击 信任中心 -> 宏安全性

  • 安全性选择"低"

  • 添加模块

  • 前置条件：安装wps.vba，下载地址:https://pan.quark.cn/s/4e2b06b6295d

  • 点击工具 -> 开发工具，点击VB 编辑器

  • 在新窗口中点击插入，选择模块

  • 将下面的代码复制到编辑区中**（注意替换你自己的API key）**

  • 自定义功能区

  • 点击 文件 -> 选项 -> 自定义功能区

  • 选中，点击新建组

  • 右键新建组，点击重命名

  • 将其命名为"DeepSeek"

  • 添加命令

  • 选择DeepSeek（自定义）

  • 在左侧命令中选择"宏"

  • 找到并选中"DeepSeekV3"，点击添加

  • 点击重命名

  • 重命名为"生成"

  • 点击确定

  1. 使用方法

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

外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传

  1. 创建模板

  • 将你的文档另存为 Wps 模板 (.dotm)：
    • 点击"文件" → “另存为”
    • 选择保存类型为"Microsoft Word 带宏的模板文件 (*.dotm)"
    • 保存到 Wps 的模板文件夹（通常是 C:\Users\用户名\AppData\Roaming\kingsoft\wps\startup，如C:\Users\Administrator\AppData\Roaming\kingsoft\wps\startup）
    • 外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传
  • 这样每次打开 Wps 时，宏就会自动可用

常见问题解决：

1、XML报错

解决方法：安装最新版wps

外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传

2、401错误

外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传

apiKey配置不正确，有可能是在硅基流动代码中用了deepseek官方的apikey导致出错。

3、402错误

报错402 一般是余额不足，目前2元100万的TOKENS，前期搞活动有送，如果活动结束，可以购买10元，足够用 。

解决: 不要用官方apikey和代码，要换成硅基流动的

外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传

4、403错误

使用了付费模型，要么付费充值，要么换免费模型。

5、504错误

超时，使用的模型热门，请求服务超时，换模型或者等待。

解决：换deepseek v3，或者deepseek r1-distill的

外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传

附：配套代码

DeepSeek使用交流群，有问题可进群交流：

img

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-V3代码(硅基流动）

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-V3"", ""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 DeepSeekR1()
    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代码(硅基流动 Pro，需要充值，不卡版）

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"": ""Pro/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 DeepSeekR1()
    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)
    response = Replace(response, "\n", "")

    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

最新更新，wps JS宏调用DeepSeek 官方API

/*
 功能:WPS宏调用DeepSeek-API 
*/

function callDeepSeekAPI() {
    // API配置
    const apiUrl = "https://api.deepseek.com/chat/completions"; 
    
    // sk-XX 替换为自己申请的API-KEY
    const apiKey = "替换为自己申请的API-KEY"; 
    
    if(apiKey == "sk-XX"){
        alert("请配置好API后使用");
        return;
    }
    
    // 选中的问题
    str_question = Selection.Text;
    
    // 请求参数
    const requestBody = JSON.stringify({
        "model": "deepseek-chat",
        "messages": [
          {"role": "system", "content": "You are a helpful assistant."},
          {"role": "user", "content": str_question}
        ],
        "stream": false
      });

    // 创建HTTP请求
    const xhr = new XMLHttpRequest();

    xhr.open("POST", apiUrl, false); // 同步请求
    xhr.setRequestHeader("Content-Type", "application/json");
    xhr.setRequestHeader("Authorization", "Bearer " + apiKey);
    xhr.send(requestBody);
    
    // 处理响应
    if (xhr.status === 200) {
        const response = JSON.parse(xhr.responseText);
        const reBoy = response.choices[0].message.content;
        // 获取当前活动文档
        doc = ActiveDocument
        
        // 获取最后一个段落
        lastParagraph = doc.Paragraphs.Last
        
        // 在最后一个段落之后添加一个新段落
        newParagraph = doc.Content.Paragraphs.Add(lastParagraph.Range)
        
        // 在新段落中写入内容
        newParagraph.Range.Text = '\n' +  reBoy
        
    } else {
        alert("API调用失败！状态码：" + xhr.status + 
             "响应内容：" + xhr.responseText);
    }
}
piKey);
    xhr.send(requestBody);
    
    // 处理响应
    if (xhr.status === 200) {
        const response = JSON.parse(xhr.responseText);
        const reBoy = response.choices[0].message.content;
        // 获取当前活动文档
        doc = ActiveDocument
        
        // 获取最后一个段落
        lastParagraph = doc.Paragraphs.Last
        
        // 在最后一个段落之后添加一个新段落
        newParagraph = doc.Content.Paragraphs.Add(lastParagraph.Range)
        
        // 在新段落中写入内容
        newParagraph.Range.Text = '\n' +  reBoy
        
    } else {
        alert("API调用失败！状态码：" + xhr.status + 
             "响应内容：" + xhr.responseText);
    }
}

一、大模型风口已至：月薪30K+的AI岗正在批量诞生

2025年大模型应用呈现爆发式增长，根据工信部最新数据：

国内大模型相关岗位缺口达47万

初级工程师平均薪资28K（数据来源：BOSS直聘报告）

70%企业存在"能用模型不会调优"的痛点

真实案例：某二本机械专业学员，通过4个月系统学习，成功拿到某AI医疗公司大模型优化岗offer，薪资直接翻3倍！

在这里插入图片描述

如何学习AI大模型 ？

“最先掌握AI的人，将会比较晚掌握AI的人有竞争优势”。

这句话，放在计算机、互联网、移动互联网的开局时期，都是一样的道理。

相信大家在刚刚开始学习的过程中总会有写摸不着方向，故此将并将重要的AI大模型资料包括AI大模型入门学习思维导图、精品AI大模型学习书籍手册、视频教程等免费分享出来。

如果你是零基础小白，想快速入门大模型是可以考虑的。

一方面是学习时间相对较短，学习内容更全面更集中。

二方面是可以根据这些资料规划好学习计划和方向。

😝有需要的小伙伴，可以微信扫码领取！

在这里插入图片描述

👉1.大模型入门学习思维导图👈

要学习一门新的技术，作为新手一定要先有一个明确的学习路线，方向不对，努力白费。

对于从来没有接触过AI大模型的同学，我们帮你准备了详细的学习路线图。可以说是最科学最系统的学习路线，大家跟着这个大的方向学习准没问题。（完整路线在公众号内领取）

在这里插入图片描述

大模型学习路线

👉2.大模型配套视频👈

很多朋友都不喜欢晦涩的文字，我也为大家准备了视频教程，每个章节都是当前板块的精华浓缩。(篇幅有限，仅展示部分）

img

大模型教程

👉3.大模型经典学习电子书👈

随着人工智能技术的飞速发展，AI大模型已经成为了当今科技领域的一大热点。这些大型预训练模型，如GPT-3、BERT、XLNet等，以其强大的语言理解和生成能力，正在改变我们对人工智能的认识。 那以下这些PDF籍就是非常不错的学习资源。（篇幅有限，仅展示部分，公众号内领取）

img

电子书

👉4.大模型面试题&答案👈

截至目前大模型已经超过200个，在大模型纵横的时代，不仅大模型技术越来越卷，就连大模型相关的岗位和面试也开始越来越卷了。为了让大家更容易上车大模型算法赛道，我总结了大模型常考的面试题。（篇幅有限，仅展示部分，公众号内领取）

img

大模型面试

**因篇幅有限，仅展示部分资料，需要的扫描下方二维码领取 **

在这里插入图片描述

【最全教程】DeepSeek-R1大模型接入WPS
deepseek01的博客
02-17 4694
【代码】【最全教程】DeepSeek-R1大模型接入WPS。
如何在WPS和Word/Excel中直接使用DeepSeek功能
热门推荐
dsgdauigfs的博客
02-08 2万+
使用场景：寻找如何输入“打勾（✔️）符号”的方法，想知道“怎么在插入表格前添加文字”，或者“该用哪个公式”， AI办公助手都能为你提供快速、准确的解决方案。（1）配置完成后，点击WPS界面中的“OfficeAI”选项卡，即可使用DeepSeek的各种功能，如AI校对、文案生成、润色、翻译等。注意：在安装过程的弹窗中，要看清楚是否已经勾选上了需要的所有功能，如“文生图”功能。（3）登录成功后，点击左侧的“API Keys”，然后点击“创建API Key”，输入一个名称，创建完成后复制生成的API Key。
【最牛教程】DeepSeek-R1大模型接入WPS
xiaodoudou的专栏
02-25 479
DeepSeek-V3代码(官方apikey）注意替换你自己的API key。
Office/WPS接入DeepSeek-R1多种大模型，开启办公新模式！
DEVELOPERAA的博客
02-07 7357
在现代职场中，Office办公套件已成为工作和学习的必备工具，其功能强大但复杂，熟练掌握需要系统的学习。为了简化操作，使每个人都能轻松使用各种功能，市场上涌现出各类办公插件。这些插件不仅提升了用户体验，还有效提高了工作效率。
【大模型】WPS 接入 DeepSeek-R1详解，打造全能AI办公助手
2301_79455190的博客
03-12 1283
随着当下国产大模型DeepSeek的走红，与之相关的应用领域也正在逐步接入DeepSeek，从而提升自己的竞争力，除了各大互联网巨头之外，比如像阿里云的百炼平台，硅基流动，字节的火山引擎等，都已经基于自身的平台与DeepSeek完成了整合，与此同时，一些开源的工具软件为了提升自己的AI能力，完善用户的使用体验，也开始支持对DeepSeek的模型配置能力，本文将详细介绍如何在wps中对接DeepSeek。
WPS中接入DeepSeek，保姆级教程！
m0_63171455的博客
02-12 1万+
接下来，我们要把宏添加到WPS的功能区：返回WPS主界面，点击“文件” → “选项” → “自定义功能区”。在功能区里创建一个新的组，命名为“DeepSeek”。在命令列表中找到刚才添加的宏，点击“添加”，然后右键重命名为“生成”。最后，点击“确定”保存设置。好了，WPS的开发工具已经配置完成，接下来就是享受它的强大功能了！
DeepSeek-R1模型扫盲（自学记录）
weixin_52587220的博客
02-03 1610
（一）、Deepseek本地部署。如何实现个性化本地部署？（二）、常见问题及回复。
【小白指南】如何将deepseek引入WPS\Word\Excel中去？
2503_90498422的博客
02-06 1万+
如何将deepseek引入WPS\Word\Excel中去？纯小白都能看的懂，一步步操作就能行
手把手教你驯服DeepSeek-R1！部署+测试+性能优化万字全攻略
datian1234的博客
03-05 1367
本文详细介绍了如何部署和测试DeepSeek-R1模型，涵盖了从Ollama到vLLM的多种推理框架的安装与配置，并提供了性能测试结果和优化建议，帮助用户在多机多卡环境下高效运行大模型。
wps/office软件接入deepseek AI大模型，让你的办公从此飞起来！
多多神器
02-23 1223
下载链接见文末
ollama教程deepseek-r1
02-25
例如，可以通过集成 API 接口的方式把该技术嵌入日常办公软件如 WPS 或社交平台像微信之中；亦或是利用 RAGFlow 及 AnythingLLM 工具创建专属的知识管理体系，从而更好地服务于企业内部的信息管理和客户服务工作[^3]...
DeepSeek应用——与word的配套使用
不负韶华不负己
02-11 2050
记录自己学习应用DeepSeek的过程......
WPS中接入DeepSeek，保姆级教程
qq_41081984的博客
02-11 2460
将DeepSeek-R1接入WPS，你就能直接在文档中调用AI来处理文字内容，比如生成新的文本、优化表达，甚至是进行一些推理分析。
增强版wps-plugin-deepseek开源插件是DeepSeek 支持的 WPS 插件，在您的办公工作流程中提供智能文档自动化和 AI 驱动的生产力增强
struggle2025的博客
04-27 1463
增强版wps-plugin-deepseek开源插件专为WPS Office插件开发打造的Vue模板，搭配Vite构建工具，提供丰富的WPS API实操示例。虽然官方提供了TypeScript扩展包，但支持程度有限，因此本项目选择使用JavaScript进行开发。
如何删除此电脑上的迅雷下载、WPS云盘、百度网盘
gusijin的博客
04-28 331
按 Win + R 调出 运行 输入 regedit 后点击确定，打开注册表编辑器。我们安装软件后，此电脑中出现这种情况，感觉很碍眼，那我们怎么将他移除呢？在 NameSpace 目录下右键需要删除的项，选择删除。
高压开关柜局部放电信号分析系统
m0_61057267的博客
04-28 1647
这个项目是我在2025年实现的高压开关柜局部放电信号分析系统，目的是通过采集分析局部放电信号，判断设备的工作状态和潜在故障。系统包含从信号模拟生成、特征提取、到深度学习模型训练的全流程，最终可自动生成分析报告。
Python项目--基于计算机视觉的手势识别控制系统
exlink2012的专栏
04-23 3132
随着人机交互技术的快速发展，传统的键盘、鼠标等输入设备已经不能满足人们对自然、直观交互的需求。手势识别作为一种非接触式的人机交互方式，具有操作自然、交互直观的特点，在智能家居、游戏控制、虚拟现实等领域有着广泛的应用前景。 本项目旨在开发一个基于计算机视觉的手势识别控制系统，通过摄像头捕获用户的手部动作，实时识别手势类型，并将识别结果转化为相应的控制命令，实现对计算机或其他设备的非接触式控制。
远光软件发布九天 AI 应用开发平台，加速企业研发效能跃升
YG_JT的博客
04-30 289
4月25日，远光软件在“2025珠海软件产业年会暨AI技术赋能行业发展交流会”上以虚拟直播方式发布了远光九天AI应用开发平台。
存算一体架构下的新型AI加速范式：从Samsung HBM-PIM看近内存计算趋势
最新发布
高效做AI，就上Aladdin! 同学们用得起的H卡算力平台。
05-01 702
存算一体不是简单的技术改良，而是对计算本质的重新思考。当HBM-PIM将能效边界推向10 TFLOPS/W，我们正站在架构革命的临界点。这场变革的终极目标，是让计算回归数据本源——‌在比特诞生的地方处理比特‌。本文实验数据基于Samsung Aquabolt-XL HBM-PIM实测，更多技术细节请参考ISSCC 2023论文《A 1ynm 16Gb 4.8TFLOPS/W HBM-PIM with Bank-Level Programmable AI Engines》。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

打赏作者

程序员一粟

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

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

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

打赏作者

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

抵扣说明：

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

余额充值