解放生产力！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

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

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编辑界面里，点击 “模块” ，“插入” 一个新的模块。

  最后，把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建议啦！

附上一个小例子：

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