在Word中引入OpenAI代码需要使用VBA编辑器 。智能字生以下是化文在Word中引入OpenAI代码的步骤：
打开Word文档，按下Alt + F11键打开VBA编辑器 。
在VBA编辑器中，选择“插入”菜单，然后选择“模块” 。成和
在新建的应用模块中，将OpenAI代码粘贴到模块中。
保存模块并关闭VBA编辑器。智能字生
在Word文档中，选择要应用OpenAI代码的化文文本 。
打开“开发人员”选项卡，然后选择“宏” 。成和
在“宏名称”框中，输入“ChatGPT”（或者你在代码中定义的应用其他名称），然后单击“创建” 。
添加代码：
代码
Option ExplicitSub ChatGPT3()Const apiKey As String = "你的智能字生OPENAI的KEY秘钥"Const modelName As String = "gpt-3.5-turbo"If Selection.Type = wdSelectionNormal ThenDim selectedText As String: selectedText = Replace(Selection.text, ChrW$(13), "")Dim ans As String: ans = GetOpenAIResponse(SendOpenAIRequest(apiKey, modelName, selectedText))Selection.text = selectedText & vbNewLine & ansEnd IfEnd SubFunction SendOpenAIRequest(apiKey As String, modelName As String, prompt As String) As StringWith CreateObject("MSXML2.XMLHTTP").Open "POST", "https://api.openai.com/v1/chat/completions", False.setRequestHeader "Content-Type", "application/json".setRequestHeader "Authorization", "Bearer " & apiKey.send "{""model"":""" & modelName & """, ""messages"":[{""role"":""user"",""content"":""" & prompt & """}], ""temperature"":0.7}"SendOpenAIRequest = .responseTextEnd WithEnd FunctionFunction GetOpenAIResponse(responseText As String) As StringGetOpenAIResponse = Replace(Split(responseText, """content"":""")(1), "\n", "")End Function在空白区域右键，选择自定义功能区：
选择左边方框中的宏，然后右边选择新建组，然后选择刚才创建的ChatGPT,可以重命名，如图：
选择重命名，如图：
输入你要问的问题，然后选中文字，点击ChatGPT即可使用，如下
最终效果：
