Word中接入大模型教程

前言

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

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

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

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

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

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

效果

实践

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

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请求。

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