WPS接入DeepSeek AI

Function CallDeepSeekAPI(api_key As String, inputText As String) As String
    Dim API As String
    Dim SendTxt As String
    Dim Http As Object
    Dim status_code As Integer
    Dim response As String
    API = "https://api.deepseek.com/chat/completions"
    SendTxt = "{""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 SendTxt
        status_code =.Status
        response =.responseText
    End With
    '弹出窗口显示API响应（调试用）
    'MsgBox "API Response: " & response, vbInformation, "Debug Info"
    If status_code = 200 Then
        CallDeepSeekAPI = response
    Else
        CallDeepSeekAPI = "Error: " & status_code & " - " & response
    End If
    Set Http = Nothing
End Function

Sub DeepSeekV3()
    Dim api_key As String
    Dim inputText As String
    Dim response As String
    Dim regex As Object
    Dim matches As Object
    Dim originalSelection As Object
    api_key = "输入你的deepseek api - key"
    If api_key = "" Then
        MsgBox "Please enter the API key."
        Exit Sub
    ElseIf Selection.Type <> wdSelectionNormal Then
        MsgBox "Please select text."
        Exit Sub
    End If
    '保存原始选中的文本
    Set originalSelection = Selection.Range.Duplicate
    inputText = Replace(Replace(Replace(Replace(Replace(Selection.Text, "\", "\\"), vbCrLf, ""), vbCr, ""), vbLf, ""), Chr(34), "\""")
    response = CallDeepSeekAPI(api_key, inputText)
    If Left(response, 5) <> "Error" Then
        Set regex = CreateObject("VBScript.RegExp")
        With regex
           .Global = True
           .MultiLine = True
           .IgnoreCase = False
           .Pattern = """content"":""(.*?)"""
        End With
        Set matches = regex.Execute(response)
        If matches.Count > 0 Then
            response = matches(0).SubMatches(0)
            response = Replace(Replace(response, """", Chr(34)), """", Chr(34))
            '取消选中原始文本
            Selection.Collapse Direction:=wdCollapseEnd
            '将内容插入到选中文字的下一行
            Selection.TypeParagraph
            '插入新行
            Selection.TypeText Text:=response
            '将光标移回原来选中文本的末尾
            originalSelection.Select
        Else
            MsgBox "Failed to parse API response.", vbExclamation
        End If
    Else
        MsgBox response, vbCritical
    End If
End Sub

/**
 * 使用DeepSeek API对WPS文档中的选中文本进行润色或续写
 */
function DeepSeekPolish() {
    Console.log("开始调用接口DeepSeekPolish");
    // 获取选中的文本
    let selectedText = Application.Selection.Text;
    if (!selectedText || selectedText.trim() === "") {
        alert("请选择需要润色或续写的文本！");
        return;
    }
    // 替换特殊字符以适应JSON格式
    selectedText = selectedText.replace(/\\/g, "\\\\").replace(/\n/g, "\\n").replace(/"/g, "\\\"");
    // DeepSeek API密钥（请替换为你的API密钥）
    let apiKey = "改成自己的密钥";
    let url = "https://api.deepseek.com/chat/completions";
    // 构造请求数据
    let data = {
        model: "deepseek-chat",
        messages: (
            { role: "user", content: selectedText },
            { role: "assistant", content: "请润色或续写以上内容" }
        ),
        temperature: 0.7
    };
    // 发送POST请求
    let xhr = new XMLHttpRequest();
    xhr.open("POST", url, false);
    xhr.setRequestHeader("Content-Type", "application/json");
    xhr.setRequestHeader("Authorization", "Bearer " + apiKey);
    xhr.send(JSON.stringify(data));
    // 处理响应
    try {
        if (xhr.status === 200) {
            let response = JSON.parse(xhr.responseText);
            let result = response.choices(0).message.content;
            result = result.replace(/\\n/g, "\n"); // 恢复换行符
            //移动光标到选取末尾，另起一行
            Application.Selection.MoveEnd;
            Application.Selection.TypeParagraph;
            Application.Selection.TypeBackspace;
            // 将结果插入到文档中
            Application.Selection.Text = result;
            alert("润色或续写完成！");
        } else {
            alert("请求失败：" + xhr.statusText + "\n响应内容：" + xhr.responseText);
        }
    } catch (error) {
        Console.log("错误信息" + error.message)
    }
}