教你3分钟将DeepSeek接入到WPS文字，秒变公司笔杆子，代码流程全公开

#AI

周庆麟

KVP

当代牛马不光需要会手掐笔算，更要能写得一手好文章。各位小伙伴给自己的写作水平打几分呢？

好，不管你现在是几分，我们来看看，某些人是怎么写文章的。

抱歉，不支持视频播放

如需观看视频，请阅读原文

你想不想给自己的WPS也来这么一个神奇的按钮？

来来来，跟着我一步一步学哈。

当然，如果你已经学习并实践过我前天的教程：一分钟教会你在Excel里面接入DeepSeek，我们一起帮哪吒逆天改命

那么学今天的内容就会事半功倍，因为思路和逻辑是一致的。

第1步

导入/写入VBA代码

启动WPS，单击【工具】→【开发工具】，再单击选项卡右侧【开发工具】→【VB编辑器】，唤出VBA编辑器。

如果你的WPS目前不支持VBA，需要下载安装WPS的VBA插件。（WPS超级会员可以直接在【开发工具】点【切换到VB环境】自动加载）

或者按<Alt+F11>，唤出VBA编辑器，然后导入代码。

在这里，我们需要分别导入JsonConverter.bas和main.bas两个代码文件，导入成功后，会自动得到两个VBA模块。

JsonConverter.bas是开源的VBA-JSON库，用来处理与AI大模型网站的交互过程中产生的JSON格式内容。

main.bas是我们的主程序，作用是与DeepSeek或其他AI大模型交互，让他根据我们的要求写作文，然后插入到WPS里面。

核心代码如下：

Const AI_URL As String = "填写AI网址"
Const AI_KEY As String = "填写你申请到的key"
Const AI_MODEL As String = "填写模型名称"

上述代码需要填入DeepSeek或其他AI大模型的参数。

如何获得这些参数，请详细阅读昨天次条的文章。

一文教会你获取DeepSeek官方API，免费获赠10元额度

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也没关系，只管导入代码文件就行了。