ChatGPT 凭借其先进的文本生成能力,将彻底革新您与 Microsoft Word 的互动方式,显著提升您的工作效率和学习体验。本文将为您详细介绍如何将 ChatGPT 集成到 Microsoft Word,并通过实例展示 ChatGPT 在 Word 中的实际应用效果,助您充分释放这一强大组合的价值。
本节将为您介绍如何通过 VBA 代码将 ChatGPT 集成到 Microsoft Word 中。通过这种集成,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-*****************************”替换为您自己的密钥,立即体验专属服务。
释放 AI 在 Microsoft Word 中的强大优势,KUTOOLS AI 助手现已集成 ChatGPT!无论是多种风格重写、一键生成定制内容,还是瞬间概括长文档,都将彻底革新您的写作体验。借助 KUTOOLS AI 助手,高效提升工作效率,激发无限创意,让每一次字数统计都更加精准高效。优化工作流程,节省宝贵时间,助您成就卓越写作新高度。立即升级 ChatGPT 与 KUTOOLS AI 助手,开启文档编辑新未来!
在安装 Kutools for Word 后,请点击 KUTOOLS AI > AI 助手,即可打开 KUTOOLS AI 助手窗格。
以多种风格重写内容
借助 KUTOOLS AI 助手的重写功能,让您的 Word 写作焕发新活力!无论您需要正式、创意还是简洁的表达风格,这一工具都能灵活适应,助您轻松切换文档风格。只需简单几步,即可让您的内容与风格完美融合,轻松打造出色文档。
在 KUTOOLS AI 助手窗格中,请按如下步骤操作:
选中您需要重写的内容;
在重写选项卡下,从润色风格中选择所需风格润色风格下拉列表;
接着,点击发送按钮即可开始重写。所选内容将根据您在生成框中设定的风格进行重写。
提示:
在获得新内容后,您可以点击复制按钮,将内容复制到任意位置,或点击插入按钮,直接替换选中的原文本。
生成专属定制内容
通过 KUTOOLS AI 助手的定制内容生成功能,全面革新您的文档创作流程。无论是撰写详尽报告、拟写精彩邮件,还是制作引人注目的演示文稿,KUTOOLS AI 助手都能将您的创意打磨为精美、即用的文本。让 KUTOOLS AI 助手成为您写作的得力助手,助您打造专属优质内容,轻松打动受众,赢得青睐。
在 KUTOOLS AI 助手窗格中,请按如下步骤操作:
在自动写作选项卡下,选择或输入提示文本到提示类型框内;
单击生成提示词例子按钮,可生成提示词文本;(您可以根据需要修改关键信息)
然后,点击发送按钮,开始生成内容;
内容生成后,您可以点击复制,即可将内容复制到任意位置;或点击插入,即可将内容插入到文档当前光标处。
对整份文档或所选内容进行总结
借助 KUTOOLS AI 助手,您可以高效将冗长文档浓缩为简明摘要。无论是快速浏览还是提取关键信息,该工具都能将复杂内容精炼为清晰易懂的要点,助您节省时间、提升效率、全面掌握核心内容。无论是学术研究、商务报告,还是日常阅读,KUTOOLS AI 助手都能帮您一键提炼长文精华。
在 KUTOOLS AI 助手窗格中,请按如下步骤操作:
单击 KUTOOLS AI 助手窗格中的摘要选项卡;
请选择摘要类型,然后点击发送按钮。系统将为您生成所选内容或当前文档的摘要。
•在文档中查找问题答案及其来源内容:首先,选中您需要总结的内容,然后点击旁边的发送按钮。
•总结当前整个文档的内容:只需点击发送按钮(位于此选项旁),即可快速总结当前整个文档的内容。
Word 中高效使用 ChatGPT 的技巧
要高效利用 ChatGPT,关键在于在 Microsoft Word 中精心设计提示词。以下指南将助您在 Word 中充分释放 ChatGPT 的潜能,撰写出精准且高效的提示词: