Office 中接入 ChatGPT 详细教程

网工西红柿

所需工具：Micrrosoft office 365（word2007以上版本均可）、APIKEY、反向代理

1.点击视图-宏


2.宏名输入ChatGPT，点创建


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这个官方接口，中国地区无法直接访问，所以中国地区只有使用反向代理，这个可以自己配置或者向我联系。


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


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

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