DeepSeek-R1大模型嵌入Word教程.pdf

全网最详细：DeepSeek-R1大模型嵌入Word教程，让你

的办公效率起飞!

效果演示

选中文本并点击生成，即可实现模型回复!例如，我们想要将一段中文文本翻译成英文。

1.获取APIkey

deepseek-r1模型APIKey获取地址：/

qwen2.5模型APIKey获取地址：/

2.配置Word

\1.启用开发者工具

-新建Word,点击文件-选项自定义功能区

-勾选开发者工具

\2.配置信任中心

-点击信任中心-信任中心设置

-选择启用所有宏与信任对VBA.……

\3.添加模块

-点击开发者工具，点击visualBasic

-在新窗口中点击插入，选择模块

-将代码复制到编辑区中(*注意替换你自己的APIkey***)

\4.自定义功能区

-点击文件选项-自定义功能区

右键开发工具，点击添加新组

右键新建组，点击重命名

-将其命名为DeepSeek,选择心仪的图标

-点击确定

\5.添加命令

-选择DeepSeek(自定义)

-在左侧命令中选择宏

-找到并选中DeepSeekV3,点击添加

-右键添加的命令，点击重命名

-选择开始符号作为图标

-重命名为生成

3.使用方法

\1.选中需要处理的文字

\2.点击生成按钮

\3.等待大模型响应

4.创建模板

\1.将你的文档另存为Word模板(.dotm):

-点击文件→另存为

-选择保存类型为Word启用宏的模板(.dotm)

-保存到Word的模板文件夹(通常是C:\Users\用户名

\AppData\Roaming\Microsoft\Word\STARTUP)

-这样每次打开Word时，宏就会自动可用

相关代码

DeepSeekV3代码

FunctioncallDeepseekAPI(api_keyAsString,inputTextAsString)AsString

DimAPIAsString

DimSendTxtAsString

DimHttpAsObject

Dimstatus_codeASInteger

DimresponseAsString

APIhttps://api./chat/completions

SendTxt{model:deepseek-chat,messages:

[{role:system,content:Youareawordassistant},

{role:user,content:inputText}],stream:false}

SetHttpCreateobject(MSXML2.XMLHTTP)

withHttp

.openPOST,API,False

.setRequestHeadercontent-Type,application/json

.setRequestHeaderAuthorization,Bearerapi_key

.sendSendTxt

status_code.Status

response.responseText

Endwith

弹出窗口显示API响应(调试用)

MsgBoxAPIResponse:response,vbInformation,DebugInfo

Ifstatus_code200Then

callDeepseekAPIresponse

Else

callDeepseekAPIError:status_code-response

EndIf

SetHttpNothing

EndFunction

SubDeepseekv3()

Dimapi_keyAsString

DiminputTextAsString

DimresponseAsString

Dim