word配置deepseek
时间: 2025-02-09 07:06:21 浏览: 149
### 如何在Word中配置或集成DeepSeek
#### 安装与准备
对于希望继续利用DeepSeek的强大功能并将其集成至Microsoft Word中的用户,在当前API key注册暂停的情况下,可以考虑采用本地部署的方法来完成这一目标。此方法适用于Windows系统的设备,并且具体操作流程已经在社区中有详细的分享[^1]。
#### 修改宏代码适应本地部署版本
当选择本地部署方案时,为了使DeepSeek能够顺利嵌入到Word环境中工作,可能需要调整原有的VBA(Visual Basic for Applications)宏脚本以匹配新的安装路径或是网络接口变化。例如,在HP战2笔记本电脑上成功运行了针对较低硬件规格优化过的`deepseek-r1:1.5b`版本后,作者提到对原有宏进行了适当改动以便更好地支持该特定版本的功能调用[^3]。
```vba
Sub ConnectToDeepSeek()
Dim objHTTP As Object
Set objHTTP = CreateObject("MSXML2.XMLHTTP")
' 原始API请求地址替换为指向本地服务器的URL
strUrl = "http://localhost:8080/api/query"
With objHTTP
.Open "POST", strUrl, False
.setRequestHeader "Content-Type", "application/json;charset=UTF-8"
' 构建JSON格式的数据包发送给DeepSeek服务端
jsonData = "{""query"": ""这里是你想要查询的内容""}"
.send (jsonData)
If .Status = 200 Then
MsgBox ("收到回复:" & .responseText)
Else
MsgBox ("错误码:" & CStr(.Status))
End If
End With
End Sub
```
上述代码展示了如何创建一个简单的宏函数用于向本地运行的DeepSeek实例发起请求,并接收返回的结果展示给用户。需要注意的是实际应用中应当根据个人情况修改`strUrl`变量以及构建合适的`jsonData`字符串传递所需参数。
阅读全文
相关推荐


















