代碼參考up主小衛(wèi)是David

使用效果，API請求異常后，返回報錯提醒

Sub chatGPT()

'

' chatGPT 宏

'

'

? ? Dim selectedText As String

? ? Dim apiKey As String

? ? Dim response As Object, re As String

? ? Dim midString As String

? ? Dim ans As String

? ??

? ? On Error GoTo ErrorHandler

? ??

? ? If Selection.Type = wdSelectionNormal Then

? ? ? ? selectedText = Selection.Text

? ? ? ? selectedText = Replace(selectedText, ChrW$(13), "")

? ? ? ??

? ? ? ? apiKey = "your_api_key"

? ? ? ? URL = "https://api.openai.com/v1/chat/completions"

? ? ? ??

? ? ? ? Set response = CreateObject("MSXML2.XMLHTTP")

? ? ? ? response.Open "POST", URL, False

? ? ? ? response.setRequestHeader "Content-Type", "application/json"

? ? ? ? response.setRequestHeader "Authorization", "Bearer " + apiKey

? ? ? ? response.Send "{""model"":""gpt-3.5-turbo"", ""messages"":[{""role"":""user"",""content"":""" & selectedText & """}],""temperature"":0.7}"

? ? ? ??

? ? ? ? If response.Status = 200 And Len(response.responseText) > 0 Then

? ? ? ? ? ? re = response.responseText

? ? ? ? ? ? midString = Mid(re, InStr(re, """content"":""") + 11)

? ? ? ? ? ? ans = Split(midString, """")(0)

? ? ? ? ? ? ans = Replace(ans, "\n", "")

? ? ? ? ? ? Selection.Text = selectedText & vbNewLine & ans

? ? ? ? Else

? ? ? ? ? ? MsgBox "請求失敗，響應(yīng)內(nèi)容為：" & vbNewLine & response.responseText, vbExclamation, "請求失敗"

? ? ? ? End If

? ? ? ??

? ? Else

? ? ? ? Exit Sub

? ? ? ??

? ? End If

? ??

? ? Exit Sub

? ??

ErrorHandler:

? ? MsgBox "發(fā)生錯誤：" & Err.Description, vbCritical, "運行時錯誤"

? ??

End Sub