歡迎你來到站長在線的代碼庫，本文的代碼是《Word接入ChatGPT的VB代碼》我們在Word里面接入ChatGPT的時(shí)候，用到的代碼段，注意里面要切換自己的apikey哦！

下面是word接入chatgpt的VB代碼：

sub ChatGPT()
Dim selectedText As String
Dim apiKey As String
Dim response As object, re As String
Dim midString As String
Dim ans As String
If Selection.Type = wdSelectionNormal Then
selectedText = Selection.Text
selectedText = replace(selectedText, ChrW$(13), "")
apiKey = "你的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}"
re = response.responseText
midString = Mid(re, InStr(re, """content"":""") + 11)
ans = split(midString, """")(0)
ans = Replace(ans, "\n", "")
Selection.Text = selectedText & vbNewLine & ans
else
Exit Sub
End If
End Sub

猜你喜歡