ChatGPT接入Word,让你提升工作效能

ChatGPT接入Word，是需要使用OpenAI的API的，所以我们需要接入前，需要准备两件事：

1、获取openAI的API

2、需要魔法上网

对于上面准备的两件事，这里只对1来罗列操作，至于2魔法上网，这个家人们自行处理。

一、获取openAI的API

1、登录openAI：https://platform.openai.com/；

2、进入后，右上角“Personal”，点击“view API keys”

3、进入后，点击“+create new secret key”，系统为你生成一条密匙，复制下来作为后面使用。

二、Word接入ChatGPT

以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

1、在Word中找到 “开发工具” ，点击后可以看到 “VBA编辑器” ，点进去，进入到VBA编辑界面，点击“模板”，“插入”一个新的模板

将上述的vba源码复制粘贴进去，注意：将api key替换为第一步中复制的内容，然后保存。

再进入 “开发工具” ，点击 “VB宏”，你就可以看到有个宏名为“chatGPT”的宏了，将“宏的位置”设置为“所有活动模版和文档”；

2、通过“文件”，“选项”，“自定义功能区”，通过“宏”，将“模块1：ChatGPT”添加到你想要调用的工具栏里就可以了。

3、如何使用

只需选中问题，然后点击添加的ChatGpt按钮即可，至此就设置完毕了

PS：因公众号平台更改了推送规则，如果不想错过内容，记得读完点一下“在看”，加个“星标”，这样每次新文章推送才会第一时间出现在你的订阅列表里。
点“在看”支持，谢谢啦