ChatGPT最新接入word方法（完美debug）
導(dǎo)語
之前分享了一篇，將ChatGPT嵌入word，不少老師與同學(xué)們反映在復(fù)現(xiàn)時報錯。經(jīng)過廣泛搜尋，小編找到了另一個方法。
ChatGPT嵌入Word步驟
一、所需工具：ChatGPT API、科學(xué)上網(wǎng)工具
二、安裝步驟
1、【視圖】-單擊【宏】-輸入名稱【ChatGPTXR_Word】-創(chuàng)建宏
2、跳出如下界面
3、在其中輸入如下代碼：
Public previousAnswer As String
Public previousAnswer_time As String
Public character_count As String
Public character_count_time As String
Sub ChatGPTXR_Word()
Dim http As Object
Set http = CreateObject("MSXML2.XMLHTTP")
Dim url As String
url = "https://gpt.sinraytec.cn/chatgpt_word.php"
Dim data As String
previousAnswer_time = InputBox("請輸入你的問題:", "ChatGPT New Chat", previousAnswer)
If previousAnswer_time <> "" Then
previousAnswer = previousAnswer_time
End If
If previousAnswer_time = "" Then
Exit Sub
End If
character_count_time = InputBox("你想生成的最大字符數(shù):", "ChatGPT New Chat", character_count)
If character_count_time <> "" Then
character_count = character_count_time
End If
If character_count_time = "" Then
MsgBox "記得輸入需要最大的字符數(shù)量哈"
Exit Sub
End If
data = "prompt=" & previousAnswer_time & "&zishu=" & character_count_time & "&api_key=替換為自己的API"
http.Open "POST", url, False
http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
http.send data
Dim result As String
result = http.responseText
Selection.TypeText result
End Sub
注意public與sub的位置關(guān)系如下圖：
4、【視圖】-右擊-【自定義功能區(qū)】
5、點擊【新組】，右擊，跳出如下界面
6、左側(cè)選擇【宏】-選中第1步創(chuàng)建的宏，點擊右側(cè)創(chuàng)建好的視圖圖標，點擊【添加】
按照如上步驟，則安裝成功。
三、使用步驟
點擊圖標，跳出框框，在框內(nèi)輸入指令即可
最后附上操作視頻：
總結(jié)
利用光標選中文本和提示詞的原理，嵌入Word的ChatGPT可以批量修改標點符號、文本格式，擴充大綱等。免去復(fù)制粘貼，能直接在文本中實現(xiàn)指令，能更好考慮上下文語境。
特別說明：本文僅供學(xué)習(xí)交流，如有不妥歡迎后臺聯(lián)系小編。- END -
翻譯技術(shù)教育與研究ChatGPT專題組致力于探索發(fā)掘ChatGPT為代表的AI工具在語言服務(wù)不同階段的應(yīng)用，進而提高從業(yè)者的工作效率。專題小組目前的主要方向是探索提示詞(prompt)及流程變更如何提升交互效果；了解及推介Github等平臺上的AI應(yīng)用，AI應(yīng)用嵌入語言服務(wù)流程及其優(yōu)化方式。小組通過定期會議及討論確定選題方向并通過文章、視頻等形式分享探索結(jié)果，歡迎通過文章留言為大家提供建議意見！
原文作者：李林
推文編輯：李林
