ChatGpt接入Word文档，让你秒变职场达人！

投稿用户 • 2023年5月25日 pm11:35 • 生活案例 • 阅读 208

今天跟大家分享下我们如何使用vba代码，将ChatGpt接入Word文档，操作非常的简单，但是开始之前我们需要做2项准备

1. 获取ChatGpt的API

2. 魔法上网

准备好这2件事后，我们就可以着手制作了

一，设置代码

复制下方代码，将代码中的【替换为你的ChatGpt的API】更改为自己的ChatGpt的API，这个代码也是由GPT生成的

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 = "替换为你的ChatGpt的API"
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

二．插入模块

复制代码后，我们在Word文档中点击【开发工具】，然后点击【VisualBasic】进入VBA的编辑界面，点击【插入】找到【模块】，这样的话就会在下方显示一个新的窗口，直接将代码粘贴在里面，关闭vba的编辑界面即可

三、放在一个位置

为了能更快调用ChatGpt，我们可以考虑将其放在Word的功能区，方便调用

首先点击左上角的【文件】然后在【左下角】点击选项来调出Word选项

点击【自定义功能区】在右侧的【常用命令】中选择【宏】

然后在右侧点击【开始】功能组，在下方点击【新建组】，将其放在一个位置，然后将左侧的【ChatGpt】添加到对应的位置中点击确定即可，这样就会将ChatGpt添加到功能区了

四、如何使用

只需选中问题，然后点击添加的ChatGpt按钮即可，至此就设置完毕了，需要注意的在这里我们使用了VBA，如果你想要保存宏代码的话，就需要将Word的格式另存为DOCM才可以，这点一定不要忘记！

以上就是今天分享的内容，有条件的可以动手试一下~

生意营销3大宝：彩铃、定位、认证，一个也不能少，如有需要，添加微信：xnc528 备注：3

本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，请发送邮件至 820277912@qq.com 举报，一经查实，本站将立刻删除。
如若转载，请注明出处：https://www.clzz8.com/45922.html

ChatGpt接入Word文档，让你秒变职场达人！

一，设置代码

二．插入模块

三、放在一个位置

四、如何使用

相关推荐