DeepSeek 接入 Word 完整教程

news2025/4/18 1:20:39

一、前期准备

1.1 注册并获取 API 密钥

  1. 访问 DeepSeek 平台：
    • 打开浏览器，访问 DeepSeek 官方网站（或您使用的相应平台）。
    • 注册并登录您的账户。
  2. 创建 API 密钥：
    • 在用户控制面板中，找到“API Keys”或“API 管理”选项。
    • 点击“创建 API Key”按钮，填写应用名称（例如 “Word 文案助手”）。
    • 系统将生成类似 sk-xxxxxxxxxxxxxxxxxxxx 格式的密钥，请将它复制并妥善保存，后续在 VBA 代码中需要使用此密钥。

二、配置 Word 环境

2.1 启用开发工具选项卡

  1. 在 Word 中点击【文件】>【选项】。
  2. 在“Word 选项”对话框中，选择【自定义功能区】。
  3. 在右侧列表中勾选【开发工具】，然后点击【确定】。
    这样在功能区上就会显示“开发工具”选项卡。

2.2 启用宏安全设置

  1. 在“开发工具”选项卡内，点击【宏安全性】或【信任中心】。
  2. 进入“信任中心设置”，在【宏设置】中选择“启用所有宏”并可勾选“信任对 VBA 工程对象模型的访问”。
    注意： 启用宏可能有安全风险，请在受信任的环境下运行。

三、编写 VBA 宏代码

3.1 打开 VBA 编辑器并插入模块

  1. 在“开发工具”选项卡中点击【Visual Basic】按钮（或使用快捷键 Alt+F11）。
  2. 在 VBA 编辑器中，右击当前工程（如 “Normal” 或当前文档名称），选择【插入】>【模块】。
    建议将此模块命名为 “DeepSeekModule”。

3.2 粘贴下面的完整代码

代码包含两个通用函数用于调用 DeepSeek API 的不同模型（如 deepseek-chat、deepseek-reasoner），以及两个宏分别处理用户选中文本并将结果插入文档。代码中每一部分均有详细注释说明各命令含义。

Option Explicit

