解放生产力！chatGPT接入Excel与Word教程（需要魔法上网，不用的都是骗人的）

https://www.pythonthree.com/register-openai-chatgpt/

前提：请确保你科学上网的小工具是开启的 !!!

先附上vba源码：

Function ChatGPT(prompt As String) As String   Dim url As String, apiKey As String   Dim response As Object, re As String   Dim midString As String   apiKey = “把之前获取到的chatGPT的API key复制粘贴到这里”   url = “https://api.openai.com/v1/engines/text-davinci-003/completions”   Set response = CreateObject(“MSXML2.XMLHTTP”)   response.Open “POST”, url, False   response.setRequestHeader “Content-Type”, “application/json”   response.setRequestHeader “Authorization”, “Bearer " + apiKey   response.Send “{”“prompt””:“”" & prompt & “”“,”“max_tokens”“:1024, ““temperature””:0.1}”   re = response.responseText   midString = Mid(re, InStr(re, “”“text”“:”“”) + 8)   ChatGPT = Split(midString, “”“”)(0)   ChatGPT = Replace(ChatGPT, “\n”, “”) End Function

  在Excel中找到 “开发工具” ，点击后可以看到 “VBA编辑器” ，点进去，进入到VBA编辑界面。   然后，在VBA编辑界面里，点击 “模块” ，“插入” 一个新的模块。   最后，把vba源码复制粘贴到新建立的模块中去，将api key内容替换，再保存即可。   “至此，恭喜你，你拥有了属于自己的魔法Excel！”  随意在单元格内输入“=chatGPT()”,就可以调用GPT干活啦！

  在此建议做一个模版，之后就不用重复设置了，操作也非常简单：   1.“文件”->“另存为”->“xlam”格式。建议保存到模版目录，一般为：C:\Users\lenovo\AppData\Roaming\kingsoft\office6\templates\et\zh_CN；   2.新建Excel文件，“开发工具”->“加载项”，在模版保存目录下浏览选取该文件即可加载。再之后就不用管了，只要魔法上网并且调用“=chatGPT()”函数，就可以基于Excel操作GPT了，再也不用费心去查Excel的操作函数啦！

附上一个小例子：

先附上vba源码：

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 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

  接下来的流程跟Excel操作大同小异，这里就不附图了：   1.在Excel中找到 “开发工具” ，点击后可以看到 “VBA编辑器” ，点进去，进入到VBA编辑界面；   2.然后，在VBA编辑界面里，点击 “模块” ，“插入” 一个新的模块；   3.再把vba源码复制粘贴到新建立的模块中去，将api key内容替换，再保存即可。而后，再进入 “开发工具” ，点击 “VB宏”，你就可以看到有个宏名为“chatGPT”的宏了，将“宏的位置”设置为“所有活动模版和文档”；

  4.最后，通过“文件”，“选项”，“自定义功能区”，通过“宏”，将“模块1：ChatGPT”添加到你想要调用的工具栏里就可以了。   比如我添加到了“开始”页，就可以生成如下按钮：

  还是一样的，在此建议做一个模版，之后就不用重复设置了，操作也非常简单：   1.“文件”->“另存为”->“dotm”格式；   2.新建Word文件，“开发工具”->“加载项”，在模版保存目录下浏览选取该文件即可加载。后续只要魔法上网，然后，在word里面敲入你想跟chatGPT对话的语段，然后用鼠标选取这些文字，点击“ChatGPT”按钮，就可以获取GPT建议啦！

附上一个小例子：

  创作不易，欢迎收藏、转发，谢谢大家~