ChatGPT 凭借其先进的文本生成功能，可以彻底改变您与 Microsoft Word 的交互方式，从而提高您的工作效率和学习体验。本文提供了将 ChatGPT 与 Microsoft Word 集成的详细分步指南。此外，它还提供了如何在 Word 中使用 ChatGPT 的说明性示例，展示了这种强大组合的实际好处。
在本节中，我们将探讨如何使用 VBA 代码将 ChatGPT 集成到 Microsoft Word 中。这种集成有望彻底改变文档创建和编辑，将 ChatGPT 的 AI 功能与 Word 的功能相结合。
步骤1：将VBA代码添加到Word文档中
打开一个新的空白 Word 文件，然后按 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。
然后，单击 插页 > 模块，将以下代码复制并粘贴到打开的空白模块中： 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 窗口中的 按钮，或单击 文本生成器 按钮，几秒钟后将生成一篇文章，如下演示所示：
