當代牛馬不光需要會手掐筆算，
更要能寫得一手好文章。
各位小伙伴給自己的寫作水平打幾分呢？
好，不管你現(xiàn)在是幾分，我們來看看，某些人是怎么寫文章的。
你想不想給自己的Word也來這么一個神奇的按鈕？
來來來，跟著周慶麟一步一步學哈。
當然，如果你已經(jīng)學習并實踐過我前天的教程：
一分鐘教會你在Excel里面接入DeepSeek，我們一起幫哪吒逆天改命
那么學今天的內(nèi)容就會事半功倍，因為思路和邏輯是一致的。
01 導入/寫入VBA代碼
啟動Word，按<Alt+F11>,喚出VBA編輯器，然后導入代碼。
在這里，我們需要分別導入JsonConverter.bas和main.bas兩個代碼文件，導入成功后，會自動得到兩個VBA模塊。
JsonConverter.bas是開源的VBA-JSON庫，用來處理與AI大模型網(wǎng)站的交互過程中產(chǎn)生的JSON格式內(nèi)容。
main.bas是我們的主程序，作用是與DeepSeek或其他AI大模型交互，讓他根據(jù)我們的要求寫作文，然后插入到Word里面。
核心代碼如下：
Const AI_URL As String = '填寫AI網(wǎng)址'Const AI_KEY As String = '填寫你申請到的key'Const AI_MODEL As String = '填寫模型名稱'上述代碼需要填入DeepSeek或其他AI大模型的參數(shù)。
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 = '你是一位擅長文案工作的專家，現(xiàn)在請你根據(jù)已有的內(nèi)容，' & _ 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：發(fā)送請求并處理響應 oXmlHttp.send requestBody If oXmlHttp.Status = 200 Then apiResponse = oXmlHttp.responseText answer = ParseAPIResponse(apiResponse) InsertResult answer Else HandleAPIError oXmlHttp.Status, oXmlHttp.responseText End IfCleanup: Set oXmlHttp = Nothing Exit SubErrorHandler: HandleRuntimeError Err.Number, Err.Description Resume CleanupEnd Sub這一段是用來完成主要任務的代碼，是不是和前天教程的代碼差不多？
如果你不懂VBA也沒關系，只管導入代碼文件就行了。
02 添加運行代碼的按鈕
很簡單的哈，跟著下面的動圖操作就行了。
好了，就這么2步，你從此擁有了非凡的寫作能力。
只要你的電腦能聯(lián)網(wǎng)，就能在Word里面文思泉涌，指點江山。
你感覺，你現(xiàn)在的寫作水平是多少呢？
03 你會不會對AI產(chǎn)生恐懼？
上面的教程是讓你了解在Office接入DeepSeek的技術思路和核心方法。
對于有一定基礎的小伙伴們來說，想必摩拳擦掌，躍躍欲試了。
我知道他們腦子里還有很多別致的想法，有了我這塊磚，就能琢很多玉出來。
歡迎這樣的小伙留言評論，把你的奇思妙想分享出來。
如果你目前看代碼還像在看天書，我猜你一方面在想直接拿到一個現(xiàn)成的可以用——放心，代碼文件和成品我都會分享出來。
你另一方面覺得AI太強大了，貌似以后自己不用學習了，甚至，很快就沒工作了……
所以，我也想聽聽大家的看法，有了AI，我們還需要學習嗎？
最后展示一個我們ExcelHome的守柔老師花了2小時創(chuàng)作的免費成品“深智文書”，那可比我這個精致和強大多了，開箱即可使用。
好了，這次真的寫完了。
明天再聊！
