既然能够使用ChatGPT自动化操作Excel，那么对于word肯定也是支持的，同样可以帮助大家提高工作效率并且减少出错率。
使用ChatGPT操作的方案有三种，分别是：
通过VBA代码在Word中接入ChatGPT（调用 ChatGPT Api key）
使用ChatGPT生成VBA代码在Word中运行实现自动化
借助第三方集成ChatGPT插件 Ghostwriter（付费）
这个玩法绝对是市面上最前沿的玩法！
注意：这个玩法在使用的时候需要电脑特殊网络开启全局代理。
获取Api key的教程是有的，大家可以阅读课程第六篇文章，学习如何获取 OpenAI API Key 教程。
VBA代码如下
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 = "your_api_key"
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如下图所示，将Api key 粘贴进去
然后保存这段代码
注意：一定是要替换好了 Api Key 的代码才有用。
生成一份开学典礼的演讲稿
将对应的提示词编写在文档里：我需要一份开学典礼的演讲稿
然后选中你编写的提示词，再点击左上角的ChatGPT模块
然后只需静静等待，ChatGPT根据提示词所生成的内容会自动编写在文档里面
有一点需要为大家说明，如果等待时间比较长，那只是因为你的当前网络不是很稳定。内容生产快慢取决于电脑的网络速度，网络越好自然响应越快。
所以大家在Word上面使用VBA的时候，遇到代码运行不了或者是运行出错等情况，一定要耐心将提示的信息反馈给ChatGPT，让ChatGPT重新生成VBA代码。
⚠️：使用VBA代码一定要提前备份数据，防止程序抽风把数据搞乱就麻烦了。
首先鼠标在导航栏位置，右键点击 自定义功能区
在右侧找到 开发工具 并且勾选
Ghostwriter是一个 Office 插件，可以帮助大家直接在Word中使用ChatGPT。
这里要说明Ghostwriter是付费的，使用这个插件需要付费并且调用自己的 OpenAI API Key 又是付费的，也就是需要付费两次，还是很坑的。
刚开始安装这插件是可以免费体验的，如果要付费的话基本版的付费计划起价为 25 美元，回复长度为两段。如果选择 50 美元的专业版，则可以将响应长度配置为较长或超长。
验证成功之后就可以使用了。
本文介绍了三种使用ChatGPT自动化操作Word的方法：通过VBA代码在Word中接入ChatGPT、使用ChatGPT生成VBA代码和使用第三方插件Ghostwriter，这三个玩法都是非常新颖、非常前沿的。