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

在这篇文章中，我将会介绍如何将 ChatGPT 集成Microsoft Word 中。让ChatGPT 可以提高您的工作效率，并显著提高您的写作能力。

目录

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

2. 如何在 Microsoft Word 中使用 ChatGPT

1. 安装插件的步骤

2. 如何使用 ChatGPT 插件

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

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

4. 如何微调 ChatGPT 输出

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 阻止外部加载项文件并表示此文件的来源不受信任。要使文件可信，您需要按照以下步骤操作。

1. 转到下载的加载项文件所在的文件夹。

2. 右键单击该文件并从菜单中选择“属性” 。

3. 在General Tab的底部，选中security选项下的Unblock复选框，然后单击Ok

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

• 转到文件>选项>高级。

• 向下滚动到General并单击File Locations。

• 单击“启动” > “修改”，然后您有两个选择 - 找到存储下载的加载项文件的文件夹。或者 除了更改 Startup 文件夹位置之外，您还可以将加载项粘贴到现有的 Startup 文件夹中。
  建议使用后一个选项。如果您更喜欢第一个选项，请确保创建一个新文件夹并将下载的加载项文件放在那里，然后将启动文件夹的位置导航到这个新文件夹。这是因为如果您使用一个文件夹，例如 Download/Documents 文件夹，其中可能包含如此多的 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

简历生成器

您可以使用此插件生成简历。请务必提供清晰详细的提示，以便 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 代码的基本说明。

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）将产生更集中的输出。