首页word deepseek vba代码

word deepseek vba代码

时间: 2025-03-07 13:06:11 浏览: 105

### Word VBA代码示例：DeepSeek集成为了使Word能够与DeepSeek更好地协作，可以通过VBA编写宏程序来实现特定功能。下面提供一段简单的VBA代码示例，该例子展示了如何利用HTTP请求的方式调用外部API（假设为DeepSeek API），并将返回的结果插入到当前文档中。 ```vba Sub CallDeepSeekAPI() Dim http As Object, json As Dictionary, response As String ' 创建XMLHttpRequest对象用于发送网络请求 Set http = CreateObject("MSXML2.XMLHTTP") ' 定义要访问的URL地址以及准备传递给API的数据体 Const url As String = "https://api.deepseek.example.com/query" Const body As String = "{""query"": ""What is the weather like today?""}" ' 发送POST请求至指定网址并等待响应完成 With http .Open "POST", url, False .setRequestHeader "Content-Type", "application/json" .send (body) Do Until .readyState = 4 DoEvents Loop ' 获取服务器端反馈的信息 response = .responseText End With ' 将接收

阅读全文