Word中接入大模型教程

前言

为什么要在word中接入大模型呢？

个人觉得最大的意义就是不用来回切换与复制粘贴了吧。

今天分享一下昨天实践的在word中接入大模型的教程。

在word中接入大模型最简单的方式就是使用vba。

vba代码要做的事，拆分一下就是：

获取用户选中的文本，未选择弹窗提示。向大模型API接口发送一个Post请求。解析返回的json数据，获取content的内容。为了用户体验，打造假流式效果。 效果

实践 第一步：获取用户选中的文本，未选择弹窗提示。

vba代码：

Sub GetSelectedText() Dim selectedText As String If Selection.Type = wdSelectionIP Then ' 如果是插入点（光标闪烁），则未选择文本 MsgBox "未选中任何文本！请先选择文本。", vbExclamation Else selectedText = Selection.Text If Trim(selectedText) = "" Then ' 再次检查 Trim 后的文本是否为空，以防用户只选择了空格 MsgBox "未选中任何文本！请先选择文本。", vbExclamation Else MsgBox "选中的文本是: " & selectedText End If End If End Sub

效果：

第二步：向大模型API接口发送一个Post请求。

在第一步中获取的文本大概率会包含换行符，如果没有去掉，在发送请求的时候会报错，因此第一步的完整代码还需要包括去除换行符的部分，完整代码如下所示：

Dim selectedText As String If Selection.Type = wdSelectionIP Then ' 如果是插入点（光标闪烁），则未选择文本 MsgBox "未选中任何文本！请先选择文本。", vbExclamation Else selectedText = Selection.Text If Trim(selectedText) = "" Then ' 再次检查 Trim 后的文本是否为空，以防用户只选择了空格 MsgBox "未选中任何文本！请先选择文本。", vbExclamation Else ' **** 在这里添加删除换行符的代码 **** selectedText = Replace(selectedText, Chr(13), "") ' 删除回车符 (CR) selectedText = Replace(selectedText, Chr(10), "") ' 删除换行符 (LF) End If End If

在vba中发送Post，可以使用MSXML2.XMLHTTP，代码如下：

API = " api.siliconflow /v1/chat/completions" inputText = selectedText SendTxt = "{""model"": ""meta-llama/Llama-3.3-70B-Instruct"", ""messages"": [{""role"":""system"", ""content"":""你是一个word助手，直接输出文本，不要用md格式。""}, {""role"":""user"", ""content"":""" & inputText & """}], ""stream"": false}" 'MsgBox SendTxt, vbExclamation 'Selection.TypeText Text:=SendTxt api_key = "sk-xxx" Set Http = CreateObject("MSXML2.XMLHTTP") With Http .Open "POST", API, False .setRequestHeader "Content-Type", "application/json" .setRequestHeader "Authorization", "Bearer " & api_key .send SendTxt status_code = .Status response = .responseText End With

这里使用的是硅基流动的平台，使用其它平台需要修改的地方为API接口地址、模型名称与对应的api_key。

第三步：解析返回的json数据，获取content的内容。

为方便起见，我使用的是正则表达式进行content内容的提取。

代码如下所示：

Dim regExp As Object Set regExp = CreateObject("VBScript.RegExp") regExp.Pattern = """content"":""([^""]*)""" regExp.Global = True Dim matches As Object Set matches = regExp.Execute(response) Dim content As String content = matches(0).SubMatches(0) 第四步：为了用户体验，打造假流式效果。

为了不覆盖选中的内容，需要移动光标。然后为了用户体验，打造假流式效果。

代码如下所示：

Selection.MoveDown Unit:=wdLine, Count:=1 Selection.TypeParagraph ' 插入一个新段落，确保在下一行开始 For i = 1 To Len(content) Dim char As String char = Mid(content, i, 1) Selection.TypeText Text:=char Dim startTime As Single startTime = Timer Do While Timer < startTime + 0.02 DoEvents Loop Next i 直接使用我分享的插件

感兴趣的朋友，可以根据我的分享，直接去写一下。但是很多朋友对vba可能不感兴趣，只是想在word中直接使用。

接下来我将手把手分享，如何使用我分享的插件。

首先关注公众号“小铭同学的AI工具学习记录”，发送“Word插件”，即可获取word插件。

第一步：获取大模型的API Key。

这里根据大家自己使用的大模型平台而定。

如果没有使用过，我比较推荐硅基流动这个平台，新用户注册有14元永久额度，很多其它平台额度都是有期限的。

邀请链接： cloud.siliconflow /i/Ia3zOSCU。

注册完成之后，点击API密钥，新建一个API密钥。

模型名称在模型广场可以复制，比较推荐的是：deepseek-ai/DeepSeek-R1、deepseek-ai/DeepSeek-V3、meta-llama/Llama-3.3-70B-Instruct、Qwen/Qwen2.5-72B-Instruct-128K与Qwen/Qwen2.5-72B-Instruct。

第二步：在word中导入插件。

关注公众号“小铭同学的AI工具学习记录”，发送“Word插件”，即可获取word插件。

下载下来，如下所示：

文件——》选项——》信任中心——》信任中心设置——》启用所有宏——》确定。

文件——》选项——》自定义功能区——》勾选开发工具。

开发工具——》Visual Basic。

文件——》导入文件——》选择刚刚下载的Word插件。

然后如果使用的是硅基流动，在这两个文件的api_key位置填入自己的api_key即可，如果选择其它平台，如果兼容openai格式，改一下api地址、模型名称然后填入自己的api_key即可。

点击保存，会出现下面这个提示。

选择否，然后启用宏。

可以在不使用这个功能的时候，另存为docx就好了。

回到开发工具，新建一个分组。

选择宏，添加到AI助手中。

现在word就出现了刚刚添加的插件：

第三步：使用插件

选中文本，再点击选择的功能即可。

AI助手是直接提问，AI论文扩写助手是进行论文扩写。

直接提问

AI论文扩写

最后

如果你在实践过程中，遇到了问题，也可以联系我哦。