【ChatGPT实战】8.使用ChatGPT自动化操作Word

既然能够使用ChatGPT自动化操作Excel，那么对于word肯定也是支持的，同样可以帮助大家提高工作效率并且减少出错率。

使用ChatGPT操作的方案有三种，分别是：

• 通过VBA代码在Word中接入ChatGPT（调用 ChatGPT Api key）
• 使用ChatGPT生成VBA代码在Word中运行实现自动化
• 借助第三方集成ChatGPT插件 Ghostwriter（付费）

一、通过VBA代码在Word中接入ChatGPT（调用 ChatGPT Api key）

这个玩法绝对是市面上最前沿的玩法！

注意：这个玩法在使用的时候需要电脑特殊网络开启全局代理。

演示视频

配置步骤图文拆解

1.获取自己ChatGPT账号的Api key

获取Api key的教程是有的，大家可以阅读课程第六篇文章，学习如何获取 OpenAI API Key 教程。

2.复制我下面这段VBA代码并且填入你的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 " + apiKeyresponse.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 粘贴进去

• 然后保存这段代码

3.打开Word并且新建一个文档

4.点击上面的 开发工具 再点击 Visual Basic

5.点击上面的 插入 再点击 模块

6.在新弹出的窗口中粘贴我前面准备好的代码

注意：一定是要替换好了 Api Key 的代码才有用。

7.然后关闭窗口回到Word，这是我们需要保存这个空白文档并且是以启用宏的Word模板.dotm格式保存

要记住这个文档的保存位置，后面是要用到的。

8.保存之后继续在Word这里，点击左上角的文件

9.点击左下角的 选项

10.在左侧选择 自定义功能区

11.如下图所示，选择宏

12.如下图所示点击 新建选项卡

13.在新建的选项卡这个鼠标右键，点击 重命名

14.重命名为 ChatGPT，并且点击 确定

15.如图所示，先选择下面的新建组，再点击左上的 ChatGPT模块

16.让点击中间的 添加

17.如下图所示就是操作成功了。

18.紧接着点击左边的 加载项

19.再在下面选择 Word加载项

20.再点击 转到

21.然后如图所示点击 添加

22.找到我们之前保存的空白文档，就是第7步以启用宏的Word模板.dotm格式保存的文档，选中这个文档并且点击 确定

23.如图所示已经添加了这个文件，紧接着继续点击 确定

24.这时候就已经配置好了，在word这里点击上面的 ChatGPT

25.可以看到我已经配置好的ChatGPT模块

26.案例演示

• 生成一份开学典礼的演讲稿将对应的提示词编写在文档里：我需要一份开学典礼的演讲稿
• 然后选中你编写的提示词，再点击左上角的ChatGPT模块

• 然后只需静静等待，ChatGPT根据提示词所生成的内容会自动编写在文档里面

有一点需要为大家说明，如果等待时间比较长，那只是因为你的当前网络不是很稳定。内容生产快慢取决于电脑的网络速度，网络越好自然响应越快。

二、使用ChatGPT生成VBA代码在Word中运行实现自动化

使用ChatGPT生成VBA代码并不简单，同一段VBA代码在不同版本Word上可以说区别很大，有的能运行有的不能运行，这是因为不同版本的Word对有些函数的支持是不一样的。

所以大家在Word上面使用VBA的时候，遇到代码运行不了或者是运行出错等情况，一定要耐心将提示的信息反馈给ChatGPT，让ChatGPT重新生成VBA代码。

⚠️：使用VBA代码一定要提前备份数据，防止程序抽风把数据搞乱就麻烦了。

案例演示

1.计算每个段落的字符数并填写在段落开头

2.将文档中所有的图片大小重置为原始大小

如何在运行Word中运行VBA？

1.在Word最上面的导航栏点击 开发工具

导航栏没有 开发工具 怎么办？

• 首先鼠标在导航栏位置，右键点击 自定义功能区

• 在右侧找到 开发工具 并且勾选

2.选择 开发工具 并且点击 Visual Basic

3.在弹出的新窗口，找到需要操作的文章，点击鼠标右键 —>插入 —>模块

4.然后在新增的这个模块里面粘贴VBA代码

5.粘贴之后，点击 运行按钮 即可运行代码

三、借助第三方集成ChatGPT插件 Ghostwriter（付费）

Ghostwriter是一个 Office 插件，可以帮助大家直接在Word中使用ChatGPT。

这里要说明Ghostwriter是付费的，使用这个插件需要付费并且调用自己的 OpenAI API Key 又是付费的，也就是需要付费两次，还是很坑的。

刚开始安装这插件是可以免费体验的，如果要付费的话基本版的付费计划起价为 25 美元，回复长度为两段。如果选择 50 美元的专业版，则可以将响应长度配置为较长或超长。

如何在Word 客户端添加 Ghostwriter？

1. 打开 Word 并创建一个新文档。选择“插入”并单击“获取加载项”。

2.点击“应用商店”紧接着搜索“Ghostwriter”，然后找到该插件并点击“添加”。

3.添加后，输入购买 Ghostwriter 的电子邮件地址以及你的 OpenAI API Key 并且点击“Validate”验证

验证成功之后就可以使用了。

本文介绍了三种使用ChatGPT自动化操作Word的方法：通过VBA代码在Word中接入ChatGPT、使用ChatGPT生成VBA代码和使用第三方插件Ghostwriter，这三个玩法都是非常新颖、非常前沿的。

最后让我们一起期待微软官方即将推出的 Microsoft 365 Copilot，我们可以把它理解为一个专属于你的个人智能助理，基于大语言模型与我们在使用Microsoft 365中的各种数据来工作。可以直接通过语音或文字来下达指令，Microsoft 365 Copilot就会自动帮助我们完成，可以说真正实现了，做Excel画PPT，动动嘴就行了。