在这篇文章中,我们将介绍如何将 集成到 Word 中。 可以提高您的工作效率,并显着提高您的写作能力。那些不知道 的人,它是一种最先进的语言模型,可以提供类似人类的响应。近几个月来,它获得了巨大的人气。
目录
1、
2、
i.
ii.
iii.
iv.
3、
4、
5、
1、在 MS Word 中使用 的好处
可用于提高您的写作水平并在 Word 中为您生成内容。查看在 Word 中使用它的一些方法 –
2、如何在 Word 中使用
使用 插件(加载项)将 集成到 MS Word 从未如此简单。您可以使用下面的链接下载该加载项。它完全免费,并且可以在 和 365 的所有版本上运行。此外,使用此加载项没有先决条件。
下载插件/…
获取 API 密钥
首先,您需要使用此链接访问 网站进行注册 。通过使用您现有的 或 帐户,您可以轻松完成此操作。最后一步是获取秘密 API 密钥以使用 API。复制您的 API 密钥以供将来参考。API 密钥如下所示
sk-
安装插件的步骤
微软阻止了外部加载项文件,并表示该文件的来源不受信任。要使该文件可信,您需要按照以下步骤操作。
转到下载的加载项文件所在的文件夹。右键单击该文件并从菜单中选择 “属性” 。在常规选项卡底部,选中安全选项下的取消阻止复选框,然后单击确定
要使加载项在每次启动 MS Word 时可用,您可以将其保存在 “启动” 文件夹中。请按照以下步骤操作。
如何使用 插件
请按照以下步骤使用 MS Word 的 加载项。
打开新的或现有的 MS Word 文档输入您想询问 的文本选择您在上一步中输入的文本单击选项卡 >AI 输入您的 API 密钥输出将在几秒钟内生成并出现输出将保存在新的 Word 文档中,该文档位于存储活动 Word 文档的同一文件夹中输出文件的文件名是-dd–min-sec.docx
如果您的活动 Word 文档未保存在任何位置,它将提示您选择要保存输出文件的文件夹。
简历生成器
您可以使用此插件生成简历。请务必提供清晰详细的提示,以便 根据您的要求生成简历。始终要具体,并尝试使用多个提示以获得最佳结果。请参阅下面的一些示例 –
为[个人资料名称]撰写专业简历。我有[N]年的经验。我过去的职位和公司是[职位、公司名称]。包括要点。
为数据科学家撰写专业简历。我有5年的经验。我过去的职位和公司是巴克莱分析师、摩根大通团队主管。包括要点。
根据此职位描述为[个人资料名称]撰写简历。[在此添加职位描述]
电子邮件写作
您可以要求 插件为您起草电子邮件。无论您需要向同事或朋友发送正式的商务电子邮件还是友好的消息, 都可以帮助您撰写专业且精心起草的消息。您只需提供电子邮件的目的和一些上下文, 就会为您生成一封写得很好的电子邮件。您还可以选择电子邮件的语气。
明天给经理写一封关于病假的电子邮件。我的经理叫张三。我的名字是李四。
给同事写一封关于明天事假的电子邮件。我同事的名字叫王二。我的名字是李四。语气应该是非正式的。
指定语气也很好 – 正式/非正式/幽默。
摘要写作
Add-in可以用来为您总结冗长的word文档。例如,您有一个很长的文档,并且要求您根据它创建摘要。阅读全文然后写摘要可能会很耗时且无聊。
用要点总结下面的文本 – [在此处粘贴文本]
如何启用对话历史记录?
您可以通过让 记住以前的对话历史记录来改进输出。默认情况下, 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
如何使用VBA代码
以下步骤提供了在 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)将产生更集中的输出。
5、排除错误的步骤
该错误The model: gpt-4 does not exist意味着您无权访问 GPT-4 API。您必须加入//gp… Plus**( 的付费版本)并不保证自动访问 GPT-4 API,无论您是否拥有它。
Key如果您错误地选择了 GPT-4 而不是 GPT-3.5,或者输入了错误的 API 密钥,您可以通过单击按钮指定正确的模型类型和 API 密钥来更正。完成后,您可以通过单击按钮进行检查Check Key。
有时, API 的行为很奇怪并开始产生错误。如果该加载项之前工作正常,但现在返回错误,我建议您再试几次。如果问题仍然存在,请报告。
** 人人都能看懂的 ** /ds//