具體步驟如下：

1. 打開“開發(fā)工具欄”
2. 進入Visual Basic
3. 右鍵點擊“插入模塊”，粘貼進代碼
4. 把代碼中的API?密鑰換成自己的（api key?在自己的open ai?號里找）
5. 這樣宏就做好了。測試如下：只需選中你想問ChatGPT的問題，然后在開發(fā)工具欄里點擊宏圖標(biāo)，選中剛才做的宏，點擊Run就可以生成答案了。

?加一個按鈕的步驟如下：

1. 選擇自定義功能區(qū)
2. 加入新的組
3. 給加入的組重命名
4. 選擇你的宏添加到新的組里
5. 選擇一個自己喜歡的圖標(biāo)，并重命名

于是按鈕就做好了。只需選中問題然后點擊按鈕，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