如何通过插件使用chatgpt看文献如何将 ChatGPT 集成到 Microsoft Word 中的详细教程

AI资讯1年前 (2023)发布 fengdao

24 0 0

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

1、

2、

ii.

iii.

iv.

3、

4、

5、

1、在 MS Word 中使用的好处

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

2、如何在 Word 中使用

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

下载插件/…

获取 API 密钥

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

sk-

安装插件的步骤

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

如何通过插件使用chatgpt看文献_文献查看器_文献检索插件

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

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

如何使用插件

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

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

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

简历生成器

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

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

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

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

电子邮件写作

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

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

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

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

摘要写作

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

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

如何启用对话历史记录？

如何通过插件使用chatgpt看文献_文献检索插件_文献查看器

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

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

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

如何设置输出的样式？

您可以通过将以下行添加到您询问的提示末尾来设置 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-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