如何将deepseek与Excel和Word接入，以提升办公效率从而简化流程

在现代办公中，DeepSeek作为一款强大的人工智能助手，能够显著提升工作效率。将DeepSeek集成到Excel和Word中，可以实现智能数据处理、自动化文档编辑等功能。

一、将DeepSeek接入Excel

要在Excel中使用DeepSeek，您可以通过VBA（Visual Basic for Applications）代码调用DeepSeek的API。以下是具体步骤：

1. 获取DeepSeek的API密钥：访问DeepSeek官网https://www.deepseek.com/，点击右上角的“API开放平台”，登录账号（如果没有账号，可以先注册一个）。
2. 登录成功后，点击左侧的“API Keys”，然后点击“创建API Key”，输入一个名称，创建完成后复制生成的API Key。

3. 插入VBA代码：在Excel中，按下Alt + F11打开VBA编辑器，插入以下代码：

vba

Sub CallDeepSeekAPI()

Dim question As String

Dim response As String

Dim url As String

Dim apiKey As String

Dim http As Object

Dim content As String

Dim startPos As Long

Dim endPos As Long

' 获取 A1 单元格中的问题

question = ThisWorkbook.Sheets(1).Range("A1").Value

' 设置 API 的 URL 和 API 密钥

url = "https://api.deepseek.com/v1/chat/completions"

apiKey = "你的API密钥" ' 替换为你的 API 密钥

' 创建 HTTP 请求对象

Set http = CreateObject("MSXML2.XMLHTTP")

' 设置请求头

http.Open "POST", url, False

http.setRequestHeader "Content-Type", "application/json"

http.setRequestHeader "Authorization", "Bearer " & apiKey

' 设置请求体

Dim requestBody As String

requestBody = "{""model"":""deepseek-chat"",""messages"": [{""role"":""user"",""content"":""" & question & """}]}"

' 发送请求

http.send requestBody

' 获取响应

If http.Status = 200 Then

response = http.responseText

' 从 JSON 字符串中提取 content 字段

startPos = InStr(response, """content"":""") + Len("""content"":""")

endPos = InStr(startPos, response, """")

content = Mid(response, startPos, endPos - startPos)

' 将结果写入 A2 单元格

ThisWorkbook.Sheets(1).Range("A2").Value = content

Else

' 如果请求失败，显示错误信息

ThisWorkbook.Sheets(1).Range("A2").Value = "Error: " & http.Status & " - " & http.statusText

End If

End Sub

4. 设置按钮：在Excel中，插入一个按钮，并将其与上述宏关联。在A1单元格输入问题，点击按钮后，B1单元格将显示DeepSeek的回答。

二、将DeepSeek接入Word

在Word中，您可以通过VBA代码调用DeepSeek的API，实现智能文本生成和润色等功能。具体步骤如下：

1. 获取DeepSeek的API密钥：同样，首先需要在DeepSeek官网注册并获取API密钥。
2. 插入VBA代码：在Word中，按下Alt + F11打开VBA编辑器，插入以下代码：

vba

Function CallDeepSeekAPI(api_key As String, 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 = "https://api.deepseek.com/chat/completions"

SendTxt = "{""model"": ""deepseek-chat"", ""messages"": [{""role"":""system"", ""content"":""You are a Word assistant""}, {""role"":""user"", ""content"":""" & inputText & """}]}"

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 DeepSeekV3()

Dim api_key As String

Dim inputText As String

Dim response As String

Dim regex As Object

Dim matches As Object

Dim originalSelection As Object

api_key = "你的API密钥" ' 替换为你的 API 密钥

If api_key = "" Then

MsgBox "Please enter the API key."

Exit Sub

ElseIf Selection.Type <> wdSelectionNormal Then

MsgBox "Please select text."

Exit Sub

End If

' 保存原始选中的文本

Set originalSelection = Selection.Range.Duplicate

inputText = Replace(Replace(Replace(Replace(Replace(Selection.Text, "\", "\\"), vbCrLf, ""), vbCr, ""), vbLf, ""), Chr(34), "\""")

response = CallDeepSeekAPI(api_key, inputText)

If Left(response, 5) <> "Error" Then

Set regex = CreateObject("VBScript.RegExp")

With regex

.Global = True

.MultiLine = True

.IgnoreCase = False

.Pattern = """content"":""(.*?)"""

End With

Set matches = regex.Execute(response)

If matches.Count > 0 Then

Selection.Text = originalSelection.Text & vbNewLine & matches(0).SubMatches(0)

Else

MsgBox "Failed to parse API response.", vbExclamation

End If

Else

MsgBox response, vbCritical

End If

End Sub

3. 添加按钮：在Word中，插入一个按钮，并将其与上述宏关联。选中需要处理的文本，点击按钮后，DeepSeek将对选中的文本进行处理，并在原位置插入结果。

三、使用OfficeAI助手插件

为了简化操作，您还可以使用OfficeAI助手插件，将DeepSeek直接集成到Word

1、安装OfficeAI助手插件

1. 下载插件：访问OfficeAI助手的官方网站或相关下载页面，获取插件安装包。OfficeAI插件下载地址：https://www.office-ai.cn/，下载插件（目前只支持windows系统）。
2. 安装插件：双击下载的安装包，按照提示完成安装。安装完成后，打开Word或Excel，您会在菜单栏看到“OfficeAI”选项卡。

2、获取DeepSeek API密钥

申请API密钥：登录后，进入“API开放平台”，点击“创建API Key”，为其设置一个名称，生成API密钥。请妥善保存该密钥，因为创建后仅显示一次。

3、配置OfficeAI助手插件

1. 打开设置：在Word或Excel中，点击“OfficeAI”选项卡，选择“设置”。
2. 配置大模型：在设置界面，找到“大模型设置”，开启“本地部署”选项，选择“APIKEY”。
3. 输入API信息：在“大模型”下拉菜单中选择“DeepSeek”，模型名选择“DeepSeek-R1”。在“API地址”栏中输入“https://api.siliconflow.cn”，在“API Key”栏中输入您在DeepSeek官网获取的API密钥。
4. 刷新模型列表：点击“刷新模型列表”，确保DeepSeek模型已成功加载。

4、使用DeepSeek功能

1. 在Word中使用：选中需要处理的文本，点击“生成”按钮，DeepSeek将对选中的文本进行处理，并在原位置插入结果。
2. 在Excel中使用：在单元格中输入数据，点击“生成”按钮，DeepSeek将对该数据进行处理，并在相应单元格中显示结果。

5、注意事项

• 插件兼容性：OfficeAI助手插件支持Office 2013及以上版本，以及WPS 2019及以上版本，系统支持Win7、Win10、Win11。
• API服务：DeepSeek的API服务可能会因访问量大而出现延迟或不可用的情况，建议关注官方公告，及时获取最新信息。

其中，chat模型适合普通的对话交流、搜索查询，reasoner适合深度思考、推理决策。可以先用chat模型试一下，如果发现满足不了需求，再打开设置改成reasoner模型。

在deepseek官网上的用量信息页面，reasoner模型的价格是chat模型的两倍。deepseek会赠送10元的tokens，有效期为30天。

1个中文汉字约0.8-1个token，1个英文字母约0.3个token。也就是说，chat模型每输入1百万个汉字（你给deepseek发送的消息累计达到1百万字）大约需要2元，chat模型每输出1百万个汉字（deepseek回复你的内容累计达到1百万字）大约需要8元。

通过以上步骤，您可以将DeepSeek集成到Excel和Word中，充分发挥其强大的AI功能，提升办公效率。