亚马逊seo是什么意思,东莞seo建站如何推广,那些做电影视频网站的赚钱吗,属于网页制作平台的是什么目录
一、问题描述
二、解决方法
三、代码
四、注意事项
五、总结 一、问题描述
如何在Word里面嵌入DeepSeek? 二、解决方法
1、新建文档#xff0c;按 AltF11#xff0c;进入VB界面。
2、选中文档#xff0c;右键-插入-模块。 3、进入模块#xff0c;粘入…目录
一、问题描述
二、解决方法
三、代码
四、注意事项
五、总结 一、问题描述
如何在Word里面嵌入DeepSeek? 二、解决方法
1、新建文档按 AltF11进入VB界面。
2、选中文档右键-插入-模块。 3、进入模块粘入VBA代码。代码见下文 4、保存为带宏的word文档。 5、回到文档打开文件-选项-信任中心-宏设置-启用所有宏。
不同版本word可能界面有所不同但大同小异启用宏即可。 6、1在左侧选择宏显示已保存的程序模块
2在右侧主选项卡-开发工具-新建组deepseek
3左侧选中模块1右侧选中新建的组deepseek点击中间的 添加确定。 7、回到word界面开发工具的选项卡下多了一个DeepSeek模块 8、 测试程序运行情况看一下效果响应时间稍微有点长 三、代码
代码来源如有侵权请联系博主删除如何在wps中加载deepseek文章后附VBA代码_wps接入deepseek的vba代码-CSDN博客
DeepSeek嵌入Word之VBA | 编程语言前沿技术分享
Word接入DeepSeek - 王鹏鑫 - 博客园
Function CallDeepSeekAPI(api_key As String, inputText As String) As StringDim API As StringDim SendTxt As StringDim Http As ObjectDim status_code As IntegerDim response As StringAPI https://api.deepseek.com/chat/completionsSendTxt {model: deepseek-chat, messages: [{role:system, content:You are a Word assistant}, {role:user, content: inputText }], stream: false}Set Http CreateObject(MSXML2.XMLHTTP)With Http.Open POST, API, False.setRequestHeader Content-Type, application/json.setRequestHeader Authorization, Bearer api_key.send SendTxtstatus_code .Statusresponse .responseTextEnd With 弹出窗口显示 API 响应调试用 MsgBox API Response: response, vbInformation, Debug InfoIf status_code 200 ThenCallDeepSeekAPI responseElseCallDeepSeekAPI Error: status_code - responseEnd IfSet Http Nothing
End FunctionSub DeepSeekV3()Dim api_key As StringDim inputText As StringDim response As StringDim regex As ObjectDim matches As ObjectDim originalSelection As Objectapi_key 输入你的deepseek api-keyIf api_key ThenMsgBox Please enter the API key.Exit SubElseIf Selection.Type wdSelectionNormal ThenMsgBox Please select text.Exit SubEnd If 保存原始选中的文本Set originalSelection Selection.Range.DuplicateinputText Replace(Replace(Replace(Replace(Replace(Selection.Text, \, \\), vbCrLf, ), vbCr, ), vbLf, ), Chr(34), \)response CallDeepSeekAPI(api_key, inputText)If Left(response, 5) Error ThenSet regex CreateObject(VBScript.RegExp)With regex.Global True.MultiLine True.IgnoreCase False.Pattern content:(.*?)End WithSet matches regex.Execute(response)If matches.Count 0 Thenresponse matches(0).SubMatches(0)response Replace(Replace(response, , Chr(34)), , Chr(34)) 取消选中原始文本Selection.Collapse Direction:wdCollapseEnd 将内容插入到选中文字的下一行Selection.TypeParagraph 插入新行Selection.TypeText Text:response 将光标移回原来选中文本的末尾originalSelection.SelectElseMsgBox Failed to parse API response., vbExclamationEnd IfElseMsgBox response, vbCriticalEnd If
End Sub 四、注意事项
1、API地址与密钥
API 地址https://api.deepseek.com/chat/completions
密钥deepseek官网创建初次注册可以免费体验几次
2、返回报错与解决方法
参考官网报错代码错误码 | DeepSeek API Docs 3、使用硅基流动网址与密钥
网址https://api.siliconflow.cn/v1/chat/completions
密钥官网注册创建,硅基流动统一登录
注册邀请码ogasTAfR
SiliconFlow, Accelerate AGI to Benefit Humanity
模型路径deepseek-ai/DeepSeek-V3
4、代码优化
直接第三步骤的代码运行的结果回车符\n会保留在文档中如下图所示 返回VBA代码在过程Sub DeepSeekV3()中在response 赋值语句下方添加一行代码 把\n换成换行符 response Replace(response, \n, vbCrLf)
其中vbCrLf或Chr(10) 表示换行。 五、总结
在Word里面嵌入使用deepseek工具可以通过VB程序来访问API地址来获取内容优势是减少从网站里CtrlC和CtrlV 的操作简化了操作步骤实现文档内容一步到位。劣势是响应时间较长。 日期2025年02月14日
