一分钟将ChatGPT插入Word

具体步骤如下：

1. 打开“开发工具栏”
2. 进入Visual Basic
3. 右键点击“插入模块”，粘贴进代码
4. 把代码中的API 密钥换成自己的（api key 在自己的open ai 号里找）
5. 这样宏就做好了。测试如下：只需选中你想问ChatGPT的问题，然后在开发工具栏里点击宏图标，选中刚才做的宏，点击Run就可以生成答案了。

 加一个按钮的步骤如下：

1. 选择自定义功能区
2. 加入新的组
3. 给加入的组重命名
4. 选择你的宏添加到新的组里
5. 选择一个自己喜欢的图标，并重命名

于是按钮就做好了。只需选中问题然后点击按钮，ChatGPT的回答就生成了。

代码如下：

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_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