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