ChatGPT可以在很多方便帮助大家，而且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
手机工具app
手机工具app是一手机为载体的实用工具，不同的手机工具app整合不同功能，生活和工作中多种问题都能通过轻松解决，为大家省去各种实体工具麻烦，需要的朋友快来下载吧。
共收集1360款应用
chatGPT中文版
chatGPT最近一款非常火的智能聊天软件，这款软件可以帮你完成各种语言上的问题，还可以帮你生成文案，让你的生活更加的便捷，帮助用户扩展知识领域，一起来下载使用吧。
共收集37款应用
类似chatGPT
最近有哪些类似chatGPT的软件？这类软件还是很多的，可以帮助各位用户生成精致的文案，还能帮助各位用户代码生成创作撰写，接下来小编就为各位用户推荐一些这类免费软件。
共收集28款应用
聊天AI软件
聊天AI软件有哪些？有没有免费的聊天AI软件？很多用户们最近都在寻找这类软件，ChatGPT适用场景非常多，这类软件功能使用都是很强大轻松的，有需要的千万不要错过哦。
共收集65款应用
CHATGPT APP是一个基于智能AI的互动问答和查询软件，可以让大家和智能AI进行对话，获得需要的知识和答案，操作简单，模拟人类对话方式，理解更加的深入。CHATGPT APP有强大的学习能力，不限制时间和地点，提供个性化的服务。