wps vba deepseek代码

### WPS VBA DeepSeek 示例用法教程 在WPS Office环境中利用VBA调用DeepSeek API可以极大地提升文档处理的自动化水平和智能化程度。下面展示一段简单的代码，该代码能够选取当前文档内的指定文本发送给DeepSeek服务获取处理后的结果，并将此结果显示于同一文档的新段落后方。 ```vba Sub CallDeepSeekAPI() Dim objHTTP As Object Set objHTTP = CreateObject("MSXML2.XMLHTTP") Dim strURL As String, strResponse As String strURL = "https://api.deepseek.com/v1/process?text=" & URLEncode(Selection.Text) With objHTTP .Open "GET", strURL, False .send If .Status = 200 Then strResponse = .responseText Else MsgBox "Error: Unable to connect to the service." Exit Sub End If End With Selection.TypeParagraph Selection.TypeText "DeepSeek 回答：" & strResponse End Sub Function URLEncode(strData As String) As String ' URL编码函数简化版实现 Dim i As Integer For i = 1 To Len(strData) Select Case Asc(Mid$(strData, i, 1)) Case 97 To 122, 65 To 90, 48 To 57, 45, 46, 95, 126 URLEncode = URLEncode & Mid$(strData, i, 1) Case 32 URLEncode = URLEncode & "+" Case Else URLEncode = URLEncode & "%" & Right$("0" & Hex$(Asc(Mid$(strData, i, 1))), 2) End Select Next i End Function ``` 上述脚本定义了一个名为`CallDeepSeekAPI()`的过程，在执行过程中会读取用户选定的文字部分作为参数传递至DeepSeek的服务接口；一旦接收到返回的数据，则会在原文档中创建新的一行来显示来自DeepSeek的回答[^1]。 为了确保请求地址正确无误以及适应不同的网络环境，建议开发者们根据实际情况调整API端点链接与认证机制等内容。