ChatGPT｜ChatGPT + Word = 高效办公

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

2024-09-09

导语

将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可以批量修改标点符号、文本格式，扩充大纲等。免去复制粘贴，能直接在文本中实现指令，能更好考虑上下文语境。

特别说明：本文仅供学习交流，如有不妥欢迎后台联系小编。

- END -

翻译技术教育研究会ChatGPT专题小组致力于探索发掘ChatGPT为代表的AI工具在语言服务不同阶段的应用，进而提高从业者的工作效率。专题小组目前的主要方向是探索提示词(prompt)及流程变更如何提升交互效果；了解及推介Github等平台上的AI应用，AI应用嵌入语言服务流程及其优化方式。小组通过定期会议及讨论确定选题方向并通过文章、视频等形式分享探索结果，欢迎通过文章留言为大家提供建议意见！
原文作者：李林

推文编辑：周琳项目统筹：李林

指导老师：陈杲

资讯推荐

BFSU ParaConc 1.2.2 语料检索软件简介

▶ 技术与工具