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
手机工具app是一手机为载体的实用工具,不同的手机工具app整合不同功能,生活和工作中多种问题都能通过轻松解决,为大家省去各种实体工具麻烦,需要的朋友快来下载吧。
共收集1023款应用
CHATGPT APP是一个基于智能AI的互动问答和查询软件,可以让大家和智能AI进行对话,获得需要的知识和答案,操作简单,模拟人类对话方式,理解更加的深入。CHATGPT APP有强大的学习能力,不限制时间和地点,提供个性化的服务。
[跳转]多米诺村友
休闲益智
查看
全民枪神边境王者
角色扮演
查看
神仙光子游戏
枪战射击
查看
虐神传说游戏
动作格斗
查看
图解犯罪
角色扮演
查看
迷宫情侣大作战
休闲益智
查看
锤子高手
休闲益智
查看
大唐阴阳师
角色扮演
查看
氪星新星之旅
角色扮演
查看