今天跟大家分享下我们如何使用VBA代码，将ChatGpt接入Word文档，操作非常的简单，但是开始之前我们需要做2项准备

1.获取ChatGpt的API

2.魔法上网

准备好这2件事后，我们就可以着手制作了

一，设置代码

复制下方代码，将代码中的【替换为你的ChatGpt的API】更改为自己的

SubChatGPT()DimselectedTextAsStringDimapiKeyAsStringDimresponseAsObject,reAsStringDimmidStringAsStringDimansAsStringIfSelection.Type=wdSelectionNormalThenselectedText=Selection.TextselectedText=Replace(selectedText,ChrW$(13),/"/")apiKey=/"替换为你的ChatGpt的API/"URL=/"https://api.openai.com/v1/chat/completions/"Setresponse=CreateObject(/"MSXML2.XMLHTTP/")response.Open/"POST/",URL,Falseresponse.setRequestHeader/"Content-Type/",/"application/json/"response.setRequestHeader/"Authorization/",/"Bearer/"+apiKeyresponse.Send/"{/"/"model/"/":/"/"gpt-3.5-turbo/"/",/"/"messages/"/":[{/"/"role/"/":/"/"user/"/",/"/"content/"/":/"/"/"&selectedText&/"/"/

未经允许不得转载：头条资讯网_今日热点_娱乐才是你关心的时事 » ChatGpt接入Word文档，让你秒变职场达人！