ChatGPT | ChatGPT最新接入word方法（完美debug）

Original 李林翻译技术教育与研究

2024-09-09

导语

之前分享了一篇，将ChatGPT嵌入word，不少老师与同学们反映在复现时报错。经过广泛搜寻，小编找到了另一个方法。

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辅助单句译文质量评估

▶ 技术与工具

Netspeak：一款免费的单词搭配检索工具

WantWords反向词典，内含开发团队公开文档

Cymo Booth：同声传译员的专属虚拟同传间