如何用Word结合chatgpt快速搞定文章和周报与作文！

原创

Chatgpt注册

修改于 2023-05-15 17:34:27

2.8K0

修改于 2023-05-15 17:34:27

文章被收录于专栏：AI产品应用AI产品应用

办公软件Word，是我们日常的文字工作的常用工具。

与ChatGPT的文字生成功能有天然的辅助性。

微软的Office365 Copilot已经集成了这个功能，但需要付费使用。我们可以使用现有的Word + ChatGPT，手动来回Copy，但显然也不够丝滑。如果能在现有的Word中嵌入ChatGPT就是最好的解决方案。

接下来我把心得方法分享给大家并且有手把手详细教程。

说明：

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

PC：Windows 10
Word：Microsoft Word 2013
国内版：chatGPT国内中文镜像官方原版在线免费体验 (taiyangyukeji.com)

1.创建宏模板

新建一个Word文档。

打开开发工具视图：文件→选项→自定义功能区，勾选开发工具：如下图

如图操作

复制下列代码

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, 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

到此宏VB的编写完成。