高效集成ChatGPT：Word文档中轻松插入聊天助手

2025-03-31 09:10:20 | 来源: 互联网整理

具体步骤如下：

打开“开发工具栏”

进入Visual Basic

右键点击“插入模块”，粘贴进代码

把代码中的API 密钥换成自己的(api key 在自己的open ai 号里找)

这样宏就做好了。测试如下：只需选中你想问ChatGPT的问题，然后在开发工具栏里点击宏图标，选中刚才做的宏，点击Run就可以生成答案了。

加一个按钮的步骤如下：

选择自定义功能区

加入新的组

给加入的组重命名

选择你的宏添加到新的组里

选择一个自己喜欢的图标，并重命名

于是按钮就做好了。只需选中问题然后点击按钮，ChatGPT的回答就生成了。

代码如下：

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

好了，关于高效集成ChatGPT：Word文档中轻松插入聊天助手和如何将ChatGPT插入Word,ChatGPT插入Word方法介绍的问题到这里结束啦，希望可以解决您的问题哈！