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有强大的学习能力,不限制时间和地点,提供个性化的服务。
