前言

chatGPT实在是火爆.

微软也在考虑把OFFICE全家桶中添加chatGPT功能.

期待么. 其实你可以自行把chatGPT加入到WORD中

chatGPT将按照人类对它的使用能力来重新划分人群

本文主要介绍怎么把chatGPT功能加入到WORD

添加后的效果

先看添加后的效果.

新建一个WORD文档, 输入文字  四川美食 . 然后选中这段文字,点击宏命令,即可获取下方的chatGPT的反馈信息.

说明一下, chatGTP的API调用从前无需VPN连接到外网, 但现在似乎不成了. 所以要体验这个效果,需要用VPN软件翻墙.

3a4f7f9033836241e9b09cf87e4d90c8.png

演示

SPRING

以下文字是通过这个功能自动从chatGPT获取的. (暂时有点排版问题 )

怎么成为一个好的ABAP开发人员

1. 掌握ABAP语言和SAP系统的基础知识。学习ABAP语言和SAP系统的基础知识是成为一个好的ABAP开发人员的第一步。这包括掌握ABAP程序设计,理解SAP数据库和数据结构,熟悉SAP的开发工具和技术,以及了解SAP的应用程序架构。2. 深入了解SAP系统的业务流程。了解SAP系统的业务流程可以帮助你更好地理解用户需求,为用户提供更好的解决方案。这需要你对SAP系统中各个模块的功能和特点有深入的了解,以及对业务流程的各个环节有清晰的认识。3. 拥有良好的编程能力和逻辑思维能力。作为一个开发人员,良好的编程能力和逻辑思维能力是必不可少的。这可以帮助你设计和开发高效、可靠、易于维护的ABAP程序,并能够快速解决各种问题和bug。4. 保持学习和探索的热情。SAP系统是一个不断发展和更新的系统,作为一个好的ABAP开发人员,你需要保持学习和探索的热情,不断更新自己的技术和知识。这可以帮助你跟上时代的步伐,为用户提供更好的解决方案。5. 具备良好的沟通和团队合作能力。ABAP开发往往是一个团队合作的过程,你需要和其他开发人员、项目经理、测试人员等人员密切合作,共同完成项目。良好的沟通和团队合作能力可以帮助你更好地理解用户需求,协调各个部门的工作,提高项目的成功率。

实现步骤

看到后,是否觉得很好很强大, 以后写文章只需要写出大标题和小标题, 其它都可以从AI获取了.下面是实现的步骤

01

创建宏

新建一个WORD文档,视图->宏->新建宏

5892a307821f8bcd671f0be3978a2800.png

02

宏代码

其中 apiKey = "your_api_key" 中的 your api key 需要替换成你自己申请的APIKEY . 

在宏中添加如下宏代码

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

03

把宏命令添加到工具栏

右键点击工具栏的空白处,

添加自定义组,

宏命令添加到自定义组中

905ef6aaf97b6593423b91e2fcca7581.png

04

另存模板文档

为了在启动WORD时自动添加这个宏.需要执行下面的步骤

另存文件为启用宏的WORD模板.

9bfda3e74281e2c4f26ccb44ee84968a.png

05

修改WORD选项

在WORD的选项 (文件->选项)中设置模板的自动加载

6ef683b659ca1bb233f891a5514f9211.png

e79078d814a794b75eff9efe10c379fa.png

总结

chatGPT实在是划时代的产品, 同时OPENAI公司提供了API给第三方应用调用. 扩展了AI的使用场景.

上述宏命令的方式只是一个简单的调用. 

期待微软OFFICE升级后的chatGPT功能吧. 这将划时代的改变写文章的方法与过程

THE

END

约定

如果你对这篇文章感兴趣,请帮忙点赞,在看,分享.       

    (如果你真的喜欢这篇文章,请记得回来打个赏,作为支持我继续下去的动力,这是一个正反馈过程. 越多的人打赏,作者越有动力分享,读者就能享受更多的福利.毕竟打赏的金额富不了我,穷不了你,却能支持这个公众号长久发文.)

请微信联系管理员: 

syjf1976 

sharry_xlp  

Yannick_Duan 

申请进入公众号讨论群提问或者参与话题讨论

转载版权:乐易云香港服务器 乐易云美国服务器

转载标题:chatGPT系列 在WORD中访问chatGPT 转载地址:https://www.123yun.com/article/1965.html

视频流媒体服务器搭建 流媒体服务器 免费 流媒体服务器介绍 流媒体服务器应用场景

内容来源于网络如有侵权请私信删除