当代牛马不光需要会手掐笔算，
更要能写得一手好文章。
各位小伙伴给自己的写作水平打几分呢？
好，不管你现在是几分，我们来看看，某些人是怎么写文章的。
你想不想给自己的Word也来这么一个神奇的按钮？
来来来，跟着周庆麟一步一步学哈。
当然，如果你已经学习并实践过我前天的教程：
一分钟教会你在Excel里面接入DeepSeek，我们一起帮哪吒逆天改命
那么学今天的内容就会事半功倍，因为思路和逻辑是一致的。
01 导入/写入VBA代码
启动Word，按
在这里，我们需要分别导入JsonConverter.bas和main.bas两个代码文件，导入成功后，会自动得到两个VBA模块。
JsonConverter.bas是开源的VBA-JSON库，用来处理与AI大模型网站的交互过程中产生的JSON格式内容。
main.bas是我们的主程序，作用是与DeepSeek或其他AI大模型交互，让他根据我们的要求写作文，然后插入到Word里面。
核心代码如下：
Const AI_URL As String = "填写AI网址"
Const AI_KEY As String = "填写你申请到的key"
Const AI_MODEL As String = "填写模型名称"上述代码需要填入DeepSeek或其他AI大模型的参数。
Sub DeepWord()
Dim selectedText As String
Dim apiResponse As String, answer As String
Dim oXmlHttp As Object, requestBody As String
Dim startTime As Double
On Error GoTo ErrorHandler
startTime = Timer
' █ 阶段1：输入验证
If Not ValidateSelection Then Exit Sub
' █ 阶段2：文本预处理
selectedText = CleanTextContent(Selection.text)
If Len(selectedText) = 0 Then Exit Sub
' █ 阶段3：获取用户需求
Dim systemPrompt As String
systemPrompt = "你是一位擅长文案工作的专家，现在请你根据已有的内容，" & _
InputBox("请输入写作需求", "用户输入", "生成一篇文章")
If StrPtr(systemPrompt) = 0 Then Exit Sub ' 用户取消输入
' █ 阶段4：构建API请求
Set oXmlHttp = CreateObject("MSXML2.ServerXMLHTTP.6.0")
With oXmlHttp
.Open "POST", AI_URL, False
.setRequestHeader "Content-Type", "application/json;"
.setRequestHeader "Authorization", "Bearer " & AI_KEY
.setRequestHeader "Accept", "*/*"
End With
requestBody = "{""model"":""" & AI_MODEL & """," & _
"""messages"":[" & _
"{""role"":""system"",""content"":""" & JSONEscape(systemPrompt) & """}," & _
"{""role"":""user"",""content"":""" & JSONEscape(selectedText) & """}]," & _
"""temperature"":0.7,""max_tokens"":512}"
Debug.Print requestBody
' █ 阶段5：发送请求并处理响应
oXmlHttp.send requestBody
If oXmlHttp.Status = 200 Then
apiResponse = oXmlHttp.responseText
answer = ParseAPIResponse(apiResponse)
InsertResult answer
Else
HandleAPIError oXmlHttp.Status, oXmlHttp.responseText
End If
Cleanup:
Set oXmlHttp = Nothing
Exit Sub
ErrorHandler:
HandleRuntimeError Err.Number, Err.Description
Resume Cleanup
End Sub这一段是用来完成主要任务的代码，是不是和前天教程的代码差不多？
如果你不懂VBA也没关系，只管导入代码文件就行了。
02 添加运行代码的按钮
很简单的哈，跟着下面的动图操作就行了。
好了，就这么2步，你从此拥有了非凡的写作能力。
只要你的电脑能联网，就能在Word里面文思泉涌，指点江山。
你感觉，你现在的写作水平是多少呢？
03 你会不会对AI产生恐惧？
上面的教程是让你了解在Office接入DeepSeek的技术思路和核心方法。
对于有一定基础的小伙伴们来说，想必摩拳擦掌，跃跃欲试了。
我知道他们脑子里还有很多别致的想法，有了我这块砖，就能琢很多玉出来。
欢迎这样的小伙留言评论，把你的奇思妙想分享出来。
如果你目前看代码还像在看天书，我猜你一方面在想直接拿到一个现成的可以用——放心，代码文件和成品我都会分享出来。
你另一方面觉得AI太强大了，貌似以后自己不用学习了，甚至，很快就没工作了……
所以，我也想听听大家的看法，有了AI，我们还需要学习吗？
最后展示一个我们ExcelHome的守柔老师花了2小时创作的免费成品“深智文书”，那可比我这个精致和强大多了，开箱即可使用。
好了，这次真的写完了。
明天再聊！
