办公软件Word,是我们日常的文字工作的常用工具。
不同的版本和平台,可能有些差异,需要根据实际情况来调整。我的版本信息:
如图操作
如图操作
复制下列代码
vbnet复制代码 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
到此宏VB的编写完成。
这一步的主要目标是在Word菜单栏,新建一个调用的入口
打开文件→选项→自定义功能区(跟第一步一样)
在自定义功能区,先新建选项卡,再新建组,然后在宏下面把上一步创建的宏放到里面:如下图操作
下载JsonConverter.bas,放在本地,然后在VB编辑窗口,文件→导入文件
需要打开的有如下:
把启用所有宏打开
到此,现在的使用过程会非常丝滑。这个打通了,其中在Office的办公软件如Excel,PPT都可以接入!!!
原创声明:本文系作者授权腾讯云开发者社区发表,未经许可,不得转载。
如有侵权,请联系 cloudcommunity@tencent.com 删除。
原创声明:本文系作者授权腾讯云开发者社区发表,未经许可,不得转载。
如有侵权,请联系 cloudcommunity@tencent.com 删除。