Word接入ChatGPT的VB代码

    时间: 浏览:1217次  来源:站长在线
欢迎你来到站长在线的代码库,本文的代码是《Word接入ChatGPT的VB代码》我们在Word里面接入ChatGPT的时候,用到的代码段,注意里面要切换自己的apikey哦!

下面是word接入chatgpt的VB代码

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 = "你的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
本文地址:https://www.olzz.com/word-chatgpt.html
码字不易,打个赏呗
杨泽业感谢你的支持!

猜你喜欢

Word接入ChatGPT的VB代码

欢迎你来到站长在线的代码库,本文的代码是《Word接入ChatGPT的VB代码》我们在Word里面接入ChatGPT的时候,用到的代码段,注意里面要切换自己的apikey哦!

2023-05-03  分类:HTML代码  浏览:1218次


无需科学上网,体验ChatGPT一样人工智能的新版bing图文教程

我今天下午收到了新版bing的邮件,内容大意是,前几天申请的新版bing体验,已经通过审核,现在可以正式体验了。刚才体验了一番,使用效果,的确是比Cha

2023-02-24  分类:行业资讯  浏览:1533次


新的WordPress博客安装以后需要做些什么?

今天,站长在线(olzz.com)也开通了官方博客网站--站长博客,域名使用二级域名blog.olzz.com,今天,站长在线站长变身成为了独立博客的博主了。 接下来,站长博客博主就来谈谈新建WordPress以后,需要做一些什么?

2020-05-01  分类:建站知识  浏览:1364次


解决WordPress安装插件的时候出现安装失败:无法创建目录的问题

今天在更新WordPress博客的时候,自己本来是想删除网站里面的wp-includes和wp-admin两个文件夹的,可是不知道自己手有问题还是眼睛有问题,居然把wp-con

2020-05-01  分类:建站知识  浏览:1994次