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

目录

(相关资料图)

在 MS Word 中使用 ChatGPT 的好处

如何在 Microsoft Word 中使用 ChatGPT

安装插件的步骤

如何使用 ChatGPT 插件

如何设置 ChatGPT 输出的样式？

在 MS Word 中运行 ChatGPT 的 VBA 代码

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

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

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

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

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

转到文件>选项>高级。

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

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

如何使用 ChatGPT 插件

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

打开新的或现有的 MS Word 文档

输入您要询问的文本 ChatGPT

选择您在上一步中输入的文本

单击ChatGPT选项卡> AI Writer

输入您的 API 密钥

输出将在几秒钟内生成并出现

输出将保存在一个新的 word 文档中，该文档位于存储活动 word 文档的同一文件夹中

输出文件的文件名是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 = NothingEnd Sub

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

按Alt+F11打开 VBA 编辑器。

单击“插入”>“模块”以创建新模块。

在模块中，粘贴 VBA 代码。

将 API 密钥替换api_key为您的实际 API 密钥。

关闭 VBA 编辑器。

按Alt+F8运行宏，然后选择ChatGPT并点击运行按钮。

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

4.如何微调 ChatGPT 输出

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

关键词：