php curl content-type DeepSeek 接入 Microsoft Word 详细教程-含真实可用的VBA代码

php curl content-type DeepSeek 接入 Microsoft Word 详细教程-含真实可用的VBA代码

接入 Word 的最详细使用教程（含真实可以的VBA代码）

目标: 本教程将指导您如何通过 Word 的 VBA 脚本接入 API，实现例如智能续写、语法纠错、内容润色等功能。

重要风险提示: 本教程需要启用 Word 宏功能，并信任 VBA 工程对象模型。启用宏存在安全风险，请务必只在您信任的文档上启用，并了解潜在的安全隐患。不推荐在处理来自不可信来源的文档时启用宏。

准备工作:

1. 账号和 API Key: 您需要拥有 账号，并在 平台上获取 API Key。 如果您还没有账号，请先访问 官网注册并登录。

平台上获取 API Key 获取API Key 的地址：

。点击下图黄色区域进入注册和申请。

但是这两天你可能使用不了，官方提醒：当前服务器资源紧张，为避免对您造成业务影响，我们已暂停 API 服务充值。存量充值金额可继续调用，敬请谅解！

2. Word: 确保您的电脑上已安装 Word 软件。

教程步骤:

步骤一：启用 Word 开发工具选项卡

1.打开 Word 选项: 点击 Word 菜单栏的 “文件” -> “选项”-> “信任中心”-> “信任中心设置”。

2.宏设置: 勾选启用所有宏（不推荐：可能会运行有潜在危险的代码）（E）和信任对VBA工程对象模型的访问 (V)，然后点击确定。

3.打开word的 “开发工具”: 在右侧点击 “ Basic”。

步骤二：打开 VBA 编辑器并插入模块

打开 VBA 编辑器: 点击 Word 菜单栏新增的 “开发工具” 选项卡，然后点击 “ Basic” 按钮php curl content-type DeepSeek 接入 Microsoft Word 详细教程-含真实可用的VBA代码，打开 VBA 编辑器 (VBE)。 或者直接使用快捷键 Alt + F11。插入模块: 在 VBA 编辑器左侧的 “工程” 窗口 (通常名为 “-”) 中，右键点击 “” (或您的文档名称)，选择 “插入” -> “模块”。

步骤三：写入 VBA 脚本代码 (包含 VBA-JSON 代码)

1.复制 VBA 代码 (包含 VBA-JSON): 将以下 完整的 VBA 代码 复制粘贴到刚刚插入的模块代码窗口中。 这段代码示例中php curl content-type DeepSeek 接入 Microsoft Word 详细教程-含真实可用的VBA代码，已经包含了你的（注上面申请的）， 替换为您实际的 API Key。

2.修改完之后复制完整代码。

Sub DeepSeekPolish()
Dim selectedText As String
Dim apiKey As String
Dim response As Object, re As String
Dim midString As String
Dim ans As String
Dim polishPrompt As String
Dim url As String
On Error Resume Next ' 添加错误恢复
' 检查是否有正常选中的文本
If Selection.Type = wdSelectionNormal Then
' 获取选中文本并去除不需要的字符
selectedText = Selection.Text
If Len(Trim(selectedText)) = 0 Then
MsgBox "选中的文本为空!", vbExclamation
Exit Sub
End If

