当前位置:   article > 正文

解放生产力!chatGPT接入Excel与Word教程(需要魔法上网,不用的都是骗人的)_gpt for excel word

gpt for excel word

!!!默认你注册过openAI账号了并使用过chatGPT了,本文就不教如何注册GPT啦,网上全是教程,这里贴一条亲测可用的教程网址!

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

一、创建你的chatGPT API key

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

  1. 登录openAI的个人账户 网址:https://platform.openai.com/;
  2. 进入右上角“Personal”,点击“view API keys”,就可以进入到获取API keys的界面,keys的作用是为要引入chatGPT的应用软件提供一把开启GPT大门的钥匙(媒介);
  3. 在跳转后的界面点击“+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编辑界面里,点击 “模块”“插入” 一个新的模块。
![在这里插入图片描述](https://img-blog.csdnimg.cn/33e3cad0e83d46eb80046303a09a52c9.jpeg
  最后,把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建议啦!

附上一个小例子:
在这里插入图片描述

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

声明:本文内容由网友自发贡献,不代表【wpsshop博客】立场,版权归原作者所有,本站不承担相应法律责任。如您发现有侵权的内容,请联系我们。转载请注明出处:https://www.wpsshop.cn/w/花生_TL007/article/detail/144091
推荐阅读
相关标签
  

闽ICP备14008679号