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

全网最详细：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

DimSendTxtAsStringDimHttpAsObject

Dimstatus_codeASIntegerDimresponseAsString

API=https://api./chat/completions

SendTxt={model:deepseek-chat,messages:

[{role:system,content:Youareawordassistant},

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

SetHttp=Createobject(MSXML2.XMLHTTP)withHttp

.openPOST,API,False

.setRequestHeadercontent-Type,application/json

.setRequestHeaderAuthorization,Bearerapi_key.sendSendTxt

status_code=.Status

response=.responseTextEndwith

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

MsgBoxAPIResponse:response,vbInformation,DebugInfo

Ifstatus_code=200Then

callDeepseekAPI=response

Else

callDeepseekAPI=Error:status_code-response

EndIf

Set

SetHttp=NothingEndFunction

SubDeepseekv3()

Dimapi_keyAsStringDiminputTextAsStringDimresponseAsStringDimregexAsObject

DimmatchesAsObject

DimoriginalselectionAsObject

api_k