如何将DeepSeek AI接入Word？三步实现智能文档编辑！

准备工作

• 登录DeepSeek官网https://www.deepseek.com/，注册账号并进入“API开放平台”。

• 创建API Key，复制生成的API密钥（类似sk-xxxxxx）。
  

• 打开Word → 点击 文件 → 选项 → 信任中心 → 信任中心设置 → 宏设置 → 勾选 启用所有宏 。

• 在功能区显示“开发工具”： 文件 → 选项 → 自定义功能区 → 勾选右侧的 开发工具 。

• 打开Word文档，按下 Alt + F11 进入VBA编辑器。

• 右键左侧项目列表 → 插入 → 模块 ，粘贴以下代码：

  
  

• 

• Sub CallDeepSeekAI()
  
  
  
  
      
      Dim http As Object, url As String, apiKey As String    Dim prompt As String, json As String, response As String    Dim startPos As Integer, endPos As Integer, result As String        ' 设置你的API密钥和提示词    apiKey = "sk-xxxxxx"      ' 替换为你的密钥    prompt = "写一段关于AI的100字简介"  ' 自定义需求    url = "https://api.deepseek.com/v1/chat/completions"  ' API地址        ' 发起API请求    Set http = CreateObject("MSXML2.XMLHTTP")    http.Open "POST", url, False    http.setRequestHeader "Content-Type", "application/json"    http.setRequestHeader "Authorization", "Bearer " & apiKey        ' 构建请求体（根据API文档调整参数）    json = "{""model"":""deepseek-chat"",""messages"":[{""role"":""user"",""content"":""" & prompt & """}]}"        On Error GoTo ErrorHandler    http.send json    response = http.responseText        ' 解析AI返回的内容    startPos = InStr(response, """content"":""") + 11    endPos = InStr(startPos, response, """")        If startPos > 11 And endPos > startPos Then        result = Mid(response, startPos, endPos - startPos)        Selection.TypeText Text:=result    Else        MsgBox "解析失败，请检查API响应格式！"    End If        Exit SubErrorHandler:    MsgBox "请求失败！错误：" & Err.DescriptionEnd Sub

• 返回Word文档 → 点击 开发工具 → 宏 → 选择 CallDeepSeekAI → 运行 。

• 稍等片刻，AI生成的内容将直接插入光标位 置！

  
  

• 

  
  

  输出结果

•