ChatGPT | ChatGPT最新接入word方法(完美debug)
导语
之前分享了一篇,将ChatGPT嵌入word,不少老师与同学们反映在复现时报错。经过广泛搜寻,小编找到了另一个方法。
一、所需工具:ChatGPT API、科学上网工具
二、安装步骤
1、【视图】-单击【宏】-输入名称【ChatGPTXR_Word】-创建宏2、跳出如下界面
3、在其中输入如下代码:
Public previousAnswer As String
Public previousAnswer_time As String
Public character_count As String
Public character_count_time As String
Sub ChatGPTXR_Word()
Dim http As Object
Set http = CreateObject("MSXML2.XMLHTTP")
Dim url As String
url = "https://gpt.sinraytec.cn/chatgpt_word.php"
Dim data As String
previousAnswer_time = InputBox("请输入你的问题:", "ChatGPT New Chat", previousAnswer)
If previousAnswer_time <> "" Then
previousAnswer = previousAnswer_time
End If
If previousAnswer_time = "" Then
Exit Sub
End If
character_count_time = InputBox("你想生成的最大字符数:", "ChatGPT New Chat", character_count)
If character_count_time <> "" Then
character_count = character_count_time
End If
If character_count_time = "" Then
MsgBox "记得输入需要最大的字符数量哈"
Exit Sub
End If
data = "prompt=" & previousAnswer_time & "&zishu=" & character_count_time & "&api_key=替换为自己的API"
http.Open "POST", url, False
http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
http.send data
Dim result As String
result = http.responseText
Selection.TypeText result
End Sub
注意public与sub的位置关系如下图:
4、【视图】-右击-【自定义功能区】
5、点击【新组】,右击,跳出如下界面
6、左侧选择【宏】-选中第1步创建的宏,点击右侧创建好的视图图标,点击【添加】
按照如上步骤,则安装成功。
三、使用步骤
点击图标,跳出框框,在框内输入指令即可
最后附上操作视频:
参考:b站_Aaa熊_的分享
利用光标选中文本和提示词的原理,嵌入Word的ChatGPT可以批量修改标点符号、文本格式,扩充大纲等。免去复制粘贴,能直接在文本中实现指令,能更好考虑上下文语境。
- END -特别说明:本文仅供学习交流,如有不妥欢迎后台联系小编。
翻译技术教育与研究ChatGPT专题组致力于探索发掘ChatGPT为代表的AI工具在语言服务不同阶段的应用,进而提高从业者的工作效率。专题小组目前的主要方向是探索提示词(prompt)及流程变更如何提升交互效果;了解及推介Github等平台上的AI应用,AI应用嵌入语言服务流程及其优化方式。小组通过定期会议及讨论确定选题方向并通过文章、视频等形式分享探索结果,欢迎通过文章留言为大家提供建议意见!
原文作者:李林
推文编辑:李林项目统筹:李林指导老师:陈杲
资讯推荐
ChatGPT辅助单句译文质量评估
▶ 技术与工具
▶ 国际语言服务动态
| 翻译公司篇 | “收购狂魔”Keywords Studios
| 行业机构篇 | 加拿大联邦翻译局 Canada's Translation Bureau
▶ 专访
王巍巍:疫情背景下远程口译的挑战和应对
卢家辉、陈晨:口译员在远程口译中面临的主要问题
▶ 行业洞察
▶ 教育创新