GPT3.5 与word的结合，提前享受office copilot-Toy模板网

这篇具有很好参考价值的文章主要介绍了GPT3.5 与word的结合，提前享受office copilot。希望对大家有所帮助。如果存在错误或未考虑完全的地方，请大家不吝赐教，您也可以点击"举报违法"按钮提交疑问。

1.你先要拥有GPT3.5 key

如何获取见上篇

2.配置office选项卡

GPT3.5 与word的结合，提前享受office copilot

3.编写vba

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 = "your 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