Chatxw.com/zt/gpt/' target='_blank'>GPT可以在很多方便帮助大家，而且ChatGPT使用的方法多种多样，从来都不限于互动问答和聊天，可以结合其它的软件使用，让你无论是娱乐还是工作都更轻松。下面我们给大家介绍一下ChatGPT插入Word的方法，让大家在创作和写作上，可以得到更多的帮助。
具体步骤如下：
打开“开发工具栏”
进入Visual Basic
右键点击“插入模块”，粘贴进代码
把代码中的API 密钥换成自己的(api key 在自己的open ai 号里找)
这样宏就做好了。测试如下：只需选中你想问ChatGPT的问题，然后在开发工具栏里点击宏图标，选中刚才做的宏，点击Run就可以生成答案了。
加一个按钮的步骤如下：
选择自定义功能区
加入新的组
给加入的组重命名
选择你的宏添加到新的组里
选择一个自己喜欢的图标，并重命名
于是按钮就做好了。只需选中问题然后点击按钮，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
