如何把Word接入ChatGPT详细教程

Office 的办公软件 Word，是我们日常的文字工作的阵地。与 ChatGPT 的文字生

成功能有天然的互补性。微软的 Office365 Copilot 已经集成了这个功能，但需要

收费。我们可以使用现有的 Word + ChatGPT，手动来回 Copy，但显然也不够丝

滑。如果能在现有的 Word 中嵌入 ChatGPT 就是最好的解决方案。

网上有许多相关教程，在原有的 Word 软件中接入 ChatGPT，但由于环境变化，

或者语焉不详，导致很多案例实际都执行不成功。本文档就是结合相关教程，通

过 VB 宏方式接入 ChatGPT，最终调试完成，分享给大家手把手详细教程。

说明

不同的版本和平台，可能有些差异，需要根据实际情况来调整。我的版本信息：

1. 这样就进入了 VB 的编辑窗口，点击插入→模块，就新建了一个代码框

1. 复制下面的代码，把 your_api_key 替换成你自己的 OpenAI 的 api_key，填入编辑窗

口

vbnet

复制代码

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,

midString = Mid(re, InStr(re, """content"":""") + 11) ans =

Split(midString, """")(0) ans = Replace(ans, "\n", "")

Selection.Text = selectedText & vbNewLine & ans Else Exit Sub

End IfEnd Sub

到此宏的 VB 编写完成。

第二步，添加工具栏图标

这一步的主要目标是在 Word 菜单栏，新建一个调用的入口

1. 打开文件→选项→自定义功能区（跟第一步一样）

2. 在自定义功能区，先新建选项卡，再新建组，然后在宏下面把上一步创建的宏放到

里面。