'==========================
'【公共 API 调用函数】
'==========================
' 此函数用于向 DeepSeek API 发送请求，参数：
'   api_key   —— 您的 API 密钥
'   inputText —— 需要处理的文本（用户选中文本）
'   modelName —— 调用的模型名称，如 "deepseek-chat" 或 "deepseek-reasoner"
' 返回 API 的响应文本（JSON 格式），若出错则返回错误信息。
Private Function CallDeepSeekAPI(api_key As String, inputText As String, modelName 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 请求地址
    API = "https://api.deepseek.com/chat/completions"

    ' 构建请求体（JSON 格式）
    ' 注：系统角色提示设定为“你是 Word 文案助手”
    SendTxt = "{""model"": """ & modelName & """, " & _
              """messages"": [{" & _
                   """role"":""system"", ""content"":""你是 Word 文案助手""}," & _
                   " {""role"":""user"", ""content"":""" & inputText & """}" & _
              "], ""stream"": false}"

    ' 使用 MSXML2.XMLHTTP 对象发送 HTTP 请求
    On Error GoTo ErrHandler
    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

    ' 根据响应状态返回结果或错误信息
    If status_code = 200 Then
        CallDeepSeekAPI = response
    Else
        CallDeepSeekAPI = "Error: " & status_code & " - " & response
    End If

ExitPoint:
    Set Http = Nothing
    Exit Function

ErrHandler:
    CallDeepSeekAPI = "Error: " & Err.Number & " - " & Err.Description
    Resume ExitPoint
End Function

'===============================
'【封装具体模型的调用函数】
'===============================
' 调用 deepseek-chat 模型
Function CallDeepSeekChatAPI(api_key As String, inputText As String) As String
    CallDeepSeekChatAPI = CallDeepSeekAPI(api_key, inputText, "deepseek-chat")
End Function

' 调用 deepseek-reasoner 模型
Function CallDeepSeekReasonerAPI(api_key As String, inputText As String) As String
    CallDeepSeekReasonerAPI = CallDeepSeekAPI(api_key, inputText, "deepseek-reasoner")
End Function

'=====================================
'【主宏：DeepSeek 使用 deepseek-chat 模型】
'=====================================
Sub DeepSeekChat()
    Dim api_key As String
    Dim inputText As String
    Dim response As String
    Dim regex As Object
    Dim matches As Object
    Dim originalSelection As Range

    ' ============================
    '【设置 API 密钥】
    ' ============================
    ' 请替换下面的 "在此处替换为您的 API Key" 为您获取的 API 密钥
    api_key = "在此处替换为您的 API Key"
    
    ' 检查 API 密钥及是否选中有效文本
    If api_key = "" Then
        MsgBox "Please enter the API key.", vbCritical
        Exit Sub
    ElseIf Selection.Type <> wdSelectionNormal Then
        MsgBox "请选择文本.", vbExclamation
        Exit Sub
    End If

    ' ============================
    '【保存选中区域】
    ' ============================
    ' 保存当前选区，以便后续恢复光标位置
    Set originalSelection = Selection.Range.Duplicate

    ' ============================
    '【获取并处理选中文本】
    ' ============================
    inputText = Selection.Text
    ' 对特殊字符进行转义处理
    inputText = Replace(inputText, "\", "\\")
    inputText = Replace(inputText, vbCrLf, "")
    inputText = Replace(inputText, vbCr, "")
    inputText = Replace(inputText, vbLf, "")
    inputText = Replace(inputText, Chr(34), "\""")
    inputText = Replace(inputText, Chr(39), "\'")

    ' ============================
    '【调用 API 接口】
    ' ============================
    response = CallDeepSeekChatAPI(api_key, inputText)

    ' 检查返回信息，如果返回 “Error” 开头，则说明调用失败
    If Left(response, 5) = "Error" Then
        MsgBox response, vbCritical
        Exit Sub
    End If

    ' ============================
    '【解析 API 返回的 JSON 数据】
    ' ============================
    ' 使用正则表达式提取 JSON 中 "content" 字段的值
    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)
        ' 将换行符转换成 Word 支持的换行标识
        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
End Sub

'=====================================
'【主宏：DeepSeek 使用 deepseek-reasoner 模型】
'=====================================
Sub DeepSeekReasoner()
    Dim api_key As String
    Dim inputText As String
    Dim response As String
    Dim regex As Object
    Dim matches As Object
    Dim originalSelection As Range

    ' ============================
    '【设置 API 密钥】
    ' ============================
    ' 请替换下面的 "在此处替换为您的 API Key" 为您的 API 密钥
    api_key = "在此处替换为您的 API Key"
    
    ' 检查 API 密钥及是否选中有效文本
    If api_key = "" Then
        MsgBox "Please enter the API key.", vbCritical
        Exit Sub
    ElseIf Selection.Type <> wdSelectionNormal Then
        MsgBox "请选择文本.", vbExclamation
        Exit Sub
    End If

    ' ============================
    '【保存选中区域】
    ' ============================
    Set originalSelection = Selection.Range.Duplicate

    ' ============================
    '【获取并处理选中文本】
    ' ============================
    inputText = Selection.Text
    inputText = Replace(inputText, "\", "\\")
    inputText = Replace(inputText, vbCrLf, "")
    inputText = Replace(inputText, vbCr, "")
    inputText = Replace(inputText, vbLf, "")
    inputText = Replace(inputText, Chr(34), "\""")
    inputText = Replace(inputText, Chr(39), "\'")

    ' ============================
    '【调用 API 接口】
    ' ============================
    response = CallDeepSeekReasonerAPI(api_key, inputText)

    ' 检查返回信息，如果返回 “Error” 开头，则说明调用失败
    If Left(response, 5) = "Error" Then
        MsgBox response, vbCritical
        Exit Sub
    End If

    ' ============================
    '【解析 API 返回的 JSON 数据】
    ' ============================
    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", 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
End Sub

3.3 保存代码

  • 完成粘贴后，保存 VBA 代码，关闭 VBA 编辑器。

四、将宏添加到 Word 自定义功能区（按钮）

为了方便使用，我们可以将写好的宏添加到 Word 的功能区中，具体步骤如下：

  1. 打开 Word 的“选项”界面：
    点击【文件】>【选项】。
  2. 自定义功能区：
    选择【自定义功能区】，在右侧列表中新建一个选项卡（例如命名为 “DeepSeek 助手”）或在“开发工具”中添加一个新分组（例如 “DeepSeek 工具”）。
  3. 添加宏命令：
    在左侧选择“宏”类别，找到刚才创建的宏（如 DeepSeekChat 和 DeepSeekReasoner），将其添加到新建的分组中。你可对按钮名称进行修改，并设置图标以便于识别。
  4. 点击“确定”：
    自定义完成后，在功能区中即可看到新添加的按钮，点击即可快速触发相应的宏命令。

五、使用说明与调试

5.1 测试调用 DeepSeek

  1. 准备测试文本：
    • 在 Word 文档中输入一段文本，例如：“请优化下面这段介绍语…”或其他待处理文本。
    • 用鼠标选中这段文本。
  2. 运行宏命令：
    • 可以通过“开发工具”选项卡中点击“宏”按钮，选择 DeepSeekChat（或 DeepSeekReasoner）后点击“运行”。
    • 或者直接点击自定义功能区中的按钮执行。
  3. 查看输出结果：
    • 程序会调用 DeepSeek API，对选中文本进行处理（如改写、润色或续写）。
    • 处理结果会以新段落的形式插入到选中文本之后，同时原选区可选性恢复。

5.2 错误排查

  • API Key 检查：
    确保在代码中已替换为您真实的 API 密钥，否则程序会弹出提示要求输入 API Key。
  • 网络连接：
    确保计算机可以正常访问 https://api.deepseek.com，防火墙或代理设置不影响 HTTP 请求。
  • 宏安全设置：
    若程序提示“请选择文本”或不能运行宏，请检查当前是否有有效文本选中，以及宏安全设置是否正确配置。

5.3 进阶扩展建议

  • 多模型选择：
    根据需求，可以增加界面选择不同模型（如“文案助手”与“推理分析”）对应的宏，分别调用 CallDeepSeekChatAPI 或 CallDeepSeekReasonerAPI。
  • JSON 解析优化：
    对于复杂返回数据，建议引入 VBA JSON 库（例如 VBA-JSON），提高解析正确率。
  • 日志记录：
    添加日志记录功能（例如写入文本文件），便于调试和后续维护。

总结

本文详细介绍了如何将 DeepSeek 接入到 Microsoft Word 中的完整流程。通过以下步骤实现：

  1. API 密钥获取和环境配置：注册 DeepSeek 并获取 API Key；在 Word 中启用开发工具和宏设置。
  2. VBA 代码编写：将深度处理 API 封装为公共函数，并分别编写调用 deepseek-chat 和 deepseek-reasoner 模型的宏。代码中详细注释了每一步的作用。
  3. 自定义功能区集成：将编写好的宏添加到 Word 的自定义选项卡中，通过按钮轻松运行。
  4. 测试与调试：选中待处理文本，运行宏，查看处理结果，针对错误进行排查。

通过此完整教程，您可以轻松将 DeepSeek 的智能功能集成到 Word 文档中，实现高效自动化写作、润色、翻译等功能。如果后续有更多需求或需要改进，您可以基于该基础代码进行进一步扩展和优化。

本文来自互联网用户投稿，该文观点仅代表作者本人，不代表本站立场。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如若转载，请注明出处：http://www.coloradmin.cn/o/2335510.html

如若内容造成侵权/违法违规/事实不符，请联系多彩编程网进行投诉反馈，一经查实，立即删除！

相关文章

通义灵码助力Neo4J开发：快速上手与智能编码技巧

通义灵码助力Neo4J开发：快速上手与智能编码技巧

在 Web 应用开发中&#xff0c;Neo4J 作为一种图数据库&#xff0c;用于存储节点及节点间的关系。当图结构复杂化时&#xff0c;关系型数据库的查找效率会显著降低&#xff0c;甚至无法有效查找&#xff0c;这时 Neo4J 的优势便凸显出来。然而&#xff0c;由于其独特的应用场景…
阅读更多...
高性能文件上传服务

高性能文件上传服务

高性能文件上传服务 —— 您业务升级的不二选择 在当今互联网数据量激增、文件体积日益庞大的背景下&#xff0c;高效、稳定的文件上传方案显得尤为重要。我们的文件分块上传服务端采用业界领先的 Rust HTTP 框架 Hyperlane 开发&#xff0c;凭借其轻量级、低延时和高并发的特…
阅读更多...
Java Lambda 表达式详解：发展史、语法、使用场景及代码示例

Java Lambda 表达式详解：发展史、语法、使用场景及代码示例

Java Lambda 表达式详解&#xff1a;发展史、语法、使用场景及代码示例 1. Lambda 表达式的发展史 背景与动机 JDK 7 前&#xff1a;Java的匿名内部类虽强大&#xff0c;但代码冗余&#xff08;如事件监听器、集合遍历&#xff09;。JDK 8&#xff08;2014&#xff09;&#…
阅读更多...
【从0到1学Elasticsearch】Elasticsearch从入门到精通（下）

【从0到1学Elasticsearch】Elasticsearch从入门到精通（下）

我们在【从0到1学Elasticsearch】Elasticsearch从入门到精通&#xff08;上&#xff09;这边文章详细讲解了如何创建索引库和文档及javaAPI操作&#xff0c;但是在实战当中&#xff0c;我们还需要根据一些特殊字段对文档进行查找搜索&#xff0c;仅仅靠id查找文档是显然不够的。…
阅读更多...
Python实现贪吃蛇二

Python实现贪吃蛇二

上篇文章Python实现贪吃蛇一&#xff0c;实现了一个贪吃蛇的基础版本&#xff0c;但存在一些不足&#xff0c;也缺乏一些乐趣。本篇文章将对其进行一些改进&#xff0c;主要修改/实现以下几点&#xff1a; 1、解决食物随机生成的位置与蛇身重合问题 2、蛇身移动加速/减速功能 3…
阅读更多...
基于51单片机的正负5V数字电压表( proteus仿真+程序+设计报告+讲解视频）

基于51单片机的正负5V数字电压表( proteus仿真+程序+设计报告+讲解视频）

基于51单片机的正负5V数字电压表( proteus仿真程序设计报告讲解视频&#xff09; 仿真图proteus7.8及以上 程序编译器&#xff1a;keil 4/keil 5 编程语言&#xff1a;C语言 设计编号&#xff1a;S0101 1. 主要功能&#xff1a; 设计一个基于51单片机数字电压表 1、能够…
阅读更多...
Java雪花算法

Java雪花算法

以下是用Java实现的雪花算法代码示例&#xff0c;包含详细注释和异常处理&#xff1a; 代码下面有解析 public class SnowflakeIdGenerator {// 起始时间戳&#xff08;2020-01-01 00:00:00&#xff09;private static final long START_TIMESTAMP 1577836800000L;// 各部分…
阅读更多...
前端大屏可视化项目 局部全屏（指定盒子全屏）

前端大屏可视化项目 局部全屏（指定盒子全屏）

需求是这样的&#xff0c;我用的项目是vue admin 项目 现在需要在做大屏项目 不希望显示除了大屏的其他东西 于是想了这个办法 至于大屏适配问题 请看我文章 底部的代码直接复制就可以运行 vue2 px转rem 大屏适配方案 postcss-pxtorem-CSDN博客 <template><div …
阅读更多...
01_JDBC

01_JDBC

文章目录 一、概述1.1、什么是JDBC1.2、JDBC原理 二、JDBC入门2.1、准备工作2.1.1、建库建表2.1.2、新建项目 2.2、建立连接2.2.1、准备四大参数2.2.2、加载驱动2.2.3、准备SQL语句2.2.4、建立连接2.2.5、常见问题 2.3、获取发送SQL的对象2.4、执行SQL语句2.5、处理结果2.6、释…
阅读更多...
Spring Boot 热部署详解，包含详细的配置项说明

Spring Boot 热部署详解，包含详细的配置项说明

Spring Boot 热部署详解 1. 热部署简介 热部署&#xff08;Hot Deployment&#xff09;允许在应用运行时修改代码或配置文件&#xff0c;无需重启应用即可使更改生效。Spring Boot 通过 spring-boot-devtools 模块实现这一功能&#xff0c;其核心依赖于 LiveReload 技术和自动…
阅读更多...
剑指Offer（数据结构与算法面试题精讲）C++版——day12

剑指Offer（数据结构与算法面试题精讲）C++版——day12

剑指Offer&#xff08;数据结构与算法面试题精讲&#xff09;C版——day12 题目一&#xff1a;小行星碰撞题目二&#xff1a;每日温度题目三&#xff1a;直方图最大矩形面积附录&#xff1a;源码gitee仓库 题目一&#xff1a;小行星碰撞 题目&#xff1a;输入一个表示小行星的数…
阅读更多...
Docker学习笔记-docker安装、删除

Docker学习笔记-docker安装、删除

一、在centOS 7中docker的默认安装目录 # Docker 主配置文件目录 ls /etc/docker# Docker 数据目录&#xff08;镜像、容器、卷等&#xff09; ls /var/lib/docker# Docker 可执行文件路径 which docker # 输出类似 /usr/bin/docker 二、docker文件目录说明 目录/文件用途/…
阅读更多...
【Python 开源】你的 Windows 关机助手——PyQt5 版定时关机工具

【Python 开源】你的 Windows 关机助手——PyQt5 版定时关机工具

&#x1f5a5;️ 你的 Windows 关机助手——PyQt5 版定时关机工具 相关资源文件已经打包成EXE文件&#xff0c;可双击直接运行程序&#xff0c;且文章末尾已附上相关源码&#xff0c;以供大家学习交流&#xff0c;博主主页还有更多Python相关程序案例&#xff0c;秉着开源精神的…
阅读更多...
【Python爬虫】简单介绍

【Python爬虫】简单介绍

目录 一、基本概念 1.1 什么是爬虫 1.2 Python为什么适合爬虫 1.3 Python爬虫应用领域 &#xff08;1&#xff09;数据采集与分析 市场调研 学术研究 &#xff08;2&#xff09;内容聚合与推荐 新闻聚合 视频内容聚合 &#xff08;3&#xff09;金融领域 股票数据获…
阅读更多...
使用MCP服务通过自然语言操作数据库(vscode+cline版本)

使用MCP服务通过自然语言操作数据库(vscode+cline版本)

使用MCP服务操纵数据库(vscodecline版本) 本文主要介绍&#xff0c;在vscode中使用cline插件调用deepseek模型&#xff0c;通过MCP服务器 使用自然语言去操作指定数据库。本文使用的是以己经创建号的珠海航展数据库。 理解MCP服务&#xff1a; MCP&#xff08;Model Context…
阅读更多...
Vue 3 + TypeScript 实现一个多语言国际化组件（支持语言切换与内容加载）

Vue 3 + TypeScript 实现一个多语言国际化组件（支持语言切换与内容加载）

文章目录 一、项目背景与功能概览二、项目技术架构与依赖安装2.1 技术栈2.2 安装依赖 三、国际化组件实现3.1 创建 i18n 实例3.2 配置 i18n 到 Vue 应用3.3 在组件中使用国际化内容3.4 支持语言切换 四、支持类型安全4.1 添加类型支持4.2 自动加载语言文件 一、项目背景与功能概…
阅读更多...
PhalApi 2.x：让PHP接口开发从“简单”到“极简”的开源框架

PhalApi 2.x：让PHP接口开发从“简单”到“极简”的开源框架

—— 专为高效开发而生&#xff0c;助你轻松构建高可用API接口 一、为什么选择PhalApi 2.x&#xff1f; 1.轻量高效&#xff0c;性能卓越 PhalApi 2.x 是一款专为接口开发设计的轻量级PHP框架&#xff0c;其核心代码精简但功能强大。根据开发者实测&#xff0c;在2核2G服务器…
阅读更多...
Java 企业级应用：SOA 与微服务的对比与选择

Java 企业级应用：SOA 与微服务的对比与选择

企业级应用开发中&#xff0c;架构设计是决定系统可扩展性、可维护性和性能的关键因素。SOA&#xff08;面向服务的架构&#xff09;和微服务架构是两种主流的架构模式&#xff0c;它们各自有着独特的和设计理念适用场景。本文将深入探讨 SOA 和微服务架构的对比&#xff0c;并…
阅读更多...
Zookeeper的典型应用场景?

Zookeeper的典型应用场景?

大家好&#xff0c;我是锋哥。今天分享关于【Zookeeper的典型应用场景?】面试题。希望对大家有帮助&#xff1b; Zookeeper的典型应用场景? 1000道 互联网大厂Java工程师 精选面试题-Java资源分享网 ZooKeeper 是一个开源的分布式协调服务&#xff0c;主要用于管理和协调大…
阅读更多...
数据分析不只是跑个SQL！

数据分析不只是跑个SQL！

数据分析不只是跑个SQL&#xff01; 数据分析五大闭环&#xff0c;你做到哪一步了&#xff1f;闭环一&#xff1a;认识现状闭环二&#xff1a;原因分析闭环三&#xff1a;优化表现闭环四&#xff1a;预测走势闭环五&#xff1a;主动解读数据 数据思维&#xff1a;WHY-WHAT-HOW模…
阅读更多...
推荐文章
最新文章

Copyright @ 2022~2023