共计 1155 个字符，预计需要花费 3 分钟才能阅读完成。
ChatGPT 是人工智能研究实验室 OpenAI 在 2022 年发布的聊天机器人模型，可以帮助用户解决复杂的问题。本文将介绍如何将 ChatGPT 接入微软 Word 文档。无需翻墙，直接可以使用 ChatGPT 功能。
1. 在 Word 里添加宏程序
打开 Word 选择 视图 ，点击 宏，选择 查看宏。
在 宏界面 输入宏名为 ChatGPT，点击 创建。
在 ChatGPT 工程写上 VB 代码，最后保存。
代码如下：
Sub ChatGPT()Dim selectedText As StringDim apiKey As StringDim response As Object, re As StringDim midString As StringDim ans As StringIf Selection.Type = wdSelectionNormal ThenselectedText = Selection.TextselectedText = Replace(selectedText, ChrW$(13), “”)appKey = “ 我的 AppKey”apiKey = “ 我的 apiKey”URL = ” Set response = CreateObject(“MSXML2.XMLHTTP”)response.Open “POST”, URL, Falseresponse.setRequestHeader “Content-Type”, “application/json”response.setRequestHeader “Authorization”, appKeyresponse.Send “{“”apiKey””:””” & apiKey & “””,””model””:””gpt-3.5-turbo-0301″”, “”messages””:[{“”role””:””user””,””content””:””” & selectedText & “””}], “”temperature””:0.3}”re = response.responseTextmidString = Mid(re, InStr(re, “””content””:”””) + 11)ans = Split(midString, “”””)(0)ans = Replace(ans, “\n”, “” & vbCrLf & “”)Selection.Text = selectedText & vbNewLine & ansElseExit SubEnd IfEnd Sub
2. 在 Word 工具栏添加 ChatGPT
在 开始栏 右键并选择 自定义功能区 ，在中 从下列位置选择命令 选择。
选择之后下面显示刚才创建的 宏程序。
选择 ChatGPT 宏代码，在右侧选择 开始 ，点击 新建组 ，命令显示名称为 执行。
点击 添加 将添加到 组下，命名为 ChatGPT，再点击 确定
点击之后，在显示 ChatGPT。
试一试 ChatGPT 功能吧!
#ChatGPT#
