将ChatGPT與Word結合，能實作直接在Word中調用ChatGPT，既能避免繁瑣的複制粘貼步驟，又能更好地照應上下文語境，進而實作無縫對話生成和文檔編輯。本文将介紹如何将ChatGPT嵌入Word，并進一步探索可實作的功能，如批量修改标點符号，擴充大綱等。這樣一來，我們在進行文書工作時，可以極大地節省時間和精力。
ChatGPT嵌入Word步驟
一、所需工具：ChatGPT API、科學上網工具
二、安裝步驟
1、【視圖】-單擊【宏】-輸入名稱-建立宏
2、跳出如下界面
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 = "替換為你的ChatGpt的API"
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
4、【視圖】-右擊-【自定義功能區】
在視圖分組下添加新組
5、點選【新組】，右擊，跳出如下界面
6、左側選擇【宏】-選中第1步建立的宏，點選右側建立好的視圖圖示，點選【添加】
按照如上步驟，則安裝成功。
三、使用步驟
1、用光标選中需要操作的區域，輸入提示詞，再點選視圖下的自定義ChatGPT圖示，則實作調用過程。
如：選中要翻譯的文本和提示詞，點選ChatGPT圖示，則會在下方跳出翻譯文本
翻譯示範
還可以輸入提示詞，對其進行優化。本測試中選取提示詞來源于ChatGPT學術優化。
優化過程展示
總結
利用光标選中文本和提示詞的原理，嵌入Word的ChatGPT可以批量修改标點符号、文本格式，擴充大綱等。免去複制粘貼，能直接在文本中實作指令，能更好考慮上下文語境。
原文作者：李林