解放生产力!chatGPT接入Excel与Word教程(需要魔法上网,不用的都是骗人的) |
您所在的位置:网站首页 › 进化之眼简介 › 解放生产力!chatGPT接入Excel与Word教程(需要魔法上网,不用的都是骗人的) |
解放生产力!chatGPT接入Excel与Word教程(需要魔法上网,不用的都是骗人的)
!!!默认你注册过openAI账号了并使用过chatGPT了,本文就不教如何注册GPT啦,网上全是教程,这里贴一条亲测可用的教程网址!一、创建你的chatGPT API key二、为你的Excel赋予GPT魔法1.创建chatGPT函数(以WPS的Excel为例)2.建立Excel模版,一劳永逸用GPT!
三、为你的Word赋予GPT魔法1.创建VBA模块(以WPS的Word为例)2.建立Word模版,一劳永逸用GPT!
!!!默认你注册过openAI账号了并使用过chatGPT了,本文就不教如何注册GPT啦,网上全是教程,这里贴一条亲测可用的教程网址!
https://www.pythonthree.com/register-openai-chatgpt/ 一、创建你的chatGPT API key前提:请确保你科学上网的小工具是开启的 !!! 登录openAI的个人账户 网址:https://platform.openai.com/;进入右上角“Personal”,点击“view API keys”,就可以进入到获取API keys的界面,keys的作用是为要引入chatGPT的应用软件提供一把开启GPT大门的钥匙(媒介); 在跳转后的界面点击“+create new secret key” ,系统会为你生成一条密钥,你需要复制下来备用。至此,你完成了关键的第一步。 二、为你的Excel赋予GPT魔法 1.创建chatGPT函数(以WPS的Excel为例)先附上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干活啦! 2.建立Excel模版,一劳永逸用GPT!在此建议做一个模版,之后就不用重复设置了,操作也非常简单: 1.“文件”->“另存为”->“xlam”格式。建议保存到模版目录,一般为:C:\Users\lenovo\AppData\Roaming\kingsoft\office6\templates\et\zh_CN; 2.新建Excel文件,“开发工具”->“加载项”,在模版保存目录下浏览选取该文件即可加载。再之后就不用管了,只要魔法上网并且调用“=chatGPT()”函数,就可以基于Excel操作GPT了,再也不用费心去查Excel的操作函数啦! 附上一个小例子: 三、为你的Word赋予GPT魔法 1.创建VBA模块(以WPS的Word为例)先附上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”添加到你想要调用的工具栏里就可以了。 比如我添加到了“开始”页,就可以生成如下按钮: 2.建立Word模版,一劳永逸用GPT!还是一样的,在此建议做一个模版,之后就不用重复设置了,操作也非常简单: 1.“文件”->“另存为”->“dotm”格式; 2.新建Word文件,“开发工具”->“加载项”,在模版保存目录下浏览选取该文件即可加载。后续只要魔法上网,然后,在word里面敲入你想跟chatGPT对话的语段,然后用鼠标选取这些文字,点击“ChatGPT”按钮,就可以获取GPT建议啦! 附上一个小例子: 创作不易,欢迎收藏、转发,谢谢大家~ |
今日新闻 |
推荐新闻 |
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |