0210_2_【Word2007】 里调用DeepSeek 基本流程.pdf

在【Word2007】里调用DeepSeek基本流程【更新

中】

本例中的word版本：

基本开发思路

1、从Word中提取文本：使用VBA（VisualBasicforApplications）或Python脚本从Word文档中读取

文本。

2、调用DeepSeekAPI：将提取的文本发送到DeepSeek服务，获取处理结果。

3、将结果写回Word：将DeepSeek返回的结果插入到Word文档中。

第一步，

确保本地部署deepseek成功

获得本地deepseekapi域名

第二步【pc端，我没有mac电脑】

打开word，新建文档

按alt+F11键，打开VB编辑器

如果看不到左边的资源管理器，

点击视图-工程资源管理器

第三步，

将以下代码复制进你的vb编辑器

SubSubmitWordContentToDeepSeekAndWriteResponse()

定义变量

DimhttpAsObject

DimurlAsString

DimdocContentAsString

DimresponseAsString

DimresponseTextAsString

定义deepseek服务的URL

url=http://localhost:11434/api/generate假设deepseek服务在本地运行，端口

为11434

获取当前活动文档的内容

docContent=ActiveDocument.Content.text

处理文档内容：移除换行符和转义JSON特殊字符

docContent=Replace(docContent,vbCr,)移除回车符(\r)

docContent=Replace(docContent,vbLf,)移除换行符(\n)

docContent=Replace(docContent,,\)转义双引号

docContent=Replace(docContent,\,\\)转义反斜杠

创建WinHttpRequest对象

Sethttp=CreateObject(WinHttp.WinHttpRequest.5.1)

打开连接，设置POST请求

http.OpenPOST,url,False

设置请求头

http.SetRequestHeaderContent-Type,application/json

构造请求体

DimrequestBodyAsString

requestBody={model:deepseek-r1:1.5b,prompt:docContent

,stream:false}

发送请求

http.SendrequestBody

获取响应

response=http.responseText

从响应中提取response属性值（通过字符串处理）

DimstartPosAsLong

DimendPosAsLong

startPos=InStr(response,response:)+12

endPos=InStr(startPos,response,)

responseText=Mid(response,startPos,endPos-startPos)

替换所有的\n\n为换行符，但保留\n\u003c/think\u003e\n\n中的\n\n

DimtempResponseAsString

tempResponse=Replace(responseText,\n\n,vb