deepseek接入word的代码

最新推荐文章于 2025-02-22 22:58:56 发布

在焦虑的沙漠里种一棵树

最新推荐文章于 2025-02-22 22:58:56 发布

阅读量4.8k

点赞数 19

文章标签： word

本文链接：https://blog.csdn.net/weixin_70682362/article/details/145631146

版权

要将 DeepSeek 的 AI 功能接入 Microsoft Word，通常需要通过 API 调用并结合 VBA（Visual Basic for Applications）或 Office 插件开发。以下是两种常见方法：

方法 1：使用 VBA 宏调用 DeepSeek API

适用于简单文本生成或分析场景。

步骤：

获取 DeepSeek API 密钥
- 前往 DeepSeek 官网注册并获取 API 密钥。
在 Word 中启用开发工具
- 文件 → 选项 → 自定义功能区 → 勾选「开发工具」。
插入 VBA 模块
- 开发工具 → Visual Basic → 插入 → 模块。
编写 VBA 代码

Sub CallDeepSeekAPI()
    Dim apiKey As String
    Dim apiUrl As String
    Dim prompt As String
    Dim response As String
    
    ' 配置参数
    apiKey = "your_api_key_here"  ' 替换为你的 API 密钥
    apiUrl = "https://api.deepseek.com/v1/chat/completions"  ' 替换为实际 API 地址
    prompt = "请帮我生成一段关于人工智能的摘要：" & Selection.Text  ' 获取当前选中的文本
    
    ' 创建 HTTP 请求对象
    Dim httpReq As Object
    Set httpReq = CreateObject("MSXML2.XMLHTTP")
    
    ' 设置请求
    httpReq.Open "POST", apiUrl, False
    httpReq.setRequestHeader "Content-Type", "application/json"
    httpReq.setRequestHeader "Authorization", "Bearer " & apiKey
    
    ' 构建请求体（根据 DeepSeek API 文档调整）
    Dim requestBody As String
    requestBody = "{""model"":""deepseek-chat"",""messages"":[{""role"":""user"",""content"":""" & prompt & """}]}"
    
    ' 发送请求
    On Error Resume Next
    httpReq.send requestBody
    
    ' 处理响应
    If httpReq.Status = 200 Then
        response = httpReq.responseText
        ' 解析 JSON 响应（需引用 JSON 库或手动解析）
        Dim jsonResponse As Object
        Set jsonResponse = JsonConverter.ParseJson(response)
        Dim outputText As String
        outputText = jsonResponse("choices")(1)("message")("content")
        
        ' 将结果插入文档
        Selection.InsertAfter vbNewLine & "DeepSeek 回复：" & outputText
    Else
        MsgBox "API 请求失败：" & httpReq.Status & " - " & httpReq.statusText
    End If
End Sub

添加 JSON 解析库（可选）
- 下载 VBA-JSON 解析库，在 VBA 中引用。
绑定快捷键或按钮
- 将此宏绑定到快速访问工具栏或快捷键。

方法 2：开发 Office 插件（JavaScript API）

适用于更复杂的集成需求，支持跨平台和云端部署。

步骤：

安装 Yeoman 和 Office 插件生成器

npm install -g yo generator-office

创建插件项目

yo office

在项目中调用 DeepSeek API

// 文件：src/taskpane/taskpane.js
async function callDeepSeek() {
  const apiKey = "your_api_key_here";
  const selectedText = await Office.context.document.getSelectedDataAsync(Office.CoercionType.Text);
  
  const response = await fetch("https://api.deepseek.com/v1/chat/completions", {
    method: "POST",
    headers: {
      "Content-Type": "application/json",
      "Authorization": `Bearer ${apiKey}`
    },
    body: JSON.stringify({
      model: "deepseek-chat",
      messages: [{
        role: "user",
        content: selectedText.value
      }]
    })
  });

  const data = await response.json();
  Office.context.document.setSelectedDataAsync(data.choices[0].message.content);
}