如何将 ChatGPT 集成到 Microsoft Word 中的详细教程

云端科技
2,822 阅读9分钟

在这篇文章中，我们将介绍如何将 ChatGPT 集成到 Microsoft Word 中。ChatGPT 可以提高您的工作效率，并显着提高您的写作能力。那些不知道 ChatGPT 的人，它是一种最先进的语言模型，可以提供类似人类的响应。近几个月来，它获得了巨大的人气。 

目录

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

2、如何在 Microsoft Word 中使用 ChatGPT

i.安装插件的步骤

ii.如何使用 ChatGPT 插件

iii.如何启用对话历史记录？

iv.如何设置 ChatGPT 输出的样式？

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

4、如何微调 ChatGPT 输出

5、排除错误的步骤

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

ChatGPT 可用于提高您的写作水平并在 Microsoft Word 中为您生成内容。查看在 Word 中使用它的一些方法 -

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

2、如何在 Microsoft Word 中使用 ChatGPT

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

  下载插件github.com/deepanshu88…

获取 OpenAI API 密钥

首先，您需要使用此链接访问 OpenAI 网站进行注册 -platform.openai.com。通过使用您现有的 Google 或 Microsoft 帐户，您可以轻松完成此操作。最后一步是获取秘密 API 密钥以使用 OpenAI API。复制您的 API 密钥以供将来参考。API 密钥如下所示

sk-xxxxxxxxx

安装插件的步骤

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

  1. 转到下载的加载项文件所在的文件夹。
  2. 右键单击该文件并从菜单中选择 “属性” 。
  3. 在常规选项卡底部，选中安全选项下的取消阻止复选框，然后单击确定

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

  • 转到 “文件” > “选项” > “高级” 。
  • 向下滚动到 “常规” ，然后单击 “文件位置” 。
  • 单击 “启动” > “修改” ，然后您有两个选择 - 找到存储下载的加载项文件的文件夹。或者，您也可以将加载项粘贴到现有的启动文件夹中，而不是更改启动文件夹位置。
    建议使用后一个选项。 如果您更喜欢第一个选项，请确保创建一个新文件夹并将下载的加载项文件放在那里，然后将启动文件夹的位置导航到这个新文件夹。这是因为，如果您使用的文件夹例如“下载/文档”文件夹可能包含大量Word 文件，则MS Word 很可能会崩溃。

如何使用 ChatGPT 插件

请按照以下步骤使用 MS Word 的 ChatGPT 加载项。

  1. 打开新的或现有的 MS Word 文档
  2. 输入您想询问 ChatGPT 的文本
  3. 选择您在上一步中输入的文本
  4. 单击ChatGPT选项卡 > AI Writer
  5. 输入您的 API 密钥
  6. 输出将在几秒钟内生成并出现
  7. 输出将保存在新的 Word 文档中，该文档位于存储活动 Word 文档的同一文件夹中
  8. 输出文件的文件名是output_mm-dd-yyyy_hr-min-sec.docx

如果您的活动 Word 文档未保存在任何位置，它将提示您选择要保存输出文件的文件夹。

简历生成器

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

为[个人资料名称]撰写专业简历。我有[N]年的经验。我过去的职位和公司是[职位、公司名称]。包括要点。

为数据科学家撰写专业简历。我有5年的经验。我过去的职位和公司是巴克莱分析师、摩根大通团队主管。包括要点。

根据此职位描述为[个人资料名称]撰写简历。[在此添加职位描述]

电子邮件写作

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

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

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

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

摘要写作

ChatGPT Add-in可以用来为您总结冗长的word文档。例如，您有一个很长的文档，并且要求您根据它创建摘要。阅读全文然后写摘要可能会很耗时且无聊。

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

如何启用对话历史记录？

您可以通过让 ChatGPT 记住以前的对话历史记录来改进输出。默认情况下，ChatGPT API 不会回忆以前的对话。它将每个 API 请求视为一次新的聊天。这意味着当它回答您当前的问题时，它不会记住您之前的问题。

为了增强 ChatGPT 体验，我们在插件中提供了一个名为“聊天”的功能。 请参阅下面的演示视频。在这个例子中，我们要求 ChatGPT 制作一份简历，提供一些有关工作和以前工作经验的详细信息。相应地生成了简历。为了让简历更加完善，我们要求ChatGPT添加实习经历。如果您注意到的话，它会记住之前的说明，并且仅包含实习经历，而简历的其余部分保持不变。

该Reset按钮启动新的聊天并删除之前的对话历史记录。当您不需要聊天历史记录来生成输出时，请使用此按钮。

如何设置 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-xxxxxxxxxxxxxxxxxxxxxxx"

    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
      DisplayText = ExtractContent(response)
                
    '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


Function ExtractContent(jsonString As String) As String
    Dim startPos As Long
    Dim endPos As Long
    Dim Content As String
    
    startPos = InStr(jsonString, """content"": """) + Len("""content"": """)
    endPos = InStr(startPos, jsonString, "},") - 2
    Content = Mid(jsonString, startPos, endPos - startPos)
    Content = Trim(Replace(Content, """", Chr(34)))
        
    Content = Replace(Content, vbCrLf, "")
    Content = Replace(Content, vbLf, "")
    Content = Replace(Content, vbCr, "")
    Content = Replace(Content, "\n", vbCrLf)
     
    If Right(Content, 1) = """" Then
      Content = Left(Content, Len(Content) - 1)
    End If
    
    ExtractContent = Content

End Function

如何使用VBA代码

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

  1. 按Alt+F11打开 VBA 编辑器。
  2. 单击 “插入”>“模块” 以创建新模块。
  3. 在模块中，粘贴 VBA 代码。
  4. 将 API 密钥替换api_key为您的实际 API 密钥。
  5. 关闭 VBA 编辑器。
  6. 按Alt+F8运行宏，然后选择ChatGPT并单击“运行”按钮。

如果您想使用ChatGPT-4，您可以在上面的 VBA 代码中替换gpt-3.5-turbo为。gpt-4

4、如何微调 ChatGPT 输出

在上面的插件/VBA 代码中，您将遇到一个温度参数。它的范围从 0 到 2。增加该值（例如 1.2）将产生更随机的输出，而减小该值（例如 0.2）将产生更集中的输出。

5、排除错误的步骤

该错误The model: gpt-4 does not exist意味着您无权访问 GPT-4 API。您必须加入​openai.com/waitlist/gp… Plus**（ChatGPT 的付费版本）并不保证自动访问 GPT-4 API，无论您是否拥有它。

Update Key如果您错误地选择了 GPT-4 而不是 GPT-3.5，或者输入了错误的 API 密钥，您可以通过单击按钮指定正确的模型类型和 API 密钥来更正。完成后，您可以通过单击按钮进行检查Check Key。

有时，ChatGPT API 的行为很奇怪并开始产生错误。如果该加载项之前工作正常，但现在返回错误，我建议您再试几次。如果问题仍然存在，请报告。

​ ** 人人都能看懂的 ChatGPT** s.juejin.cn/ds/yNw5LvS/

avatar
文章
阅读
粉丝