wps chatgpt翻译插件 《新手小白》如何将 ChatGPT 集成到 Microsoft Word 中详细

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

目录

在 MS Word 中使用 的好处

如何在 Word 中使用

安装插件的步骤

如何使用 插件

如何设置 输出的样式？

在 MS Word 中运行 的 VBA 代码

如何微调 输出

1.在 MS Word 中使用 的好处

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

2.如何在 Word 中使用

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

下载插件

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

sk-

安装插件的步骤

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

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

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

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

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

如何使用 插件

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

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

输入您要询问的文本

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

单击选项卡>AI

输入您的 API 密钥

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

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

输出文件的文件名是-dd–min-sec.docx

简历生成器

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

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

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

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

电子邮件写作

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

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

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

总结写作

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

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

如何设置 输出的样式？

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

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

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

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

您可以使用下面的 VBA 代码在 MS Word 中运行 。确保更改 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 代码的基本说明。

按Alt+F11打开 VBA 编辑器。

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

在模块中，粘贴 VBA 代码。

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

关闭 VBA 编辑器。

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

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

4.如何微调 输出

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