我们好，我是可夫小子，关注AIGC、读书和自媒体。解锁更多ChatGPT、AI绘画玩法。加：keeepdance，补白：chatgpt，拉你进群。

Office 的办公软件Word，是咱们日常的文字工作的阵地。与ChatGPT的文字生成功用有天然的互补性。微软的Office365 Copilot已经集成了这个功用，但需求收费。咱们能够运用现有的Word + ChatGPT，手动来回Copy，但明显也不行丝滑。假如能在现有的Word中嵌入ChatGPT便是最好的解决方案。

网上有许多相关教程，在原有的Word软件中接入ChatGPT，但由于环境改变，或许语焉不详，导致很多事例实践都履行不成功。本文档便是结合相关教程，通过VB宏方式接入ChatGPT，终究调试完结，共享给我们手把手具体教程。

说明

不同的版别和渠道，可能有些差异，需求依据实践情况来调整。我的版别信息：

PC版别：Windows 10
Word版别：Microsoft Word 2013

第一步，创建宏模板

新建一个Word文档
翻开开发东西视图：文件→选项→自定义功用区，勾选开发东西

回到主界面，点击：开发东西 → Visual Basic

这样就进入了VB的修改窗口，点击刺进→模块，就新建了一个代码框

仿制下面的代码，把your_api_key替换成你自己的OpenAI的api_key，填入修改窗口

    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