在Word中引入OpenAI代碼需要使用VBA編輯器。以下是在Word中引入OpenAI代碼的步驟：
-
打開(kāi)Word文檔，按下Alt + F11鍵打開(kāi)VBA編輯器。
-
在VBA編輯器中，選擇“插入”菜單，然后選擇“模塊”。
-
在新建的模塊中，將OpenAI代碼粘貼到模塊中。
-
保存模塊并關(guān)閉VBA編輯器。
-
在Word文檔中，選擇要應(yīng)用OpenAI代碼的文本。
-
打開(kāi)“開(kāi)發(fā)人員”選項(xiàng)卡，然后選擇“宏”。
-
在“宏名稱”框中，輸入“ChatGPT”（或者你在代碼中定義的其他名稱），然后單擊“創(chuàng)建”。
添加代碼：
代碼
Option Explicit
Sub ChatGPT3()
Const apiKey As String = "你的OPENAI的KEY秘鑰"
Const modelName As String = "gpt-3.5-turbo"
If Selection.Type = wdSelectionNormal Then
Dim selectedText As String: selectedText = Replace(Selection.text, ChrW$(13), "")
Dim ans As String: ans = GetOpenAIResponse(SendOpenAIRequest(apiKey, modelName, selectedText))
Selection.text = selectedText & vbNewLine & ans
End If
End Sub
Function SendOpenAIRequest(apiKey As String, modelName As String, prompt As String) As String
With 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 = .responseText
End With
End Function
Function GetOpenAIResponse(responseText As String) As String
GetOpenAIResponse = Replace(Split(responseText, """content"":""")(1), "\n", "")
End Function
在空白區(qū)域右鍵，選擇自定義功能區(qū)：
選擇左邊方框中的宏，然后右邊選擇新建組，然后選擇剛才創(chuàng)建的ChatGPT,可以重命名，如圖：
選擇重命名，如圖：
輸入你要問(wèn)的問(wèn)題，然后選中文字，點(diǎn)擊ChatGPT即可使用，如下
最終效果：
文章來(lái)源：http://www.zghlxwxcb.cn/news/detail-434366.html
?教程鏈接戳這里：掌握AI-掌控未來(lái)-學(xué)習(xí)視頻教程-騰訊課堂文章來(lái)源地址http://www.zghlxwxcb.cn/news/detail-434366.html
到了這里，關(guān)于ChatGPT+Word的智能化文字生成和應(yīng)用的文章就介紹完了。如果您還想了解更多內(nèi)容，請(qǐng)?jiān)谟疑辖撬阉鱐OY模板網(wǎng)以前的文章或繼續(xù)瀏覽下面的相關(guān)文章，希望大家以后多多支持TOY模板網(wǎng)！
