所需工具：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图标即可。
下面我们进行下测试，输入重庆美食推荐，选中文字，点击图标，稍等片刻，成功得到结果。
|
