尧图网页设计 
最近在文档里频繁需要改写、翻译和总结索性写了个 VBA 宏让 WPS/Office 的 Word 直接调用豆包 API。这个方案很轻不需要单独的客户端把一段代码丢进 VBA 编辑器就能用。如果你每天都在 Word 里处理大量文本又要借助豆包这类大模型润色、翻译、摘要这个玩法和思路可以直接照搬。先说它能解决什么问题。以前我在 Word 里写一段材料想让它变得更口语化、更书面或者想快速翻译一段外文都得切到浏览器、打开对话页面、复制粘贴、再手动把结果贴回文档。来回折腾几次原来的排版和上下文就乱了思路也容易断。现在选中文字、按一下宏结果直接插进光标位置上下文不用离开 Word 一步。这个流程非常适合办公室文档处理、行政文案、论文写作、合同修改和自媒体稿件整理。如果你对 VBA 有一定了解甚至完全没写过 VBA只要会用 Word跟着下面的步骤把代码粘贴进去也能跑通整个链路。当然我一开始也想过用 Python、用付费插件后来发现作为 Word 重度用户VBA 才是最贴合“文档场景”的接入方式。下面我把这套方案的完整思路、环境准备、代码实现、实际踩坑记录和排错经验一次写清楚。1. 为什么要在 Word 里接豆包 API场景与方案取舍1.1 你的文档工作流里AI 到底能帮你省什么很多人觉得“Word 里接 AI”是个伪需求无非是复制粘贴多一步而已。我自己实际用下来发现差别非常大原因在于“上下文不离开文档”这件事远比想象中重要。比如我在写项目方案有一段话写得比较生硬想改成更有说服力的版本。过去的操作是选中文字 - 切到豆包对话 - 粘贴 - 等结果 - 复制 - 回 Word - 替换原文。听起来也就几秒钟但问题在于当你处理十段、二十段文字时反复切换窗口的代价会成倍放大而且非常容易漏改、改错段落。更严重的是一旦对话页面上滑下滑原来的 prompt 和上下文很容易丢失你甚至需要重新描述一遍“请帮我润色这句话”。把 API 直接接进 Word 之后整个动作变成选中文字 - 按快捷键运行宏 - 结果自动插入。人不需要离开文档选区就是上下文运行结果直接在眼前。对于需要逐段打磨文案、批量翻译外文资料、或者在几十个文档里做重复性汇总工作的人来说这个效率提升是很实在的。另一个被低估的价值是“自动化”。VBA 宏可以读取 Word 当前选区的文字、当前文档标题、甚至整篇文档的内容把它拼进 prompt 后发送给豆包得到的答案再自动写回文档。这已经不是简单的“少复制两次”而是能在 Word 内部构建一套完整的文档级 AI 工作流。比如我可以把一段英文合同条款选中运行“翻译术语解释”的宏它就自动在下方生成译文和关键术语说明再比如选中一段技术描述运行“转为面向客户的通俗版本”它就能按你的语气要求输出一段可以直接用的文案。1.2 为什么我选择 VBA 而不是其他方案做这个事之前我认真对比过几条路线网页对话、第三方 Word 插件、Python 自动化脚本还有 VBA。对比完才发现VBA 在这个场景里的优势被严重低估了。先看网页对话。它最大的问题是模块间割裂你在浏览器里跟 AI 聊天得到的内容和 Word 文档本身没有任何关联。每次都要人工复制粘贴而且很难做到“基于选中内容 自定义指令”这种半自动操作。第三方 Word 插件虽然体验接近原生但要安装客户端、申请插件权限、还得考虑公司电脑环境是否允许安装软件风险和维护成本都比较高。Python 自动化比如用 win32com 控制 Word能力确实强但部署门槛更高目标机器得有 Python 环境、装一堆依赖、写好脚本还得管理异常和进程通信对于大多数同事来说这玩意儿基本不可用。VBA 就不一样了。Office 自带 VBA 引擎WPS 装上 VBA 组件后也能跑不需要额外安装任何软件依赖。它能直接读取当前文档、当前选区、书签、批注能在文档中实时插入文本、创建表格、修改样式。对“Word 里调用 AI 然后就地返回结果”这个高频需求来说VBA 就是那条最轻的路径。当然 VBA 也有明显的短板。比如代码写起来不如 Python 优雅JSON 解析要自己抠字符串网络请求库支持有限调试也有点老派。但它的优势是稳固、直接、随处可用。只要你的电脑能跑 Word这段代码就能工作。对于办公自动化场景这比“理论上更好”但“实际部署难”的方案要可靠得多。1.3 这个方案适合谁、能起到什么作用从实际需求来看这个方案最适合三类人。第一类是经常写标书、方案、公文、周报的人他们手头有大量现成文本需要反复润色、改写、换语气第二类是跨境或外企办公人群经常要把中文材料翻译成英文、把英文合同翻成中文同时兼顾专业术语第三类是有点 VBA 基础的办公自动化爱好者想给 Word 加上“AI 按钮”再进一步做文档批量生成、批量汇总这类高级操作。对完全没写过 VBA 的人来说这个项目也是很好的入门例子。整个代码里涉及“如何发 HTTP 请求”“如何解析 JSON”“如何处理编码”“如何与 Word 对象模型交互”这几个典型知识点每一块都不复杂但它们组合起来就是一个可以落地的生产力工具。即使你之前只写过“Hello World”级别的 VBA只要照着我的步骤操作也能在十几分钟内把它跑起来。我需要提前说明一点这个项目不是要把 Word 变成功能复杂的 AI 客户端而是提供一个“你自己能够改、能够扩展”的最小可用方案。它的价值在于架构清楚、代码量适中、后续改造成本低。你可以在这个骨架上继续加自己的场景而不是被一个封死的工具局限住。2. 准备工作从 Office 环境到豆包 API Key2.1 先解决 VBA 开发环境很多人卡在第一步其实不是代码问题而是根本不知道自己的 Word 能不能跑 VBA。这里我先把环境问题讲透。如果你用的是 Microsoft Office事情很简单。Office 自带完整的 VBA 引擎。你只需要打开 Word按Alt F11进入 VBA 编辑器。如果按了没反应说明“开发工具”选项卡没显示去“文件 - 选项 - 自定义功能区”勾选右侧的“开发工具”然后在功能区的“开发工具”里点“Visual Basic”也行。如果你用的是 WPS要稍稍注意一下。WPS 的个人版默认不带 VBA 组件它的宏机制默认是 WPS JS 宏。不过很多用户会自己补装一个 WPS VBA 插件在 WPS 官网或第三方工具里可以找到对应版本装完之后 WPS 里也能按Alt F11进入 VBA 编辑器。判断标准很简单编辑器里能不能写Sub、End Sub能写就是 VBA 环境没问题。接下来是宏安全性设置。Word 和 WPS 默认都会限制运行宏特别是从网络下载的文档。建议在测试阶段把宏安全性调到最低文件 - 选项 - 信任中心 - 信任中心设置 - 宏设置选择“启用所有宏”。这只建议在自己可控的电脑、自己写的代码情况下使用。正式部署到别人电脑上时不要降低安全级别而是建议对宏文件做数字签名或者至少明确告知使用者文件来源。这不是保守而是防止宏病毒和可疑代码在别人的机器上乱跑。还有一个容易忽略的设置在 VBA 编辑器的“工具 - 引用”里有时需要勾选“Microsoft HTML Object Library”或“Microsoft WinHTTP Services”吗实际情况是不需要因为下面的代码用的CreateObject直接创建对象不依赖前期绑定引用。这样兼容性最好不管是 Office 还是 WPS32 位还是 64 位都能减少引用缺失的报错。2.2 申请豆包 API Key 与开通模型豆包 API 是通过火山方舟平台提供的字节系产品的对外模型服务基本都走这个入口。你需要先去火山方舟控制台注册账号、完成实名认证然后开通豆包模型。具体流程不复杂在控制台找到“豆包”相关模型如果你是新用户一般会有免费额度可以拿来跑通开发接着在“API Key 管理”里创建一个 Key。创建时建议把用途备注清楚比如“Word宏调用”防止以后多个 Key 搞混。有些人申请完之后发现模型不可用大概率是因为没有在“开通管理”里把指定模型开通或者还没有通过免费额度申请这点特别注意。创建好 Key 之后API 请求地址可以先用命令行工具验证一遍。豆包的接口兼容 OpenAI 格式请求地址是https://ark.cn-beijing.volces.com/api/v3/chat/completions请求头里加Authorization: Bearer 你的APIKey请求体里带model和messages数组。先用 curl 之类的方式试一次如果返回正常内容再进 Word 做 VBA 开发也不迟。关于模型名豆包开放平台现在已经支持用模型名直接调用比如doubao-pro-32k、doubao-lite-32k这种。但不同账号、不同区域可能看到的具体名称不一样而且有些入口要求填写你开通后生成的“推理接入点 ID”也就是ep-开头的一串字符。所以如果代码里写死模型名请求时报“模型不存在”就去后台看看你实际开通的模型名或接入点 ID替换掉代码里的对应字符串就行。这个坑我踩过一次后面会专门提。还需要强调一点API Key 就是你的账户通行证。不要把它写死在文档里随意发给别人。VBA 代码本质上也是纯文本别人打开你的宏文件就能看到全部内容。安全方案后面会说推荐用环境变量去保存 Key改动一下代码就能规避明文泄露。2.3 VBA 调用 API 前需要弄懂的最小知识VBA 调用 HTTP 接口这件事很多人一听就头大但其实只需要理解三个点HTTP 请求方法、请求头、请求体以及 JSON 的简单结构。这个场景里我们用的是 POST 请求就是把一段数据提交给服务器让服务器处理完返回结果。请求头里有固定格式Content-Type: application/json告诉服务器我发送的是 JSON 数据Authorization: Bearer ...是身份凭证只有带了正确的凭证服务端才知道这个请求是谁发的。请求体就是向豆包提交的用户消息和参数最核心的是model模型名和messages消息列表。messages里通常放一组角色为user的内容也就是你让 AI 处理什么。你还可以加temperature控制发散程度、max_tokens控制返回文本的最大长度。返回的内容也是一段 JSON结构可以想象成一个容器套着另一个容器。最外层是请求的元信息核心内容在choices[0].message.content里也就是 AI 生成的那段文字。VBA 没有内置的 JSON 解析库所以我们要么用外部封装好的解析模块要么直接用字符串定位方式把这段文字抠出来。对初学者来说字符串定位方式最直观我会在代码部分详细演示如果你后面要解析复杂的 JSON 结构再去导入第三方的 JsonConverter 模块也不迟。把这三个概念理清后面看代码就不会觉得是在看天书。其实很多办公场景里的“接 API”本质都是“构造一段 JSON、发一个 POST、拆一段返回 JSON”这三步反复循环。3. 核心代码把豆包 API 接到 Word 里3.1 整体代码架构说明这段代码我不打算做成一个巨型函数而是拆成几个职责清晰的模块。这样做的好处是你在跑通以后想扩展场景不需要去改核心的请求代码只要新增一个入口函数、修改 prompt 就行。整体结构分四层。第一层是“入口层”也就是你按快捷键运行的宏比如AI润色、AI翻译、AI摘要它们负责从文档里取选中文字、拼接 prompt、把结果插回文档。第二层是“请求组装层”负责把 prompt 转成符合豆包 API 要求的 JSON 字符串。第三层是“网络请求层”负责发送 HTTP 请求并读取返回内容。第四层是“响应解析层”负责从 JSON 里提取出 AI 生成的那段正文。这样的分层听起来有点“软件工程”但实际落地后非常舒服。如果你以后想把豆包 API 接到 Excel 里只需要把入口层换成读取 Excel 单元格、输出到单元格请求层和网络层可以直接复用。需要特别说明的是VBA 项目里如果同一份代码要在 Word 和 WPS 之间无缝切换推荐全部采用“后期绑定”写法也就是所有对象都用CreateObject创建不勾选任何额外引用。这样代码拿到任何一台安装好环境的机器上都能跑不用担心引用缺失导致“编译错误用户定义类型未定义”。3.2 网络请求层发送 POST 并正确处理 UTF-8 编码先看最关键的网络请求函数。我在第一版里直接用winHttp.ResponseText拿返回内容结果中文全部变成乱码。原因是 VBA 默认按系统字符集解析文本而豆包 API 返回的是 UTF-8 编码。正确做法是先拿到二进制响应体ResponseBody再用ADODB.Stream指定 UTF-8 编码读取出来。Private Function HttpPost(url As String, apiKey As String, jsonBody As String) As String 发送HTTP POST请求并返回UTF-8文本 On Error GoTo ErrorHandler Dim winHttp As Object Set winHttp CreateObject(WinHttp.WinHttpRequest.5.1) winHttp.Open POST, url, False winHttp.SetTimeouts 10000, 10000, 30000, 60000 winHttp.SetRequestHeader Content-Type, application/json winHttp.SetRequestHeader Authorization, Bearer apiKey winHttp.Send jsonBody If winHttp.Status 200 And winHttp.Status 300 Then 用 ADODB.Stream 按 UTF-8 解码 Dim stream As Object Set stream CreateObject(ADODB.Stream) stream.Type 1 adTypeBinary stream.Open stream.Write winHttp.ResponseBody stream.Position 0 stream.Type 2 adTypeText stream.Charset utf-8 HttpPost stream.ReadText stream.Close Else HttpPost HTTP Error: winHttp.Status winHttp.ResponseText End If Exit Function ErrorHandler: HttpPost Request Error: Err.Description End Function这段代码里我设置了一组超时时间SetTimeouts 10000, 10000, 30000, 60000分别对应解析超时、连接超时、发送超时、接收超时。AI 接口的响应时间普遍比普通网页请求长尤其你输入的内容很长时可能需要几秒到十几秒所以接收超时我给了 60 秒避免返回结果稍慢一点就中断请求。如果返回状态码不是 2xx比如 403、429、500我会把状态码和原始响应文本直接返回给上层方便后面排查问题。如果你所在的网络环境访问这个服务域名不稳定可以考虑把WinHttp.WinHttpRequest.5.1换成MSXML2.XMLHTTP两者都是 Windows 系统自带的组件但后者对某些旧环境的兼容性更好。我在 WPS 上测试时两个都能用团队同事的电脑上有的只能成功创建后者提供这段备选方案当做一个保底手段。3.3 请求组装层构造豆包要的 JSON 数据请求体是标准的 OpenAI 兼容结构。模型名我默认填doubao-pro-32k如果你开通的模型名不一样直接替换这个字符串。messages数组里我放了一条user消息也就是你发给 AI 的 prompt。为了防止用户输入的内容里包含双引号导致 JSON 结构被破坏我在拼接时对双引号做了转义处理。Private Function BuildRequestBody(prompt As String) As String Dim modelName As String modelName doubao-pro-32k Dim safePrompt As String safePrompt Replace(prompt, , \) safePrompt Replace(safePrompt, vbCrLf, \n) safePrompt Replace(safePrompt, vbLf, \n) 构造 JSON 字符串 BuildRequestBody { model : modelName , _ messages:[{ role : user , _ content: safePrompt }], _ temperature:0.7, _ max_tokens:2048} End Function拼 JSON 串的时候我用了大量双引号这是 VBA 字符串语法里的转义规则两个连续双引号表示一个真正的双引号字符。第一次写这段代码的读者可能觉得眼花但它其实很机械你只需要记住在 VBA 的字符串里想输出就用。temperature我设置为 0.7。这个参数控制生成文本的随机性值越大越有创造力值越小越稳定保守。如果你主要用 Word 做摘要、提取要点这类任务可以把它调低到 0.2如果是做文案创作、头脑风暴可以调到 0.9。max_tokens2048限制了单次返回的最大长度对于绝大多数文档场景已经足够。如果你希望 AI 输出超长文章可以适当加大同时也要考虑更长的响应时间。3.4 响应解析层从 JSON 里提取 AI 返回的正文豆包返回的 JSON 结构不算复杂但 VBA 里没有json.loads这种现成函数。我的做法是先定位返回文本中的content:标记然后把后面直到下一个双引号之间的内容抠出来。这个策略对豆包返回的正常文本是有效的因为单次生成结果的content基本都是普通文本。Private Function ExtractAIResponse(jsonStr As String) As String Dim marker As String marker content: Dim startPos As Long startPos InStr(1, jsonStr, marker, vbTextCompare) If startPos 0 Then ExtractAIResponse [无法解析响应] Exit Function End If startPos startPos Len(marker) Dim endPos As Long endPos InStr(startPos, jsonStr, , vbTextCompare) If endPos 0 Then ExtractAIResponse [无法解析响应] Exit Function End If Dim result As String result Mid$(jsonStr, startPos, endPos - startPos) 还原常见转义字符 result Replace(result, \n, vbCrLf) result Replace(result, \r, vbCr) result Replace(result, \, ) result Replace(result, \\, \) ExtractAIResponse result End Function这个函数有一个已知缺陷如果 AI 返回的正文里本身包含英文双引号可能会提前截断。但实测下来豆包在文档处理场景下很少在正文里输出裸引号基本都是标准的文本内容所以这个简单提取方式已经足够稳定。如果你要处理非常复杂的 JSON或者想更严谨地解析嵌套结构可以引入 JsonConverter 模块然后改用obj(choices)(1)(message)(content)这种方式提取。但对绝大多数 Word 场景来说字符串定位是投入产出比最高的方案。3.5 主流程入口让 VBA 和 Word 文档真正交互前面几个函数是底座真正触发使用的是入口宏。我设计了两个最常用的入口一个是“润色选中文字并插入结果”另一个是“问答并插入结果”。它们都遵循同一套流程读取选中文字 - 清掉首尾空行和段落标记 - 构造 prompt - 请求豆包 - 把返回结果插到文档里。Public Sub AISelectionRewrite() 功能将选中文字交给豆包润色并把结果插入到文档末尾下方 Dim selText As String selText GetSelectionText() If Len(selText) 0 Then MsgBox 请先选中需要处理的文字。, vbExclamation Exit Sub End If Dim prompt As String prompt 请对以下文本进行润色保留原意让表达更加流畅、专业、清晰。直接输出润色结果不要加任何解释。 vbCrLf selText Dim apiKey As String apiKey GetApiKey() If apiKey Then MsgBox 请先在系统环境变量中设置 DOUBAO_API_KEY。, vbCritical Exit Sub End If Dim response As String response HttpPost(GetApiUrl(), apiKey, BuildRequestBody(prompt)) Dim aiReply As String aiReply ExtractAIResponse(response) 插入到选区下方 Selection.Collapse Direction:wdCollapseEnd Selection.InsertAfter vbCrLf vbCrLf 【AI润色结果】 vbCrLf aiReply End Sub这里有几个实用细节。Selection.Collapse Direction:wdCollapseEnd会把插入点移到当前选区末尾然后我在后面追加内容避免把原本选中的文字覆盖掉。GetSelectionText函数专门负责清理选区文本末尾的段落标记因为 Word 选区文本通常会把段落符也带进来直接拼进 prompt 里没有意义处理不当还会让豆包误以为你要处理空行。Private Function GetSelectionText() As String Dim t As String t Selection.Text 去掉首尾空白和段落标记 Do While Right(t, 1) vbCr Or Right(t, 1) vbLf Or Right(t, 1) t Left(t, Len(t) - 1) Loop Do While Left(t, 1) vbCr Or Left(t, 1) vbLf Or Left(t, 1) t Mid$(t, 2) Loop GetSelectionText t End Function如果你想要的是“问答”模式也就是在输入框里写问题然后结果插入到光标处入口函数也很简单Public Sub AIAsk() Dim question As String question InputBox(请输入你的问题或指令, 豆包 AI) If Len(Trim(question)) 0 Then Exit Sub Dim apiKey As String apiKey GetApiKey() If apiKey Then MsgBox 请先设置 DOUBAO_API_KEY 环境变量。, vbCritical Exit Sub End If Dim prompt As String prompt question Dim response As String response HttpPost(GetApiUrl(), apiKey, BuildRequestBody(prompt)) Dim aiReply As String aiReply ExtractAIResponse(response) Selection.TypeText vbCrLf vbCrLf 【豆包回答】 vbCrLf aiReply vbCrLf End SubSelection.TypeText等同于当前光标位置直接打字所以无论你把光标放在哪个段落结果都会插到那个位置。这种方式适合随手调用不用提前选择文字。3.6 API Key 的存放方式用环境变量避免明文泄漏VBA 代码是纯文本任何拿到宏文件的人都能看到源码。如果 AP IKey 直接写在代码里等于把密码贴在脸上了。更合理的做法是从系统环境变量读取。Private Function GetApiKey() As String GetApiKey Environ(DOUBAO_API_KEY) End Function设置环境变量不难。在 Windows 的“系统属性 - 高级 - 环境变量”里新增一个用户变量变量名DOUBAO_API_KEY变量值填你的豆包 API Key。设置完之后你不需要重启电脑但必须重启 Word因为 VBA 里的Environ读取的是 Word 进程启动时的环境变量表。这个细节很隐蔽当时我明明设置了环境变量代码却一直返回空字符串后来重启 Word 才正常。如果你不想设置环境变量也可以在代码里直接写apiKey 你的Key。这两种方案安全性差别很大我只建议在本地快速测试时用明文方式真正部署给别人用之前一定改成环境变量读取并且在交付文档里说明“如何配置环境变量”。4. 实操录制把代码跑起来的过程4.1 在 Word 里创建模块并粘贴代码当你已经把环境准备妥当下面就是实际操作的完整路径。打开 Word 后按Alt F11进入 VBA 编辑器在左侧“工程资源管理器”里找到Normal如果你只是当前文档测试也可以找当前文档的ThisDocument或新建模块。点菜单“插入 - 模块”就会生成一个空白代码窗口。把上面所有函数按顺序粘贴进去。粘贴之后不需要做任何编译操作VBA 会在运行时自动检查语法。按下F5或者菜单“运行 - 运行子过程”就能测试了。如果光标在任意一个Sub内部F5会默认运行当前子过程如果没有它会弹出对话框让你选择运行哪个宏。这里有一个常见情况如果粘贴代码后弹出“编译错误用户定义类型未定义”多半是代码里用了wdCollapseEnd但当前工程没有引用 Word 对象库。解决方法是“工具 - 引用”勾选Microsoft Word 16.0 Object Library。不过我在代码里用的是Selection和wdCollapseEnd这俩在 Word VBA 环境里是默认对象和内置常量正常不需要手动勾选如果你是从旧版本 Office 迁移过来也可以把wdCollapseEnd直接替换成数字0一劳永逸。保存文件时Word 文档如果包含宏必须保存为docm格式而不是普通的docx。docx会把宏全部丢弃下次打开就等于白写了。保存时选“启用宏的 Word 文档”文件名后缀会变成.docm。这个细节非常重要我在早期折腾宏的时候就经常因为顺手按了 CtrlS 存成 docx隔天发现代码全没了。4.2 第一次运行润色、翻译、问答三个实际演示跑通之后你可以用几个真实场景测试。我在测试文档里随便写了一段话“我们部门上个季度完成了系统升级但因为人员培训没跟上使用效果不是很好需要重新组织培训。”选中这句话运行AISelectionRewrite豆包的返回结果是类似这样的“我部门已于上季度完成系统升级但受限于人员培训未同步推进当前整体使用效果尚不理想。为此下一步计划重新组织专项培训确保相关人员熟练掌握新系统操作。”可以看到同样的话被改得更书面、更规整而且直接插到了原文下方。如果你想让改写结果替换原文而不是插入新段落可以在入口函数里先Selection.Text aiReply再Selection.Collapse取消选中但要注意这样会丢失原文建议在有备份的前提下使用。翻译场景也一样。把英文段落选中运行一个翻译入口prompt 改为“请将以下英文翻译成中文保持专业术语准确”返回结果自动插入。为了让翻译更准确你还可以在 prompt 里指定目标语言风格比如“翻译成适合商务邮件的中文”。问答场景更灵活。运行AIAsk弹出输入框输入“请把这段文字提炼成三个要点并列出关键词”光标所在处就会插入一段结构清晰的回答。这个入口相当于在 Word 里内置了一个“按需问答助手”不影响原有内容随时呼出、随时消失。如果你想让同一段文字被多个不同指令处理可以在入口层写多个宏比如AI扩写、AI缩写、AI改语气、AI翻译成英文每个宏只改 prompt 字符串。请求层和网络层完全共用这就是上面分层架构带来的实用好处。我实际使用下来最顺手的是把几个高频指令绑定到快捷键比如Alt1润色、Alt2翻译、Alt3摘要比打开对话页面不知道快了多少。4.3 二十分钟变出“AI 工具栏”把宏按钮加到 Word 界面如果每次用 AI 功能都要进 VBA 编辑器按 F5体验还是太极客。把它变成一个看得见的按钮才能真正融入日常办公。做法不复杂在 Word 功能区空白处右键选择“自定义快速访问工具栏”在“从下列位置选择命令”下拉里选“宏”找到你写好的宏点击“添加”。之后你就能在 Word 最上方的快速访问工具栏看到一个通用图标点击它就能运行对应宏。如果你有多个宏可以给它们设置不同的图标和名称。修改方式是在 VBA 编辑器菜单“工具 - 宏 - 宏”里选择某个宏点击“选项”在弹出的窗口里可以给它设置快捷键和按钮图标。图标虽然不能完全自定义但 Office 内置的素材足够区分“润色、翻译、问答”这几个功能了。更进阶的玩法是把按钮放在自定义功能区里新增一个“AI 助手”选项卡下面放几个分组每个分组放不同功能的按钮。这个操作对 VBA 初学者来说稍微有点繁琐需要动到 XML 配置文件但如果你的公司或个人电脑经常做文档处理值得折腾一次之后所有 AI 功能都像原生功能一样即点即用。我自己折腾完之后桌面上一个 Word 图标点开就是自带几个 AI 按钮的文档。5. 常见问题与排错实录5.1 问题速查表运行报错、乱码、无响应我把实际运行时可能遇到的高频问题整理成了表格方便你在现场对照排查而不是漫无目的地翻搜索引擎。现象可能原因解决方案中文乱码VBA 直接读取ResponseText解码错误使用ResponseBodyADODB.Stream按 utf-8 读取返回内容只有前几个字英文双引号导致字符串定位提前截断建议在 prompt 中提示“不要使用双引号”或升级为 JsonConverterHTTP 403 错误API Key 错误、未开通模型、账户没权限检查Authorization头、后台模型开通状态重新生成 KeyHTTP 404 错误请求地址错误或模型名不存在确认https://ark.cn-beijing.volces.com/api/v3/chat/completions是否正确model 是否配准HTTP 429 错误触发限流、并发超限降低调用频率或者增加On Error后在休眠后重试请求超时输入文本太长、网络不稳定提高SetTimeouts接收超时简化输入内容没有任何反应API Key 环境变量没读到重启 Word 再试确认变量名严格为DOUBAO_API_KEY宏被禁用Word 安全级别设置、宏未签名信任中心启用所有宏或对文件签名并保存为.docmWPS 里看不到 VBA 编辑器没安装 VBA 插件安装与 WPS 版本对应的 VBA 组件插入位置不正确Selection对象理解有误先用Selection.Collapse定位再执行InsertAfter或TypeText最容易被忽视的其实是第一行的“中文乱码”。如果你拿到返回结果不是花花的乱码而是能看懂只是个别标点不对那大概率是Charset没设置成utf-8或者没给stream转回文本模式。记住先用二进制模式写入ResponseBody再切到文本模式、指定Charset utf-8顺序不要反过来。反过来一定会出问题。5.2 WPS 特有的兼容性坑与绕行办法WPS 的 VBA 和 Office 的 VBA 在基础语法上完全兼容但到了调用外部组件、读取 Word 对象模型细节这些环节还是有一些细微差别。我实际测试时遇到过两个典型问题。一是部分 WPS 版本里WinHttp.WinHttpRequest.5.1创建不出来报“自动化错误”。这时候可以把请求层的CreateObject参数换成MSXML2.XMLHTTP。它的基本用法和WinHttp类似Open、SetRequestHeader、Send都能用只是超时控制等能力弱一些。为了兼容两种环境我习惯在代码里写一个备选机制先尝试 WinHttp失败再切 XMLHTTP。二是在 WPS 里wdCollapseEnd这个 Word 内置枚举常量有时无法识别。我查过一些资料是因为 WPS VBA 的枚举支持不完全。解决办法也简单直接改成0Selection.Collapse Direction:0。在 Word 对象模型里wdCollapseEnd的值就是0wdCollapseStart是1所以写数字完全等效。这让代码在两套软件里都能无差别运行。如果你用的是 WPS 的 JS 宏环境而不是 VBA 环境本文这套代码就不能直接用了。JS 宏的调用方式更贴近 JavaScript其实也是发 HTTP、解析 JSON但语法差异极大。我建议仍然优先补装 WPS VBA 组件这样能沿用 Word VBA 的成熟生态遇到问题也好搜索如果公司强制要求用 JS 宏则需要把主体逻辑改写成 JavaScript 风格代码结构思路不变但实现细节要重写。5.3 我踩过的几个坑和优化技巧经历了很长一段时间的试错有几个细节虽然很小但直接影响了使用体验放出来供你参考。第一是“选区末尾的段落标记”。我最早写入口函数时直接用Selection.Text发请求经常发现 AI 返回的结果开头空一行或者对整段文字的理解出现偏差。排查发现是选区文字末尾自带一个段落标记拼接在 prompt 后面后AI 会把它当成一个独立空段落。去掉首尾的vbCr、vbLf、空格之后问题彻底消失了。如果你做批量文档处理务必要重视这种“看不见的字符”。第二是max_tokens设置不合适导致内容越改越短。我初版代码设成512本以为够用结果让豆包润色一段话时它总是只输出一小段。后来把max_tokens加到2048问题就解决了。这个参数不是越大越好因为越大意味着响应越慢、费用越高但至少不能小于你预期输出文本的合理长度。对于“翻译整段”“扩写段落”这类任务建议至少1500以上。第三是模型名对应关系。豆包平台的模型名在控制台和接口调用时并不总是完全一致。我最初照抄别人的代码用了某个模型名接口返回 404后来去控制台复制了自己开通的模型名才跑通。所以如果你照这个方案做一旦遇到模型相关错误优先去后台确认名称不要反复怀疑代码逻辑。第四是调用频率和出错重试。AI 接口偶尔会抖尤其做批量处理时连续发送几十个请求后容易出现 429 或 5xx 错误。我的做法是在 HttpPost 里增加一个简单的重试机制请求失败后Sleep 3000再重试一两次。Sleep函数在 VBA 里可以调用 Windows APIDeclare Sub Sleep Lib kernel32 (ByVal ms As Long)。不要在同一文档里循环几百次请求一是容易被限流二是 Word 界面会一直卡住处理大量文本时应该用后台脚本方式而不是在 UI 线程里硬等。第五也是我觉得最实用的一个优化把常用指令参数做成常量表。你可以在模块顶部定义一组全局常量比如C_PROMPT_REWRITE 请润色...、C_PROMPT_TRANSLATE 请翻译...然后入口宏用同一个通用函数CallAI(prompt, ...)只是在调用的地方传入不同的 prompt 常量。这样做后期维护非常舒服改 prompt 不需要动主流程也更适合把整个方案分享给同事时让他自己调“语气”和“风格”。如果你还需要把这套能力扩展到 Excel思路其实已经完全打通了把“读取选区文字”改成“读取当前单元格”把“插入文本”改成“写入指定单元格”网络请求层和 JSON 解析层几乎不用动。更进一步你还可以把文档批量改写做成“遍历一段文档、逐段发送给豆包、自动生成新文档”的半自动工具这对长文档、标书和合同处理可以说是质的提升。最后一句体己话我自己实际折腾下来最大的感受是VBA 接入豆包 API 并不难难的是先把“文档里的文本”和“外部 AI 服务”之间的数据管道想通。一旦你理解了“HTTP 请求 JSON 组装 结果解析”这个最小闭环任何办公软件里的 AI 化改造都会从“不知从何下手”变成“马上能搭一个原型”。这套代码虽然不华丽也没用上什么高级技巧但它是真的能在日常写材料时省下大量复制粘贴时间的东西。把 API Key 放进环境变量、把常用功能绑成按钮接下来你可以放心地让豆包在 Word 里帮你接力干活了。 用VBA在Word中调用豆包API：实现文档润色与翻译的自动化
最近在文档里频繁需要改写、翻译和总结索性写了个 VBA 宏让 WPS/Office 的 Word 直接调用豆包 API。这个方案很轻不需要单独的客户端把一段代码丢进 VBA 编辑器就能用。如果你每天都在 Word 里处理大量文本又要借助豆包这类大模型润色、翻译、摘要这个玩法和思路可以直接照搬。先说它能解决什么问题。以前我在 Word 里写一段材料想让它变得更口语化、更书面或者想快速翻译一段外文都得切到浏览器、打开对话页面、复制粘贴、再手动把结果贴回文档。来回折腾几次原来的排版和上下文就乱了思路也容易断。现在选中文字、按一下宏结果直接插进光标位置上下文不用离开 Word 一步。这个流程非常适合办公室文档处理、行政文案、论文写作、合同修改和自媒体稿件整理。如果你对 VBA 有一定了解甚至完全没写过 VBA只要会用 Word跟着下面的步骤把代码粘贴进去也能跑通整个链路。当然我一开始也想过用 Python、用付费插件后来发现作为 Word 重度用户VBA 才是最贴合“文档场景”的接入方式。下面我把这套方案的完整思路、环境准备、代码实现、实际踩坑记录和排错经验一次写清楚。1. 为什么要在 Word 里接豆包 API场景与方案取舍1.1 你的文档工作流里AI 到底能帮你省什么很多人觉得“Word 里接 AI”是个伪需求无非是复制粘贴多一步而已。我自己实际用下来发现差别非常大原因在于“上下文不离开文档”这件事远比想象中重要。比如我在写项目方案有一段话写得比较生硬想改成更有说服力的版本。过去的操作是选中文字 - 切到豆包对话 - 粘贴 - 等结果 - 复制 - 回 Word - 替换原文。听起来也就几秒钟但问题在于当你处理十段、二十段文字时反复切换窗口的代价会成倍放大而且非常容易漏改、改错段落。更严重的是一旦对话页面上滑下滑原来的 prompt 和上下文很容易丢失你甚至需要重新描述一遍“请帮我润色这句话”。把 API 直接接进 Word 之后整个动作变成选中文字 - 按快捷键运行宏 - 结果自动插入。人不需要离开文档选区就是上下文运行结果直接在眼前。对于需要逐段打磨文案、批量翻译外文资料、或者在几十个文档里做重复性汇总工作的人来说这个效率提升是很实在的。另一个被低估的价值是“自动化”。VBA 宏可以读取 Word 当前选区的文字、当前文档标题、甚至整篇文档的内容把它拼进 prompt 后发送给豆包得到的答案再自动写回文档。这已经不是简单的“少复制两次”而是能在 Word 内部构建一套完整的文档级 AI 工作流。比如我可以把一段英文合同条款选中运行“翻译术语解释”的宏它就自动在下方生成译文和关键术语说明再比如选中一段技术描述运行“转为面向客户的通俗版本”它就能按你的语气要求输出一段可以直接用的文案。1.2 为什么我选择 VBA 而不是其他方案做这个事之前我认真对比过几条路线网页对话、第三方 Word 插件、Python 自动化脚本还有 VBA。对比完才发现VBA 在这个场景里的优势被严重低估了。先看网页对话。它最大的问题是模块间割裂你在浏览器里跟 AI 聊天得到的内容和 Word 文档本身没有任何关联。每次都要人工复制粘贴而且很难做到“基于选中内容 自定义指令”这种半自动操作。第三方 Word 插件虽然体验接近原生但要安装客户端、申请插件权限、还得考虑公司电脑环境是否允许安装软件风险和维护成本都比较高。Python 自动化比如用 win32com 控制 Word能力确实强但部署门槛更高目标机器得有 Python 环境、装一堆依赖、写好脚本还得管理异常和进程通信对于大多数同事来说这玩意儿基本不可用。VBA 就不一样了。Office 自带 VBA 引擎WPS 装上 VBA 组件后也能跑不需要额外安装任何软件依赖。它能直接读取当前文档、当前选区、书签、批注能在文档中实时插入文本、创建表格、修改样式。对“Word 里调用 AI 然后就地返回结果”这个高频需求来说VBA 就是那条最轻的路径。当然 VBA 也有明显的短板。比如代码写起来不如 Python 优雅JSON 解析要自己抠字符串网络请求库支持有限调试也有点老派。但它的优势是稳固、直接、随处可用。只要你的电脑能跑 Word这段代码就能工作。对于办公自动化场景这比“理论上更好”但“实际部署难”的方案要可靠得多。1.3 这个方案适合谁、能起到什么作用从实际需求来看这个方案最适合三类人。第一类是经常写标书、方案、公文、周报的人他们手头有大量现成文本需要反复润色、改写、换语气第二类是跨境或外企办公人群经常要把中文材料翻译成英文、把英文合同翻成中文同时兼顾专业术语第三类是有点 VBA 基础的办公自动化爱好者想给 Word 加上“AI 按钮”再进一步做文档批量生成、批量汇总这类高级操作。对完全没写过 VBA 的人来说这个项目也是很好的入门例子。整个代码里涉及“如何发 HTTP 请求”“如何解析 JSON”“如何处理编码”“如何与 Word 对象模型交互”这几个典型知识点每一块都不复杂但它们组合起来就是一个可以落地的生产力工具。即使你之前只写过“Hello World”级别的 VBA只要照着我的步骤操作也能在十几分钟内把它跑起来。我需要提前说明一点这个项目不是要把 Word 变成功能复杂的 AI 客户端而是提供一个“你自己能够改、能够扩展”的最小可用方案。它的价值在于架构清楚、代码量适中、后续改造成本低。你可以在这个骨架上继续加自己的场景而不是被一个封死的工具局限住。2. 准备工作从 Office 环境到豆包 API Key2.1 先解决 VBA 开发环境很多人卡在第一步其实不是代码问题而是根本不知道自己的 Word 能不能跑 VBA。这里我先把环境问题讲透。如果你用的是 Microsoft Office事情很简单。Office 自带完整的 VBA 引擎。你只需要打开 Word按Alt F11进入 VBA 编辑器。如果按了没反应说明“开发工具”选项卡没显示去“文件 - 选项 - 自定义功能区”勾选右侧的“开发工具”然后在功能区的“开发工具”里点“Visual Basic”也行。如果你用的是 WPS要稍稍注意一下。WPS 的个人版默认不带 VBA 组件它的宏机制默认是 WPS JS 宏。不过很多用户会自己补装一个 WPS VBA 插件在 WPS 官网或第三方工具里可以找到对应版本装完之后 WPS 里也能按Alt F11进入 VBA 编辑器。判断标准很简单编辑器里能不能写Sub、End Sub能写就是 VBA 环境没问题。接下来是宏安全性设置。Word 和 WPS 默认都会限制运行宏特别是从网络下载的文档。建议在测试阶段把宏安全性调到最低文件 - 选项 - 信任中心 - 信任中心设置 - 宏设置选择“启用所有宏”。这只建议在自己可控的电脑、自己写的代码情况下使用。正式部署到别人电脑上时不要降低安全级别而是建议对宏文件做数字签名或者至少明确告知使用者文件来源。这不是保守而是防止宏病毒和可疑代码在别人的机器上乱跑。还有一个容易忽略的设置在 VBA 编辑器的“工具 - 引用”里有时需要勾选“Microsoft HTML Object Library”或“Microsoft WinHTTP Services”吗实际情况是不需要因为下面的代码用的CreateObject直接创建对象不依赖前期绑定引用。这样兼容性最好不管是 Office 还是 WPS32 位还是 64 位都能减少引用缺失的报错。2.2 申请豆包 API Key 与开通模型豆包 API 是通过火山方舟平台提供的字节系产品的对外模型服务基本都走这个入口。你需要先去火山方舟控制台注册账号、完成实名认证然后开通豆包模型。具体流程不复杂在控制台找到“豆包”相关模型如果你是新用户一般会有免费额度可以拿来跑通开发接着在“API Key 管理”里创建一个 Key。创建时建议把用途备注清楚比如“Word宏调用”防止以后多个 Key 搞混。有些人申请完之后发现模型不可用大概率是因为没有在“开通管理”里把指定模型开通或者还没有通过免费额度申请这点特别注意。创建好 Key 之后API 请求地址可以先用命令行工具验证一遍。豆包的接口兼容 OpenAI 格式请求地址是https://ark.cn-beijing.volces.com/api/v3/chat/completions请求头里加Authorization: Bearer 你的APIKey请求体里带model和messages数组。先用 curl 之类的方式试一次如果返回正常内容再进 Word 做 VBA 开发也不迟。关于模型名豆包开放平台现在已经支持用模型名直接调用比如doubao-pro-32k、doubao-lite-32k这种。但不同账号、不同区域可能看到的具体名称不一样而且有些入口要求填写你开通后生成的“推理接入点 ID”也就是ep-开头的一串字符。所以如果代码里写死模型名请求时报“模型不存在”就去后台看看你实际开通的模型名或接入点 ID替换掉代码里的对应字符串就行。这个坑我踩过一次后面会专门提。还需要强调一点API Key 就是你的账户通行证。不要把它写死在文档里随意发给别人。VBA 代码本质上也是纯文本别人打开你的宏文件就能看到全部内容。安全方案后面会说推荐用环境变量去保存 Key改动一下代码就能规避明文泄露。2.3 VBA 调用 API 前需要弄懂的最小知识VBA 调用 HTTP 接口这件事很多人一听就头大但其实只需要理解三个点HTTP 请求方法、请求头、请求体以及 JSON 的简单结构。这个场景里我们用的是 POST 请求就是把一段数据提交给服务器让服务器处理完返回结果。请求头里有固定格式Content-Type: application/json告诉服务器我发送的是 JSON 数据Authorization: Bearer ...是身份凭证只有带了正确的凭证服务端才知道这个请求是谁发的。请求体就是向豆包提交的用户消息和参数最核心的是model模型名和messages消息列表。messages里通常放一组角色为user的内容也就是你让 AI 处理什么。你还可以加temperature控制发散程度、max_tokens控制返回文本的最大长度。返回的内容也是一段 JSON结构可以想象成一个容器套着另一个容器。最外层是请求的元信息核心内容在choices[0].message.content里也就是 AI 生成的那段文字。VBA 没有内置的 JSON 解析库所以我们要么用外部封装好的解析模块要么直接用字符串定位方式把这段文字抠出来。对初学者来说字符串定位方式最直观我会在代码部分详细演示如果你后面要解析复杂的 JSON 结构再去导入第三方的 JsonConverter 模块也不迟。把这三个概念理清后面看代码就不会觉得是在看天书。其实很多办公场景里的“接 API”本质都是“构造一段 JSON、发一个 POST、拆一段返回 JSON”这三步反复循环。3. 核心代码把豆包 API 接到 Word 里3.1 整体代码架构说明这段代码我不打算做成一个巨型函数而是拆成几个职责清晰的模块。这样做的好处是你在跑通以后想扩展场景不需要去改核心的请求代码只要新增一个入口函数、修改 prompt 就行。整体结构分四层。第一层是“入口层”也就是你按快捷键运行的宏比如AI润色、AI翻译、AI摘要它们负责从文档里取选中文字、拼接 prompt、把结果插回文档。第二层是“请求组装层”负责把 prompt 转成符合豆包 API 要求的 JSON 字符串。第三层是“网络请求层”负责发送 HTTP 请求并读取返回内容。第四层是“响应解析层”负责从 JSON 里提取出 AI 生成的那段正文。这样的分层听起来有点“软件工程”但实际落地后非常舒服。如果你以后想把豆包 API 接到 Excel 里只需要把入口层换成读取 Excel 单元格、输出到单元格请求层和网络层可以直接复用。需要特别说明的是VBA 项目里如果同一份代码要在 Word 和 WPS 之间无缝切换推荐全部采用“后期绑定”写法也就是所有对象都用CreateObject创建不勾选任何额外引用。这样代码拿到任何一台安装好环境的机器上都能跑不用担心引用缺失导致“编译错误用户定义类型未定义”。3.2 网络请求层发送 POST 并正确处理 UTF-8 编码先看最关键的网络请求函数。我在第一版里直接用winHttp.ResponseText拿返回内容结果中文全部变成乱码。原因是 VBA 默认按系统字符集解析文本而豆包 API 返回的是 UTF-8 编码。正确做法是先拿到二进制响应体ResponseBody再用ADODB.Stream指定 UTF-8 编码读取出来。Private Function HttpPost(url As String, apiKey As String, jsonBody As String) As String 发送HTTP POST请求并返回UTF-8文本 On Error GoTo ErrorHandler Dim winHttp As Object Set winHttp CreateObject(WinHttp.WinHttpRequest.5.1) winHttp.Open POST, url, False winHttp.SetTimeouts 10000, 10000, 30000, 60000 winHttp.SetRequestHeader Content-Type, application/json winHttp.SetRequestHeader Authorization, Bearer apiKey winHttp.Send jsonBody If winHttp.Status 200 And winHttp.Status 300 Then 用 ADODB.Stream 按 UTF-8 解码 Dim stream As Object Set stream CreateObject(ADODB.Stream) stream.Type 1 adTypeBinary stream.Open stream.Write winHttp.ResponseBody stream.Position 0 stream.Type 2 adTypeText stream.Charset utf-8 HttpPost stream.ReadText stream.Close Else HttpPost HTTP Error: winHttp.Status winHttp.ResponseText End If Exit Function ErrorHandler: HttpPost Request Error: Err.Description End Function这段代码里我设置了一组超时时间SetTimeouts 10000, 10000, 30000, 60000分别对应解析超时、连接超时、发送超时、接收超时。AI 接口的响应时间普遍比普通网页请求长尤其你输入的内容很长时可能需要几秒到十几秒所以接收超时我给了 60 秒避免返回结果稍慢一点就中断请求。如果返回状态码不是 2xx比如 403、429、500我会把状态码和原始响应文本直接返回给上层方便后面排查问题。如果你所在的网络环境访问这个服务域名不稳定可以考虑把WinHttp.WinHttpRequest.5.1换成MSXML2.XMLHTTP两者都是 Windows 系统自带的组件但后者对某些旧环境的兼容性更好。我在 WPS 上测试时两个都能用团队同事的电脑上有的只能成功创建后者提供这段备选方案当做一个保底手段。3.3 请求组装层构造豆包要的 JSON 数据请求体是标准的 OpenAI 兼容结构。模型名我默认填doubao-pro-32k如果你开通的模型名不一样直接替换这个字符串。messages数组里我放了一条user消息也就是你发给 AI 的 prompt。为了防止用户输入的内容里包含双引号导致 JSON 结构被破坏我在拼接时对双引号做了转义处理。Private Function BuildRequestBody(prompt As String) As String Dim modelName As String modelName doubao-pro-32k Dim safePrompt As String safePrompt Replace(prompt, , \) safePrompt Replace(safePrompt, vbCrLf, \n) safePrompt Replace(safePrompt, vbLf, \n) 构造 JSON 字符串 BuildRequestBody { model : modelName , _ messages:[{ role : user , _ content: safePrompt }], _ temperature:0.7, _ max_tokens:2048} End Function拼 JSON 串的时候我用了大量双引号这是 VBA 字符串语法里的转义规则两个连续双引号表示一个真正的双引号字符。第一次写这段代码的读者可能觉得眼花但它其实很机械你只需要记住在 VBA 的字符串里想输出就用。temperature我设置为 0.7。这个参数控制生成文本的随机性值越大越有创造力值越小越稳定保守。如果你主要用 Word 做摘要、提取要点这类任务可以把它调低到 0.2如果是做文案创作、头脑风暴可以调到 0.9。max_tokens2048限制了单次返回的最大长度对于绝大多数文档场景已经足够。如果你希望 AI 输出超长文章可以适当加大同时也要考虑更长的响应时间。3.4 响应解析层从 JSON 里提取 AI 返回的正文豆包返回的 JSON 结构不算复杂但 VBA 里没有json.loads这种现成函数。我的做法是先定位返回文本中的content:标记然后把后面直到下一个双引号之间的内容抠出来。这个策略对豆包返回的正常文本是有效的因为单次生成结果的content基本都是普通文本。Private Function ExtractAIResponse(jsonStr As String) As String Dim marker As String marker content: Dim startPos As Long startPos InStr(1, jsonStr, marker, vbTextCompare) If startPos 0 Then ExtractAIResponse [无法解析响应] Exit Function End If startPos startPos Len(marker) Dim endPos As Long endPos InStr(startPos, jsonStr, , vbTextCompare) If endPos 0 Then ExtractAIResponse [无法解析响应] Exit Function End If Dim result As String result Mid$(jsonStr, startPos, endPos - startPos) 还原常见转义字符 result Replace(result, \n, vbCrLf) result Replace(result, \r, vbCr) result Replace(result, \, ) result Replace(result, \\, \) ExtractAIResponse result End Function这个函数有一个已知缺陷如果 AI 返回的正文里本身包含英文双引号可能会提前截断。但实测下来豆包在文档处理场景下很少在正文里输出裸引号基本都是标准的文本内容所以这个简单提取方式已经足够稳定。如果你要处理非常复杂的 JSON或者想更严谨地解析嵌套结构可以引入 JsonConverter 模块然后改用obj(choices)(1)(message)(content)这种方式提取。但对绝大多数 Word 场景来说字符串定位是投入产出比最高的方案。3.5 主流程入口让 VBA 和 Word 文档真正交互前面几个函数是底座真正触发使用的是入口宏。我设计了两个最常用的入口一个是“润色选中文字并插入结果”另一个是“问答并插入结果”。它们都遵循同一套流程读取选中文字 - 清掉首尾空行和段落标记 - 构造 prompt - 请求豆包 - 把返回结果插到文档里。Public Sub AISelectionRewrite() 功能将选中文字交给豆包润色并把结果插入到文档末尾下方 Dim selText As String selText GetSelectionText() If Len(selText) 0 Then MsgBox 请先选中需要处理的文字。, vbExclamation Exit Sub End If Dim prompt As String prompt 请对以下文本进行润色保留原意让表达更加流畅、专业、清晰。直接输出润色结果不要加任何解释。 vbCrLf selText Dim apiKey As String apiKey GetApiKey() If apiKey Then MsgBox 请先在系统环境变量中设置 DOUBAO_API_KEY。, vbCritical Exit Sub End If Dim response As String response HttpPost(GetApiUrl(), apiKey, BuildRequestBody(prompt)) Dim aiReply As String aiReply ExtractAIResponse(response) 插入到选区下方 Selection.Collapse Direction:wdCollapseEnd Selection.InsertAfter vbCrLf vbCrLf 【AI润色结果】 vbCrLf aiReply End Sub这里有几个实用细节。Selection.Collapse Direction:wdCollapseEnd会把插入点移到当前选区末尾然后我在后面追加内容避免把原本选中的文字覆盖掉。GetSelectionText函数专门负责清理选区文本末尾的段落标记因为 Word 选区文本通常会把段落符也带进来直接拼进 prompt 里没有意义处理不当还会让豆包误以为你要处理空行。Private Function GetSelectionText() As String Dim t As String t Selection.Text 去掉首尾空白和段落标记 Do While Right(t, 1) vbCr Or Right(t, 1) vbLf Or Right(t, 1) t Left(t, Len(t) - 1) Loop Do While Left(t, 1) vbCr Or Left(t, 1) vbLf Or Left(t, 1) t Mid$(t, 2) Loop GetSelectionText t End Function如果你想要的是“问答”模式也就是在输入框里写问题然后结果插入到光标处入口函数也很简单Public Sub AIAsk() Dim question As String question InputBox(请输入你的问题或指令, 豆包 AI) If Len(Trim(question)) 0 Then Exit Sub Dim apiKey As String apiKey GetApiKey() If apiKey Then MsgBox 请先设置 DOUBAO_API_KEY 环境变量。, vbCritical Exit Sub End If Dim prompt As String prompt question Dim response As String response HttpPost(GetApiUrl(), apiKey, BuildRequestBody(prompt)) Dim aiReply As String aiReply ExtractAIResponse(response) Selection.TypeText vbCrLf vbCrLf 【豆包回答】 vbCrLf aiReply vbCrLf End SubSelection.TypeText等同于当前光标位置直接打字所以无论你把光标放在哪个段落结果都会插到那个位置。这种方式适合随手调用不用提前选择文字。3.6 API Key 的存放方式用环境变量避免明文泄漏VBA 代码是纯文本任何拿到宏文件的人都能看到源码。如果 AP IKey 直接写在代码里等于把密码贴在脸上了。更合理的做法是从系统环境变量读取。Private Function GetApiKey() As String GetApiKey Environ(DOUBAO_API_KEY) End Function设置环境变量不难。在 Windows 的“系统属性 - 高级 - 环境变量”里新增一个用户变量变量名DOUBAO_API_KEY变量值填你的豆包 API Key。设置完之后你不需要重启电脑但必须重启 Word因为 VBA 里的Environ读取的是 Word 进程启动时的环境变量表。这个细节很隐蔽当时我明明设置了环境变量代码却一直返回空字符串后来重启 Word 才正常。如果你不想设置环境变量也可以在代码里直接写apiKey 你的Key。这两种方案安全性差别很大我只建议在本地快速测试时用明文方式真正部署给别人用之前一定改成环境变量读取并且在交付文档里说明“如何配置环境变量”。4. 实操录制把代码跑起来的过程4.1 在 Word 里创建模块并粘贴代码当你已经把环境准备妥当下面就是实际操作的完整路径。打开 Word 后按Alt F11进入 VBA 编辑器在左侧“工程资源管理器”里找到Normal如果你只是当前文档测试也可以找当前文档的ThisDocument或新建模块。点菜单“插入 - 模块”就会生成一个空白代码窗口。把上面所有函数按顺序粘贴进去。粘贴之后不需要做任何编译操作VBA 会在运行时自动检查语法。按下F5或者菜单“运行 - 运行子过程”就能测试了。如果光标在任意一个Sub内部F5会默认运行当前子过程如果没有它会弹出对话框让你选择运行哪个宏。这里有一个常见情况如果粘贴代码后弹出“编译错误用户定义类型未定义”多半是代码里用了wdCollapseEnd但当前工程没有引用 Word 对象库。解决方法是“工具 - 引用”勾选Microsoft Word 16.0 Object Library。不过我在代码里用的是Selection和wdCollapseEnd这俩在 Word VBA 环境里是默认对象和内置常量正常不需要手动勾选如果你是从旧版本 Office 迁移过来也可以把wdCollapseEnd直接替换成数字0一劳永逸。保存文件时Word 文档如果包含宏必须保存为docm格式而不是普通的docx。docx会把宏全部丢弃下次打开就等于白写了。保存时选“启用宏的 Word 文档”文件名后缀会变成.docm。这个细节非常重要我在早期折腾宏的时候就经常因为顺手按了 CtrlS 存成 docx隔天发现代码全没了。4.2 第一次运行润色、翻译、问答三个实际演示跑通之后你可以用几个真实场景测试。我在测试文档里随便写了一段话“我们部门上个季度完成了系统升级但因为人员培训没跟上使用效果不是很好需要重新组织培训。”选中这句话运行AISelectionRewrite豆包的返回结果是类似这样的“我部门已于上季度完成系统升级但受限于人员培训未同步推进当前整体使用效果尚不理想。为此下一步计划重新组织专项培训确保相关人员熟练掌握新系统操作。”可以看到同样的话被改得更书面、更规整而且直接插到了原文下方。如果你想让改写结果替换原文而不是插入新段落可以在入口函数里先Selection.Text aiReply再Selection.Collapse取消选中但要注意这样会丢失原文建议在有备份的前提下使用。翻译场景也一样。把英文段落选中运行一个翻译入口prompt 改为“请将以下英文翻译成中文保持专业术语准确”返回结果自动插入。为了让翻译更准确你还可以在 prompt 里指定目标语言风格比如“翻译成适合商务邮件的中文”。问答场景更灵活。运行AIAsk弹出输入框输入“请把这段文字提炼成三个要点并列出关键词”光标所在处就会插入一段结构清晰的回答。这个入口相当于在 Word 里内置了一个“按需问答助手”不影响原有内容随时呼出、随时消失。如果你想让同一段文字被多个不同指令处理可以在入口层写多个宏比如AI扩写、AI缩写、AI改语气、AI翻译成英文每个宏只改 prompt 字符串。请求层和网络层完全共用这就是上面分层架构带来的实用好处。我实际使用下来最顺手的是把几个高频指令绑定到快捷键比如Alt1润色、Alt2翻译、Alt3摘要比打开对话页面不知道快了多少。4.3 二十分钟变出“AI 工具栏”把宏按钮加到 Word 界面如果每次用 AI 功能都要进 VBA 编辑器按 F5体验还是太极客。把它变成一个看得见的按钮才能真正融入日常办公。做法不复杂在 Word 功能区空白处右键选择“自定义快速访问工具栏”在“从下列位置选择命令”下拉里选“宏”找到你写好的宏点击“添加”。之后你就能在 Word 最上方的快速访问工具栏看到一个通用图标点击它就能运行对应宏。如果你有多个宏可以给它们设置不同的图标和名称。修改方式是在 VBA 编辑器菜单“工具 - 宏 - 宏”里选择某个宏点击“选项”在弹出的窗口里可以给它设置快捷键和按钮图标。图标虽然不能完全自定义但 Office 内置的素材足够区分“润色、翻译、问答”这几个功能了。更进阶的玩法是把按钮放在自定义功能区里新增一个“AI 助手”选项卡下面放几个分组每个分组放不同功能的按钮。这个操作对 VBA 初学者来说稍微有点繁琐需要动到 XML 配置文件但如果你的公司或个人电脑经常做文档处理值得折腾一次之后所有 AI 功能都像原生功能一样即点即用。我自己折腾完之后桌面上一个 Word 图标点开就是自带几个 AI 按钮的文档。5. 常见问题与排错实录5.1 问题速查表运行报错、乱码、无响应我把实际运行时可能遇到的高频问题整理成了表格方便你在现场对照排查而不是漫无目的地翻搜索引擎。现象可能原因解决方案中文乱码VBA 直接读取ResponseText解码错误使用ResponseBodyADODB.Stream按 utf-8 读取返回内容只有前几个字英文双引号导致字符串定位提前截断建议在 prompt 中提示“不要使用双引号”或升级为 JsonConverterHTTP 403 错误API Key 错误、未开通模型、账户没权限检查Authorization头、后台模型开通状态重新生成 KeyHTTP 404 错误请求地址错误或模型名不存在确认https://ark.cn-beijing.volces.com/api/v3/chat/completions是否正确model 是否配准HTTP 429 错误触发限流、并发超限降低调用频率或者增加On Error后在休眠后重试请求超时输入文本太长、网络不稳定提高SetTimeouts接收超时简化输入内容没有任何反应API Key 环境变量没读到重启 Word 再试确认变量名严格为DOUBAO_API_KEY宏被禁用Word 安全级别设置、宏未签名信任中心启用所有宏或对文件签名并保存为.docmWPS 里看不到 VBA 编辑器没安装 VBA 插件安装与 WPS 版本对应的 VBA 组件插入位置不正确Selection对象理解有误先用Selection.Collapse定位再执行InsertAfter或TypeText最容易被忽视的其实是第一行的“中文乱码”。如果你拿到返回结果不是花花的乱码而是能看懂只是个别标点不对那大概率是Charset没设置成utf-8或者没给stream转回文本模式。记住先用二进制模式写入ResponseBody再切到文本模式、指定Charset utf-8顺序不要反过来。反过来一定会出问题。5.2 WPS 特有的兼容性坑与绕行办法WPS 的 VBA 和 Office 的 VBA 在基础语法上完全兼容但到了调用外部组件、读取 Word 对象模型细节这些环节还是有一些细微差别。我实际测试时遇到过两个典型问题。一是部分 WPS 版本里WinHttp.WinHttpRequest.5.1创建不出来报“自动化错误”。这时候可以把请求层的CreateObject参数换成MSXML2.XMLHTTP。它的基本用法和WinHttp类似Open、SetRequestHeader、Send都能用只是超时控制等能力弱一些。为了兼容两种环境我习惯在代码里写一个备选机制先尝试 WinHttp失败再切 XMLHTTP。二是在 WPS 里wdCollapseEnd这个 Word 内置枚举常量有时无法识别。我查过一些资料是因为 WPS VBA 的枚举支持不完全。解决办法也简单直接改成0Selection.Collapse Direction:0。在 Word 对象模型里wdCollapseEnd的值就是0wdCollapseStart是1所以写数字完全等效。这让代码在两套软件里都能无差别运行。如果你用的是 WPS 的 JS 宏环境而不是 VBA 环境本文这套代码就不能直接用了。JS 宏的调用方式更贴近 JavaScript其实也是发 HTTP、解析 JSON但语法差异极大。我建议仍然优先补装 WPS VBA 组件这样能沿用 Word VBA 的成熟生态遇到问题也好搜索如果公司强制要求用 JS 宏则需要把主体逻辑改写成 JavaScript 风格代码结构思路不变但实现细节要重写。5.3 我踩过的几个坑和优化技巧经历了很长一段时间的试错有几个细节虽然很小但直接影响了使用体验放出来供你参考。第一是“选区末尾的段落标记”。我最早写入口函数时直接用Selection.Text发请求经常发现 AI 返回的结果开头空一行或者对整段文字的理解出现偏差。排查发现是选区文字末尾自带一个段落标记拼接在 prompt 后面后AI 会把它当成一个独立空段落。去掉首尾的vbCr、vbLf、空格之后问题彻底消失了。如果你做批量文档处理务必要重视这种“看不见的字符”。第二是max_tokens设置不合适导致内容越改越短。我初版代码设成512本以为够用结果让豆包润色一段话时它总是只输出一小段。后来把max_tokens加到2048问题就解决了。这个参数不是越大越好因为越大意味着响应越慢、费用越高但至少不能小于你预期输出文本的合理长度。对于“翻译整段”“扩写段落”这类任务建议至少1500以上。第三是模型名对应关系。豆包平台的模型名在控制台和接口调用时并不总是完全一致。我最初照抄别人的代码用了某个模型名接口返回 404后来去控制台复制了自己开通的模型名才跑通。所以如果你照这个方案做一旦遇到模型相关错误优先去后台确认名称不要反复怀疑代码逻辑。第四是调用频率和出错重试。AI 接口偶尔会抖尤其做批量处理时连续发送几十个请求后容易出现 429 或 5xx 错误。我的做法是在 HttpPost 里增加一个简单的重试机制请求失败后Sleep 3000再重试一两次。Sleep函数在 VBA 里可以调用 Windows APIDeclare Sub Sleep Lib kernel32 (ByVal ms As Long)。不要在同一文档里循环几百次请求一是容易被限流二是 Word 界面会一直卡住处理大量文本时应该用后台脚本方式而不是在 UI 线程里硬等。第五也是我觉得最实用的一个优化把常用指令参数做成常量表。你可以在模块顶部定义一组全局常量比如C_PROMPT_REWRITE 请润色...、C_PROMPT_TRANSLATE 请翻译...然后入口宏用同一个通用函数CallAI(prompt, ...)只是在调用的地方传入不同的 prompt 常量。这样做后期维护非常舒服改 prompt 不需要动主流程也更适合把整个方案分享给同事时让他自己调“语气”和“风格”。如果你还需要把这套能力扩展到 Excel思路其实已经完全打通了把“读取选区文字”改成“读取当前单元格”把“插入文本”改成“写入指定单元格”网络请求层和 JSON 解析层几乎不用动。更进一步你还可以把文档批量改写做成“遍历一段文档、逐段发送给豆包、自动生成新文档”的半自动工具这对长文档、标书和合同处理可以说是质的提升。最后一句体己话我自己实际折腾下来最大的感受是VBA 接入豆包 API 并不难难的是先把“文档里的文本”和“外部 AI 服务”之间的数据管道想通。一旦你理解了“HTTP 请求 JSON 组装 结果解析”这个最小闭环任何办公软件里的 AI 化改造都会从“不知从何下手”变成“马上能搭一个原型”。这套代码虽然不华丽也没用上什么高级技巧但它是真的能在日常写材料时省下大量复制粘贴时间的东西。把 API Key 放进环境变量、把常用功能绑成按钮接下来你可以放心地让豆包在 Word 里帮你接力干活了。