ChatGPT 憑藉其先進的文字生成功能，可以徹底改變您與 Microsoft Word 的互動方式，從而提高您的工作效率和學習體驗。本文提供了將 ChatGPT 與 Microsoft Word 整合的詳細逐步指南。此外，它還提供瞭如何在 Word 中使用 ChatGPT 的說明性範例，展示了這種強大組合的實際好處。
在本節中，我們將探討如何使用 VBA 程式碼將 ChatGPT 整合到 Microsoft Word 中。這種整合有望徹底改變文件建立和編輯，將 ChatGPT 的 AI 功能與 Word 的功能結合。
步驟1：將VBA程式碼加入Word文件中
開啟新的空白 Word 文件，然後按 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。
然後，單擊 插入 > 模塊，將以下代碼複製並粘貼到打開的空白模塊中： VBA 程式碼：將 ChatGPT 整合到 Word 中
Sub ChatGPT()
'Updateby Extendoffice
Dim status_code As Integer
Dim response As String
OPENAI = "https://api.openai.com/v1/chat/completions"
api_key = "sk-***************************** "
If api_key = "" Then
MsgBox "Please enter the API key."
Exit Sub
ElseIf Selection.Type <> wdSelectionNormal Then
MsgBox "Please select text."
Exit Sub
End If
SendTxt = Replace(Replace(Replace(Replace(Selection.text, vbCrLf, ""), vbCr, ""), vbLf, ""), Chr(34), Chr(39))
SendTxt = "{""model"": ""gpt-3.5-turbo"", ""messages"": [{""role"":""system"", ""content"":""You are a Word assistant""} ,{""role"":""user"", ""content"":""" & SendTxt & """}]}"
Set Http = CreateObject("MSXML2.XMLHTTP")
With Http
.Open "POST", OPENAI, False
.setRequestHeader "Content-Type", "application/json"
.setRequestHeader "Authorization", "Bearer " & api_key
.send SendTxt
status_code = .Status
response = .responseText
End With
If status_code = 200 Then
Set regex = CreateObject("VBScript.RegExp")
With regex
.Global = True
.MultiLine = True
.IgnoreCase = False
.Pattern = """content"": ""(.*)"""
End With
Set matches = regex.Execute(response)
If matches.Count > 0 Then
response = matches(0).SubMatches(0)
response = Replace(Replace(response, "\n", vbCrLf), "\""", Chr(34))
Selection.Range.InsertAfter vbNewLine & response
End If
Else
Debug.Print response
End If
Set Http = Nothing
End Sub
注意：
在上面的程式碼中，您應該替換 API 金鑰“sk-********************************「用你自己的鑰匙。
釋放 Microsoft Word 中 AI 的力量 Kutools 人工智慧助手，現在具有 ChatGPT 集成功能！能夠以多種風格重寫內容、輕鬆生成客製化內容以及立即總結冗長的文檔，從而改變您的寫作體驗。和 Kutools 人工智慧助手，提高您的工作效率並釋放創造力，讓每個字都發揮作用。簡化您的工作流程、節省時間並實現無與倫比的卓越寫作。立即使用 ChatGPT 和 Kutools AI Assistant 升級到文件編輯的未來！
安裝 Kutools for Word 後，請按一下 Kutools人工智慧 > AI助手 打開 Kutools 人工智慧助手 窗格。
用各種風格重寫內容
使用 Kutools AI Assistant 的重寫功能提升您在 Word 中的寫作！無論您的目標是正式的語氣、渴望創意才華還是需要簡潔明了，此工具都能無縫地調整您的文字以適應場合。只需點擊幾下，即可將您的文件轉變為風格和實質的傑作。
在 Kutools 人工智慧助手 窗格，請依照下列步驟操作：
選擇需要重寫的內容；
下 改寫 選項卡，從中選擇您需要的寫作風格 寫作風格 下拉列表;
然後，點擊 送出 按鈕開始重寫。所選內容將以您在中指定的所需樣式重寫 產生 框。
提示：
取得新內容後，您可以點擊 複製 按鈕將內容複製到任何位置，或按一下 插入 按鈕替換選定的原始文字。
產生客製化內容
使用 Kutools AI Assistant 的客製化內容產生功能改變您的文件創建過程。無論是製作詳細的報告、撰寫引人注目的電子郵件還是開發引人入勝的演示文稿，Kutools AI Assistant 都能將您的想法轉化為精美的、隨時可用的文本。讓 Kutools AI Assistant 成為您成功寫作的合作夥伴，客製化能引起共鳴和令人印象深刻的內容。
在 Kutools 人工智慧助手 窗格，請依照下列步驟操作：
下 構成 在選項卡中，選擇或輸入提示文字 提示類型 框;
點擊 產生提示範例 按鈕產生提示文字；（您可以根據需要修改關鍵資訊）
然後，單擊 送出 按鈕開始產生內容；
生成內容後，您可以點擊 複製 將其複製到任意位置或單擊 插入 將其插入到文件中的目前遊標位置。
總結整個文件或選擇
使用 Kutools AI Assistant 輕鬆將冗長的文檔壓縮為簡潔的摘要。該工具非常適合快速概覽或提取關鍵點，可將複雜的資訊簡化為易於理解的片段，從而節省您的時間並增強理解。無論是學術研究、商業報告，或是日常閱讀，Kutools AI Assistant都能讓你一鍵掌握大量文本的精髓。
在 Kutools 人工智慧助手 窗格，請依照下列步驟操作：
點擊 總結 在標籤 Kutools 人工智慧助手 窗格
選擇匯總類型，然後按一下 送出 按鈕。然後，將產生選擇或目前文件的摘要。
• 總結所選內容：先選擇您要總結的內容，然後點選 送出 按鈕位於該選項旁。
• 總結整個文檔：要總結整個文檔，只需單擊 送出 該選項旁邊的按鈕。
在 Word 中更好地使用 ChatGPT 的提示
在 Microsoft Word 中有效使用 ChatGPT 很大程度取決於製作正確的提示。以下指南可協助您透過使用適當的提示來充分利用 Word 中 ChatGPT 的潛力：
VBA 視窗中的 按鈕，或按一下 文本生成器 按鈕，幾秒鐘後將產生一篇文章，如下示範所示：
