mac word接入deepseek

        网上大多使用Windows版word来接入deepseek,vba文件引入mac后,因底层工具不同,难以直接运行,例如CreateObject("MSXML2.XMLHTTP")无法创建,为此写了一版新的vba,基于mac底层工具来实现。

        vba文件点击这里下载

        先看效果,选择内容后会自动创建批注并将返回结果添加在批注中

返回结果后展示页

下面是接入过程:

开启权限

        在隐私与安全性-完全磁盘访问权限中,为word开启权限

        在隐私与安全性-开发者工具中,为word开启权限

        在隐私与安全性-文件与文件夹中,为word开启权限

        回到word引入配置文件

快捷键option+F11,打开宏管理界面

        Normal->插入->模块,创建新的宏,并将文件内容放入宏文件

        宏文件中的app_key修改为自己的

完成后回到正文,选中内容,快捷键option+F8,选择宏名:DeepSeek,点击运行,等待结果返回即可

### 使用 VBA 在 Microsoft Word 中集成 DeepSeek AI 为了在 Microsoft Word 中通过 VBA 实现与 DeepSeek AI 的集成,主要步骤涉及设置环境、编写宏代码以及测试功能。 #### 设置开发环境 确保已启用开发者选项以便可以访问 VBA 编辑器。这可以通过进入 `文件` -> `选项` -> `自定义功能区` 并勾选 `Developer` 来完成[^1]。 #### 创建 HTTP 请求函数 由于需要调用外部 API 接口来交互数据,在 VBA 中可利用 WinHttpRequest 或者 MSXML2.XMLHTTP 类创建用于发送请求的对象实例: ```vba Function SendRequest(url As String, payload As String) As String Dim http As Object Set http = CreateObject("MSXML2.XMLHTTP") With http .Open "POST", url, False .setRequestHeader "Content-Type", "application/json" .send (payload) If .Status = 200 Then SendRequest = .responseText Else MsgBox ("Error: " & .statusText) End If End With Set http = Nothing End Function ``` 此部分负责向指定 URL 发送 POST 请求并将响应返回给调用方。 #### 构建主程序逻辑 接下来构建实际处理文档内容并与 DeepSeek 进行通信的主要过程。这里假设有一个按钮触发事件来进行操作: ```vba Sub CallDeepSeekAPI() ' 获取当前活动文档的文字内容作为输入参数 Dim docText As String docText = ActiveDocument.Range.Text ' 准备 JSON 形式的负载体 Dim jsonPayload As String jsonPayload = "{""text"": """ & Replace(docText, """", "\""") & """}" ' 调用之前定义好的发送请求函数,并传入目标 API 地址和准备的数据包 Dim apiEndpoint As String apiEndpoint = "https://api.deepseek.example/analyze" ' 替换成真实的 API endpoint Dim resultJson As String resultJson = SendRequest(apiEndpoint, jsonPayload) ' 解析接收到的结果并应用到文档中... Debug.Print resultJson End Sub ``` 上述脚本会读取整个文档的内容并通过 RESTful 风格的服务接口传递至 DeepSeek 后端服务器;之后再依据具体情况解析反馈的信息做进一步展示或修改动作。 #### 测试验证效果 最后一步就是反复调试直至确认各项功能正常运作无误为止。建议从小规模样本开始尝试逐步扩大范围直到满足预期需求。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

天佑凡人

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值