《新手小白》如何将ChatGPT集成到MicrosoftWord中详细教程

126次阅读

1. 在 MS Word 中使用 ChatGPT 的好处

ChatGPT 可用于改进您的写作并在 Microsoft Word 中为您生成内容。查看在 Word 中使用它的一些方法 –

根据职位描述为职位量身定制简历
为博客文章或文章生成内容
为您总结冗长的报告
为社交媒体帖子提供建议
为电子邮件和提案创建模板
帮助非母语人士翻译成其他语言

2. 如何在 Microsoft Word 中使用 ChatGPT

使用 ChatGPT 插件将 ChatGPT 集成到 MS Word 中从未如此简单。您可以使用下面的链接下载插件。它是完全免费的，并且可以在所有版本的 Office Desktop 和 Office 365 上运行。此外，使用此加载项没有任何先决条件。

下载插件 https://github.com/deepanshu88/MSWord_ChatGPT/raw/main/ChatGPT.dotm

获取 OpenAI API 密钥：首先，您需要使用此链接访问 OpenAI 网站进行注册 – platform.openai.com。通过使用您现有的 Google 或 Microsoft 帐户，您可以轻松做到这一点。最后一步是获取 秘密 API 密钥 以使用 OpenAI API。复制您的 API 密钥以供将来参考。API 密钥看起来像下面的文本

sk-xxxxxxxxx

安装插件的步骤

Microsoft 阻止外部加载项文件并表示此文件的来源不受信任。要使文件可信，您需要按照以下步骤操作。

要使加载项在您每次启动 MS Word 时都可用，您可以将其保存在 “启动” 文件夹中。请按照以下步骤操作。

转到文件 > 选项 > 高级。
向下滚动到 General 并单击File Locations。
单击 “启动” > “修改”，然后您有两个选择 – 找到存储下载的加载项文件的文件夹。或者除了更改 Startup 文件夹位置之外，您还可以将加载项粘贴到现有的 Startup 文件夹中。
建议使用后一个选项。如果您更喜欢第一个选项，请确保创建一个新文件夹并将下载的加载项文件放在那里，然后将启动文件夹的位置导航到这个新文件夹。这是因为如果您使用一个文件夹，例如 Download/Documents 文件夹，其中可能包含如此多的 Word 文件，MS Word 很可能会崩溃。

如何使用 ChatGPT 插件

按照以下步骤使用适用于 MS Word 的 ChatGPT 插件。

简历生成器

您可以使用此插件生成简历。请务必提供清晰详细的提示，以便 ChatGPT 根据您的要求生成简历。始终具体并尝试使用多个提示以获得最佳结果。请参阅下面的一些示例 –

为 [Profile Name] 写一份专业简历。我有 [N] 年的经验。我过去的头衔和公司是[头衔，公司名称]。包括要点。

为数据科学家写一份专业简历。我有 5 年的经验。我过去的头衔和公司是分析师，XX 银行，团队负责人，XXX。包括要点。

根据此职位描述为 [Profile Name] 写一份简历。[在此处添加职位描述]

电子邮件写作

您可以要求 ChatGPT 插件为您起草电子邮件。无论您需要向同事或朋友发送正式的商务电子邮件还是友好的消息，ChatGPT 都可以帮助您撰写专业且起草良好的消息。您只需提供电子邮件的目的和一些上下文，ChatGPT 就会为您生成一封写得很好的电子邮件。您还可以选择电子邮件的语气。

明天给经理写一封关于病假的电子邮件。我的经理叫张三。我叫李四。

明天给同事写一封关于事假的电子邮件。我的同事王二。我叫李四。语气应该是非正式的。

指定语气也很好——正式 / 非正式 / 幽默。

总结写作

ChatGPT 插件可用于为您汇总冗长的 word 文档。例如，您有一个很长的文档，您需要根据它创建摘要。阅读全文然后写摘要可能既费时又无聊。

用要点总结下面的文本 – [在此处粘贴文本]

如何设置 ChatGPT 输出的样式？

您可以通过将以下行添加到您询问 ChatGPT 的提示的末尾来设置 MS Word 文档的样式

突出显示深蓝色的标题。

为软件工程师写一份简历。突出显示深蓝色的标题。

包括要点。
请将文本格式设置为斜体。
文字应为红色。

在下一节中，我们将看到此插件的源代码。如果您对了解源代码不感兴趣，可以跳过下一节。加载项和 VBA 代码的用途相同。

使用加载项的好处是它会在您每次打开新的 word 文档时自动打开。而 MS Word 宏文件特定于特定的 word 文档。您必须每次打开相同的宏文件才能访问 ChatGPT。此外，加载项还会在 word 文档中执行格式化。

3. 在 MS Word 中运行 ChatGPT 的 VBA 代码

您可以使用下面的 VBA 代码在 MS Word 中运行 ChatGPT。确保更改 API 密钥

Sub chatGPT() Dim request As Object Dim text As String, response As String, API As String, api_key As String, DisplayText As String, error_result As String Dim startPos As Long, status_code As Long Dim prompt As String Dim selectedText As range 'API Info API = "https://api.openai.com/v1/chat/completions" 'API Key api_key = "sk-xxxxxxxxxxxx" If api_key = "" Then MsgBox "Error: API key is blank!" Exit Sub End If ' Prompt the user to select text in the document If Selection.Type <> wdSelectionIP Then prompt = Trim(Selection.text) Set selectedText = Selection.range Else MsgBox "Please select some text before running this macro." Exit Sub End If 'Cleaning text = Replace(prompt, Chr(34), Chr(39)) text = Replace(text, vbLf, "") text = Replace(text, vbCr, "") text = Replace(text, vbCrLf, "") ' Remove selection Selection.Collapse 'Create an HTTP request object Set request = CreateObject("MSXML2.XMLHTTP") With request .Open "POST", API, False .setRequestHeader "Content-Type", "application/json" .setRequestHeader "Authorization", "Bearer " & api_key .send "{""model"": ""gpt-3.5-turbo"", ""messages"": [{""content"":""" & text & """,""role"":""user""}]," _ & """temperature"": 1, ""top_p"": 0.7}" status_code = .Status response = .responseText End With 'Extract content If status_code = 200 Then Result = Split(response, """,""") For i = LBound(Result) To UBound(Result) If InStr(Result(i), "content") > 0 Then startPos = i Exit For End If Next i DisplayText = Mid(Result(startPos), InStr(Result(startPos), ":") + 2, InStr(Result(startPos), """},")) DisplayText = Mid(DisplayText, 1, InStr(DisplayText, """},") - 1) DisplayText = Replace(DisplayText, """", Chr(34)) DisplayText = Replace(DisplayText, " ", vbLf) 'Insert response text into Word document selectedText.InsertAfter vbNewLine & DisplayText Else startPos = InStr(response, """message"": """) + Len("""message"": """) endPos = InStr(startPos, response, """") If startPos > Len("""message"": """) And endPos > startPos Then DisplayText = Mid(response, startPos, endPos - startPos) Else DisplayText = "" End If 'Insert error message into Word document EDisplayText = "Error : " & DisplayText selectedText.InsertAfter vbNewLine & EDisplayText End If 'Clean up the object Set request = Nothing End Sub

以下步骤提供了在 MS Word 中使用 VBA 代码的基本说明。