当前位置:首页|资讯|ChatGPT

ChatGPT + Word = 高效办公

作者:翻译技术发布时间:2023-07-10

原标题:ChatGPT + Word = 高效办公

将ChatGPT与Word结合,能实现直接在Word中调用ChatGPT,既能避免繁琐的复制粘贴步骤,又能更好地照应上下文语境,从而实现无缝对话生成和文档编辑。本文将介绍如何将ChatGPT嵌入Word,并进一步探索可实现的功能,如批量修改标点符号,扩充大纲等。这样一来,我们在进行文书工作时,可以极大地节省时间和精力。

ChatGPT嵌入Word步骤

一、所需工具:ChatGPT API、科学上网工具

二、安装步骤

1、【视图】-单击【宏】-输入名称-创建宏

2、跳出如下界面

3、在其中输入如下代码:

Sub ChatGPT()

Dim selectedText As String

Dim apiKey As String

Dim response As Object, re As String

Dim midString As String

Dim ans As String

If Selection.Type = wdSelectionNormal Then

selectedText = Selection.Text

selectedText = Replace(selectedText, ChrW$(13), "")

apiKey = "替换为你的ChatGpt的API"

URL = "https://api.openai.com/v1/chat/completions"

Set response = CreateObject("MSXML2.XMLHTTP")

response.Open "POST", URL, False

response.setRequestHeader "Content-Type", "application/json"

response.setRequestHeader "Authorization", "Bearer " + apiKey

response.Send "{""model"":""gpt-3.5-turbo"", ""messages"":[{""role"":""user"",""content"":""" & selectedText & """}], ""temperature"":0.7}"

re = response.responseText

midString = Mid(re, InStr(re, """content"":""") + 11)

ans = Split(midString, """")(0)

ans = Replace(ans, "\n", "")

Selection.Text = selectedText & vbNewLine & ans

Else

Exit Sub

End If

End Sub

4、【视图】-右击-【自定义功能区】

在视图分组下添加新组

5、点击【新组】,右击,跳出如下界面

6、左侧选择【宏】-选中第1步创建的宏,点击右侧创建好的视图图标,点击【添加】

按照如上步骤,则安装成功。

三、使用步骤

1、用光标选中需要操作的区域,输入提示词,再点击视图下的自定义ChatGPT图标,则实现调用过程。

如:选中要翻译的文本和提示词,点击ChatGPT图标,则会在下方跳出翻译文本

翻译示范

还可以输入提示词,对其进行优化。本测试中选取提示词来源于ChatGPT学术优化。

优化过程展示

总结

利用光标选中文本和提示词的原理,嵌入Word的ChatGPT可以批量修改标点符号、文本格式,扩充大纲等。免去复制粘贴,能直接在文本中实现指令,能更好考虑上下文语境。

原文作者:李林


Copyright © 2024 aigcdaily.cn  北京智识时代科技有限公司  版权所有  京ICP备2023006237号-1