高效集成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方式说明的难题到这里结束啦，希望可以化解无论兄弟们的难题哈！

用户点评

拥菢过后只剰凄凉

这听着挺酷的，可以尝试把ChatGPT写的物品直接整合进文档里！

    有19位键盘侠表示赞同！

厌归人

我一直想要找到壹个方式把AI写作融入我的职业流程，这听起来很有帮助。

    有7位键盘侠表示赞同！

嗯咯

感觉Word和ChatGPT结合起来会大大进步效率！

    有20位键盘侠表示赞同！

花花全球总是那么虚伪﹌

想了解ChatGPT能帮我生成啥子样的内容？是单纯的文字创作还是更复杂类型的文档?

    有15位键盘侠表示赞同！

不相忘

是不是一定要付费才能运用这个功能？

    有17位键盘侠表示赞同！

琴断朱弦

我有点担心会不会影响Word的正常操作呢？

    有9位键盘侠表示赞同！

凉城°

感觉这比自己慢慢写完还要快很多，太方便了！

    有18位键盘侠表示赞同！

壹个人的荒凉

进修一下把ChatGPT嵌入到Word里，或许能让我写得更有创意。

    有16位键盘侠表示赞同！

孤者何惧

如果有详细教程的话，我也想尝试看。

    有14位键盘侠表示赞同！

＊巴黎铁塔

希望这款功能以后也能支持中文生成！

    有11位键盘侠表示赞同！

逾期不候

我经常需要参考各种资料写作，ChatGPT是不是可以帮我搜集那些信息？

    有19位键盘侠表示赞同！

你和清晨阳光

这样一来，写论文啥子的岂不是更轻松了？

    有16位键盘侠表示赞同！

无关风月

Wonder 如果能用ChatGPT自动帮你格式化文档呢？

    有19位键盘侠表示赞同！

搞搞嗎妹妹

这篇文章会不会相对技术性强？我一点都不懂编程...

    有9位键盘侠表示赞同！

清原

看起来很有潜力，未来也许能把聊天机器人直接集成到办公软件里，太方便了！

    有20位键盘侠表示赞同！

各自安好ぃ

我已经迫不及待去尝试了!

    有6位键盘侠表示赞同！

熏染

我用Word写文档的频率很高，这样嵌入ChatGPT功能对我来说真是太棒了！

    有10位键盘侠表示赞同！

断桥残雪

这会不会改变写作的天花板？

    有10位键盘侠表示赞同！

哭花了素颜

希望能看到更多类似的AI工具和技术应用。

    有16位键盘侠表示赞同！

别伤我i

真的期待这种结合人工智能和传统办公软件的未来！

    有5位键盘侠表示赞同！

■孤独像过不去的桥≈

希望教程可以详细一点，最好有视频示范更好!

    有15位键盘侠表示赞同！