selectedText = Replace(selectedText, ChrW$(13), "")
selectedText = Replace(selectedText, """", """") ' 转义双引号
' 定义API密钥和请求URL
apiKey = "你的deepseek api Key "
url = "https://api.deepseek.com/v1/chat/completions"
' 设置润色提示词
polishPrompt = "作为专业文字编辑，请对以下文本进行润色和优化。要求：" & _
"1. 提升表达的准确性和专业性；" & _
"2. 改善语言流畅度和可读性；" & _
"3. 优化语句结构和用词；" & _
"4. 保持原文意图和核心内容；" & _
"5. 确保修改后的文本清晰、规范。" & _
"以下是需要润色的文本：" & selectedText
' 创建HTTP请求对象
Set response = CreateObject("MSXML2.XMLHTTP")
If response Is Nothing Then
MsgBox "无法创建HTTP请求对象!", vbCritical
Exit Sub
End If
' 准备请求数据
Dim requestBody As String
requestBody = "{""model"":""deepseek-chat"", ""messages"":[{""role"":""user"",""content"":""" & selectedText & """}, {""role"":""assistant"", ""content"":""" & polishPrompt & """}], ""temperature"":0.7}"
' 显示请求信息（调试用）
Debug.Print "URL: " & url
Debug.Print "Request Body: " & requestBody
' 发送请求
response.Open "POST", url, False
response.SetRequestHeader "Content-Type", "application/json"
response.SetRequestHeader "Authorization", "Bearer " & apiKey
On Error GoTo ErrorHandler
response.Send requestBody
' 检查响应状态
If response.Status  200 Then
MsgBox "API请求失败! 状态码: " & response.Status & vbNewLine & "响应内容: " & response.responseText, vbCritical
Exit Sub
End If
' 处理响应数据

re = response.responseText
Debug.Print "Response: " & re ' 输出完整响应用于调试
If InStr(re, """content"":""") > 0 Then
midString = Mid(re, InStr(re, """content"":""") + 11)
ans = Split(midString, """")(0)
ans = Replace(ans, "n", vbNewLine)
' 将原选中文本与润色后的文本一起插入文档中
Selection.Text = selectedText & vbNewLine & vbNewLine & "润色后的文本：" & vbNewLine & ans
Else
MsgBox "API响应格式不正确!", vbExclamation
End If
Else
MsgBox "请先选中文本!", vbExclamation
End If
Exit Sub
ErrorHandler:
MsgBox "发生错误! " & vbNewLine & _
"错误描述: " & Err.Description & vbNewLine & _
"错误代码: " & Err.Number & vbNewLine & _
"如果是API调用失败，状态码: " & response.Status & vbNewLine & _
"响应内容: " & response.responseText, vbCritical
End Sub

3.重要：粘贴 VBA代码。复制以上全部代码，粘贴到上述代码的到打开的模块文档里面，修改成你的api key。

步骤四：自定义 Word 功能区并添加宏命令 (与之前教程相同，步骤不变)

打开 Word 选项 – 自定义功能区: 重复 步骤一 的 1-2 步骤，打开 “Word 选项 – 自定义功能区”。选择 “开发工具” 选项卡: 在右侧 “自定义功能区” 下拉菜单中，选择 “开发工具”。新建组: 在 “开发工具” 下，点击 “新建组” 按钮。添加宏: 在左侧 “从下列位置选择命令” 下拉菜单中，选择 “宏”。选择宏并添加到组: 在左侧宏列表中，找到您在 VBA 代码中定义的宏名称，例如 ..。重命名宏命令: 选中添加到组中的宏命令，点击 “重命名” 按钮。点击 “确定”: 完成自定义后，点击 “Word 选项” 对话框的 “确定” 按钮。

步骤五：保存 VBA 模块到 .dotm (可选，但推荐) (与之前教程相同，步骤不变)

在 VBA 编辑器中，选中包含代码的模块 (例如 )。点击 VBA 编辑器的 “文件” -> “导出文件…”将模块导出为一个 .bas 文件，例如 .bas，保存到本地电脑。在 VBA 编辑器中，右键点击 “” 工程，选择 “导入文件…”选择您刚刚导出的 .bas 文件 (.bas)，点击 “打开”。关闭 VBA 编辑器。 Word 会提示您保存 .dotm 模板，请点击 “保存”。

步骤六：在Word中的使用。使用很简单，输入你的问题之后，选择问题，点击“开发工具栏”的按钮，等待片刻即可获得回答。

如在word输入并选择选择：给出统计学的概念解释，可以获得一些结果：

润色后的文本：

统计学是一门研究数据收集、整理、分析和解释的科学方法体系。它通过运用概率论等数学工具，对随机现象进行定量描述和推断分析，从而揭示数据背后的规律和特征。统计学主要包括描述统计和推断统计两大分支：描述统计侧重于数据的整理、概括和可视化呈现；推断统计则通过样本数据对总体特征进行估计和假设检验。作为一门应用广泛的学科，统计学在科学研究、经济管理、社会调查、质量控制等领域发挥着重要作用，为决策制定提供科学依据和量化支持。

重要注意事项:

总结:

通过以上步骤php curl content-typephp curl content-type，您应该已经成功地将 接入 Wordphp curl content-type，并可以使用 的强大 AI 功能来提升您的写作效率和质量。 请根据您想使用的其他大模型，参考上面的详细的使用说明，替换VBA代码可以继续加入其他大模型，如kimi，百炼，甚至本地模型等，探索更多功能和技巧。