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

1.你先要拥有GPT3.5  key

如何获取见上篇

2.配置office选项卡

 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

4.新建vba模块 插入代码

 

5.先在左边自定义选项卡，然后把邮编的宏放入左边即可

 6. 效果

 最终运行与网速有关，我这边还是要等一会儿。

结语：

实现上面的功能我主要看了b站up小卫是David的视频。代码也是他写的。原视频目前已删除，侵删。