Const AI_URL As String = "填寫AI網(wǎng)址"
Const AI_KEY As String = "填寫你申請到的key"
Const AI_MODEL As String = "填寫模型名稱"

Sub DeepWord()    
Dim selectedText As String    
Dim apiResponse As String, answer As String    
Dim oXmlHttp As Object, requestBody As String    
Dim startTime As Double
    On Error GoTo ErrorHandler    
    startTime = Timer
    ' █ 階段1：輸入驗證    
    If Not ValidateSelection Then Exit Sub
    ' █ 階段2：文本預(yù)處理    
    selectedText = CleanTextContent(Selection.text)    
    If Len(selectedText) = 0 Then Exit Sub
    ' █ 階段3：獲取用戶需求    
    Dim systemPrompt As String    
    systemPrompt = "你是一位擅長文案工作的專家，現(xiàn)在請你根據(jù)已有的內(nèi)容，" & _        
    InputBox("請輸入寫作需求", "用戶輸入", "生成一篇文章")    
    If StrPtr(systemPrompt) = 0 Then Exit Sub ' 用戶取消輸入
    ' █ 階段4：構(gòu)建API請求    
    Set oXmlHttp = CreateObject("MSXML2.ServerXMLHTTP.6.0")
    With oXmlHttp        
    .Open "POST", AI_URL, False        
    .setRequestHeader "Content-Type", "application/json;"        
    .setRequestHeader "Authorization", "Bearer " & AI_KEY        
    .setRequestHeader "Accept", "*/*"    
    End With
    requestBody = "{""model"":""" & AI_MODEL & """," & _                   
    """messages"":[" & _                   
    "{""role"":""system"",""content"":""" & JSONEscape(systemPrompt) & """}," & _                   
    "{""role"":""user"",""content"":""" & JSONEscape(selectedText) & """}]," & _                   
    """temperature"":0.7,""max_tokens"":512}"    
    Debug.Print requestBody
    ' █ 階段5：發(fā)送請求并處理響應(yīng)    
    oXmlHttp.send requestBody
    If oXmlHttp.Status = 200 Then        
    apiResponse = oXmlHttp.responseText        
    answer = ParseAPIResponse(apiResponse)        
    InsertResult answer    
    Else        
    HandleAPIError oXmlHttp.Status, oXmlHttp.responseText    
    End If
Cleanup:   
Set oXmlHttp = Nothing    
Exit Sub
ErrorHandler:    
HandleRuntimeError Err.Number, Err.Description    
Resume Cleanup
End Sub