今天跟大家分享下我们如何使用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才可以，这点一定不要忘记！
以上就是今天分享的内容，有条件的可以动手试一下~