青春涩涩爱涩涩 将DeepSeek接入word和WPS经过和竣工代码（含逐行代码阐发）

运转后果图パナソニック 分電盤 リミッタースペース付 露出・半埋込両用形

图片青春涩涩爱涩涩青春涩涩爱涩涩

调用DeepSeek后经过贯通的完结

竣工vba代码（复制代码粘贴即可）Function ChatToDeepSeek(chatText As String) As String 'API接口地址 Dim api_url As String 'DeepSeek官方肯求的API Key Dim api_key As String '发送给DeepSeek的本色，jason表情的文本 Dim SendContent As String 'Http请求对象 Dim HttpRequest As Object '请求复返的差错码，http请求平日反适时复返200 Dim status_code As Integer 'http请求复返本色 Dim response As String '开采DeepSeek-V3 API接口地址 api_url = 'https://api.deepseek.com/chat/completions' '开采DeepSeek官方肯求的API Key（在的epseek官方洞开平台注册后创建，庄重：只在初次创建时自动复制后续无法复制，是以创建时铭刻保存） api_key = 'xxxxxx，请替换为你在DeepSeek官方肯求的API Key' '使用jason表情封装请求本色，主要包括使用的模子（deepseek-chat）和发送的给DeepSeek的文本本色。 通过指定 model='deepseek-chat' 即可调用 DeepSeek-V3。 SendContent = '{''model'': ''deepseek-chat''， ''messages'': [{''role'':''user''， ''content'':''' & chatText & '''}]， ''stream'': false}' '实例化http请求对象，并调用接口得到复返数据 Set HttpRequest = CreateObject('MSXML2.XMLHTTP') With HttpRequest .Open 'POST'， api_url， False .setRequestHeader 'Content-Type'， 'application/json' .setRequestHeader 'Authorization'， 'Bearer ' & api_key .send (SendContent) status_code = .Status response = .responseText End With ' 弹出窗口清楚 API 反应（调试用） ' MsgBox 'API请求复返本色: ' & response， vbInformation， '调式信息' ' 请求平日复返 If status_code = 200 Then ChatToDeepSeek = response ' API key 差错，认证失败 处理圭臬：请检讨您的 API key 是否正确，如莫得 API key，请先 创建 API key ElseIf status_code = 401 Then ChatToDeepSeek = 'Error: API key 差错，认证失败' & ' - 反应本色：' & response ' 账号余额不及，处理圭臬：请阐明账户余额，并赶赴 充值 页面进行充值 ElseIf status_code = 402 Then ChatToDeepSeek = 'Error: 账号余额不及' & ' - 反应本色：' & response ' 就业器里面故障 处理圭臬：请恭候后重试 ElseIf status_code = 500 Then ChatToDeepSeek = 'Error: 就业器里面故障，请稍后重试' & ' - 反应本色：' & response '就业器艰巨 处理圭臬：请恭候后重试 ElseIf status_code = 503 Then ChatToDeepSeek = 'Error: 就业器艰巨，请稍后重试' & ' - 反应本色：' & response ' 其他未知差错 Else ChatToDeepSeek = 'Error: ' & status_code & ' - ' & response End If Set HttpRequest = Nothing End FunctionSub DeepSeekV3() ' 聊天本色，欧美性爱偷偷撸影院即文档中选顶用于和deepseek聊天的本色 Dim chatText As String ' 对话复返的本色 Dim responseText As String '正则抒发式对象 Dim regex As Object '正在抒发式匹配完结 Dim matches As Object '通过正则抒发式贯通后得到的deepseek复兴对话本色 Dim content As String '选中的本色 Dim SelectionText As Object ' 保存文档中选中提交对话文本本色，即建议的问题 Set SelectionText = Selection.Range.Duplicate ' 替换一些无须要的空格、标志等 chatText = Replace(Replace(Replace(Replace(Replace(Selection.Text， '\'， '\\')， vbCrLf， '')， vbCr， '')， vbLf， '')， Chr(34)， '\''') responseText = ChatToDeepSeek(chatText) ' 接口调用莫得差错但莫得本色复返或复返空行 If Trim(responseText) = '' Then MsgBox '接口莫得复返数据或复返空行'， vbCritical '调用API接口后DeepSeek平日复返聊天本色 ElseIf Left(responseText， 5) <> 'Error' Then ' 创建正则抒发式对象 Set regex = CreateObject('VBScript.RegExp') '贯通对话复返本色 With regex .Global = True .MultiLine = True .IgnoreCase = False .Pattern = '''content'':''(.*?)''' End With Set matches = regex.Execute(responseText) If matches.Count > 0 Then content = matches(0).SubMatches(0) content = Replace(Replace(content， ''''， Chr(34))， ''''， Chr(34)) content = Replace(Replace(content， '\n'， Chr(13))， '**'， '') ' 将输入光标移到选中语本的末尾 Selection.Collapse Direction:=wdCollapseEnd ' 在选中本色后头插入一个新段落 Selection.TypeParagraph ' 开采新段落的本色为贯通对话复返的本色 Selection.TypeText Text:=content ' 插入一个换行符 Selection.InsertBreak Type:=wdLineBreak ' 重新选中提交的对话本色 SelectionText.Select Else MsgBox '复返本色贯通失败，请检讨正则抒发式是否正确'， vbExclamation End If Else ' 清楚调用接口复返的至极信息 MsgBox response， vbCritical End If End Subword成立经过（WPS类同）

（1）新建一个Word文档，点击 文献 -> 选项 -> 自界说功能区，勾选“开采者器用”。

图片

（2）点击 信任中心 -> 信任中心开采，接纳“启用总计宏”与“信任对VBA......”。

图片

（3）接下来点击细目，咱们发现选项卡中出现了“开采者器用”，点击开采者器用，点击Visual Basic，在新窗口中的插入，接纳插入模块，把接入deepseek的VBA代码（参见我发布的著述）复制到裁剪区中，替换官方肯求的API key。完成后，可径直关闭窗口。

图片

（4）点击 文献 -> 选项 -> 自界说功能区，右键开采器用，点击添加新组定名为DeepSeek。接纳DeepSeek（自界说），接纳左侧的敕令为“宏”，找到咱们添加的DeepSeekV3，选中后点击添加并重定名为“生成”。

图片

完成后就在开采器用那边看到了DeepSeek的生成操作，当今就不错和DeepSeek聊天了。

（5）要是你思要总计文档王人好像用到这个功能，那么请保存启用宏的word模板，保存旅途:C:\Users\用户名\AppData\Roaming\Microsoft\Word\STARTUP

图片

本站仅提供存储就业，总计本色均由用户发布，如发现存害或侵权本色，请点击举报。