把deepseek-r1接入word的宏代码

### 编写Word VBA宏以集成或调用 DeepSeek-R1 API 为了使 Word 能够利用 DeepSeek-R1 的功能，可以通过编写 VBA 宏来实现这一目标。下面是一个简单的例子，展示了如何创建一个能够调用外部服务（假设为 DeepSeek-R1）并将返回的结果插入到当前文档中的宏。 #### 创建一个新的模块并定义子程序 首先，在 Visual Basic for Applications (VBA) 中打开编辑器，并向项目中添加新的标准模块： ```vba Sub CallDeepSeekR1() Dim selectedText As String Dim resultFromApi As String ' 获取用户选中的文本 If Selection.Type = wdSelectionIP Then MsgBox "请选择一些文本再试一次.", vbExclamation, "未选择任何内容" Exit Sub End If selectedText = Selection.Text ' 假设这里有一个函数可以发送请求给 DeepSeek-R1 并接收响应 resultFromApi = GetResponseFromDeepSeek(selectedText) ' 将结果展示出来并通过消息框告知用户 MsgBox "来自 DeepSeek R1 的回复：" & vbCrLf & resultFromApi, , "查询完成" ' 把处理后的数据附加到现有文档后面 With ActiveDocument.Range(0, 0).Characters.Last .InsertAfter Text:=vbCrLf & "【DeepSeek 输出】:" & vbCrLf & resultFromApi End With End Sub ``` 此代码片段实现了获取用户选定的内容作为输入参数的功能，并尝试通过 `GetResponseFromDeepSeek` 函数与假定存在的 DeepSeek-R1 接口通信[^2]。当收到服务器端传回的数据之后，它会弹出一个小窗口显示该信息，最后把得到的信息追加到了正在编辑的文章结尾处。 #### 实现 HTTP 请求逻辑 由于实际环境中可能无法直接访问名为 `GetResponseFromDeepSeek` 的内置方法，因此需要自己构建这个过程。这通常涉及到发起 HTTP POST/GET 请求并与远程 Web 服务交互。以下是简化版的实现方式之一： ```vba Private Function GetResponseFromDeepSeek(inputText As String) As String On Error GoTo ErrorHandler Const apiUrl As String = "http://example.com/deepseek/api/v1/process" ' 替换成真实的API地址 Set httpReq = CreateObject("MSXML2.XMLHTTP") With httpReq .Open "POST", apiUrl, False .setRequestHeader "Content-Type", "application/json; charset=UTF-8" ' 构建 JSON 格式的请求体 jsonBody = "{""text"": """ & Replace(inputText, """", "\""") & """}" .send jsonBody Do While .readyState <> 4 DoEvents Loop If .Status = 200 Then GetResponseFromDeepSeek = .responseText Else Err.Raise Number:=.Status, Description:="Error calling API." End If End With ExitFunction: Exit Function ErrorHandler: MsgBox "发生错误：" & Err.Description, vbCritical, "网络请求失败" Resume ExitFunction End Function ``` 这段脚本负责建立与指定 URL (`apiUrl`) 上托管的服务之间的连接，并传递包含所选文本在内的有效负载。成功接收到回应后，解析其主体部分并将其赋值给变量以便后续操作；如果遇到异常情况，则抛出相应的警告信息提醒开发者注意问题所在[^3]。