word中使用deepseek r1
时间: 2025-04-05 08:08:45 AIGC 浏览: 47
### 集成DeepSeek R1模型至Microsoft Word
要在 Microsoft Word 中集成 DeepSeek 的 R1 模型,需完成以下几个方面的设置:
#### 安装必要组件
为了实现 DeepSeek 和 Word 的无缝连接,首先需要安装 Ollama 并下载所需的 DeepSeek 模型。通过命令行工具运行以下指令来启动这一过程:
```bash
ollama run deepseek/reasoner
```
这一步骤会自动检测并下载指定的 `deepseek-reasoner` 模型版本[^1]。
#### 修改Word环境以启用开发者模式
在 Word 文档界面中,进入【文件】> 【选项】> 【自定义功能区】页面,并确保勾选了【开发工具】选项卡。此操作将解锁访问高级定制化功能的能力,比如编辑 VBA (Visual Basic for Applications) 宏脚本[^3]。
#### 编写VBA代码调用DeepSeek服务端口
利用开发者工具栏内的按钮创建新的宏程序实例。下面给出了一段示范性的 VBA 代码片段用于发起请求给本地运行着的 Ollama RESTful 接口从而交互式地运用选定的大规模预训练语言模型——即此处所指代之 Reasoner 版本:
```vba
Sub QueryDeepSeek()
Dim http As Object, JSONString As String, response As String
' 创建 HTTP 请求对象
Set http = CreateObject("MSXML2.XMLHTTP")
' 构建 POST 数据包体 - 替换 YOUR_API_KEY 及其他参数适配实际场景需求
JSONString = "{""model"": ""deepseek-reasoner"", ""prompt"": """ & Selection.Text & """}"
With http
.Open "POST", "http://localhost:11434/api/generate", False
.setRequestHeader "Content-Type", "application/json"
If Not IsEmpty(Environ$("DEEPSEEK_API_KEY")) Then
.setRequestHeader "Authorization", "Bearer " & Environ$("DEEPSEEK_API_KEY")
End If
.send JSONString
response = .responseText
End With
MsgBox response
End Sub
```
上述函数实现了选取当前光标所在位置的文字作为输入提示词发送向量表示形式转换后的文本序列至远程服务器计算生成回复内容再弹窗展示最终结果的功能逻辑链路闭环处理流程描述说明解释阐述表达清楚明白易懂简洁精炼准确无误[^2]^。
---
阅读全文
相关推荐



















