在这篇文章中，我将会介绍如何将 集成 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）将产生更集中的输出。
相关文章
