请选择 进入手机版 | 继续访问电脑版
查看: 2736|回复: 1

Office 中接入 ChatGPT 详细教程

[复制链接]

171

主题

11

回帖

22万

积分

开发人员

积分
220771
发表于 2023-5-5 08:53:17 | 显示全部楼层 |阅读模式
本文由THE.AI开发者徽药原创,阅读时间:约5分钟,学习难度:容易。(联系方式:微信feeltingdays)

所需工具:Micrrosoft office 365(word2007以上版本均可)、APIKEY、反向代理

1.点击视图-宏
11.jpg

2.宏名输入ChatGPT,点创建
12.jpg

3.复制粘贴以下代码
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 = "your_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

把APIKEY填写替换your_api_key,https://api.openai.com/v1/chat/completions这个官方接口,中国地区无法直接访问,所以中国地区只有使用反向代理,这个可以自己配置或者向我联系。
13.jpg

修改代码保存后,关闭宏窗口,右键点击左侧空白处,选择自定义功能区。
14.jpg

先点击右侧新建组,左侧点击常用命令,下拉菜单选择宏,选择Normal.Newmacros.ChatGPT,添加。
接着点击新建组下的Normal.NewMacros.ChatGPT,重命名为ChatGPT,同时可以自定义图标。

ar.gif
点击视图,右侧出现ChatGPT图标即可。
下面我们进行下测试,输入重庆美食推荐,选中文字,点击图标,稍等片刻,成功得到结果。

1.gif



未安装office的可以查看:office 365安装图文教程
没有APIKEY的可通过商城购买:点击访问商城
在THEAI商城购买APIKEY的,赠送反向代理

0

主题

1

回帖

6

积分

新手上路

积分
6
发表于 2023-11-16 15:50:40 | 显示全部楼层
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则