当前位置：首页 > article >正文

如何本地部署DeepSeek集成Word办公软件

article 2025/2/13 10:54:20

- 本地部署DeepSeek
- - 安装Ollama
  - 下载并部署DeepSeek模型
  - 安装ChatBox客户端（可选）
- 将DeepSeek集成到Word
- - 修改Word中的VBA代码
  - 执行操作
✍️相关问答
- 如何在Word中安装和使用VBA宏
- DeepSeek模型有哪些常见的API接口？
- 如何优化DeepSeek在Word中的集成效果
🧐脑图

要在本地部署DeepSeek并将其集成到Word办公软件中，需要完成安装必要的软件、下载并部署DeepSeek模型，以及编写和运行VBA宏或使用Office JS插件。

本地部署DeepSeek

安装Ollama

首先，需要安装Ollama，这是一个用于本地调用大模型的工具。访问Ollama官网（https://ollama.com/），下载并安装适合您操作系统的版本。安装完成后，打开命令行窗口，输入ollama --version以验证安装是否成功。
Ollama的安装过程简单且直接，适合不熟悉命令行的用户。它是运行DeepSeek模型的基础工具，确保您能够成功调用模型。

下载并部署DeepSeek模型

在Ollama安装完成后，需要下载并部署DeepSeek模型。访问DeepSeek模型页面，选择适合你电脑配置的模型版本（如1.5B、7B等）。复制相应的安装指令，在命令行中粘贴并回车，等待模型下载完成。
选择合适的模型版本非常重要，1.5B版本适合低配置电脑，而7B版本则适合大多数电脑。下载和部署过程虽然需要一些时间，但一旦完成，您将能够在本地高效运行模型。

安装ChatBox客户端（可选）

如果希望使用图形化界面而不是命令行，可以安装ChatBox客户端。下载并安装ChatBox客户端后，配置API密钥和模型版本，即可通过客户端与DeepSeek进行交互。
ChatBox客户端提供了更友好的用户界面，适合不熟悉命令行的用户。它简化了与DeepSeek的交互过程，提高了使用体验。

将DeepSeek集成到Word

修改Word中的VBA代码

打开Microsoft Word，按 Alt + F11 进入VBA编辑器。创建一个新的模块，并将以下代码复制并粘贴到模块中：

Function CallDeepSeekAPI(inputText As String) As String
    Dim API As String
    Dim SendTxt As String
    Dim Http As Object
    Dim status_code As Integer
    Dim response As String
    
    API = "http://localhost:11434/api/chat"
    SendTxt = "{""model"": ""deepseek-r1:1.5b"", ""messages"": [{""role"":""user"", ""content"":""" & inputText & """}], ""stream"": false}"
    
    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
    
    If status_code = 200 Then
        CallDeepSeekAPI = response
    Else
        CallDeepSeekAPI = "Error: " & status_code & " - " & response
    End If
    
    Set Http = Nothing
End Function

Sub DeepSeek()
    Dim inputText As String
    Dim response As String
    Dim regex As Object
    Dim matches As Object
    Dim originalSelection As Object
    
    If Selection.Type <> wdSelectionNormal Then
        MsgBox "请选择文本。"
        Exit Sub
    End If
    
    Set originalSelection = Selection.Range.Duplicate
    inputText = Replace(Replace(Replace(Selection.Text, "\", "\\"), vbCrLf, ""), vbCr, "")
    response = CallDeepSeekAPI(inputText)
    
    If Left(response, 5) <> "Error" Then
        Set regex = CreateObject("VBScript.RegExp")
        With regex
            .Global = True
            .MultiLine = True
            .Pattern = """content"":\s*""([\s\S]*?)"""
        End With
        
        If regex.Test(response) Then
            response = regex.Execute(response)(0).SubMatches(0)
            response = Replace(response, "\u003c", "<")
            response = Replace(response, "\u003e", ">")
            response = Replace(response, "
", vbCrLf)
            Selection.Collapse Direction:=wdCollapseEnd
            Selection.TypeParagraph
            Selection.TypeText Text:=response
            originalSelection.Select
        Else
            MsgBox response, vbCritical
        End If
    Else
        MsgBox response, vbCritical
    End If
End Sub