收到一份几十页的产品方案里面贴了一百多张截图、架构图、UI界面图图片来源五花八门有人从设计稿直接导出的PNG有人从网页截图存下来的JPG还有人直接拿手机拍的白板照片。图片尺寸从半行高到跨三页不等有的顶到页边距有的小得看不清字。这种文档我相信谁都见过甚至很多人自己就面临过。如果手动去调流程是选中图片→格式→裁剪/设置大小→输入宽度→确认一张图至少要四五步一百张就是四五百次操作再加各种边缘情况一下午基本交代在这里。后来我写了一段VBA代码在Word里一键批量处理图片扫描全文档或只处理当前选中范围内的图片按设定的目标宽度等比缩放或者按目标尺寸居中裁剪。跑一次两秒钟剩下的时间可以泡茶。这篇文章就把这套方案完整拆开从Word的对象模型讲到两套可直接粘贴的宏再讲到实际运行中会踩的坑适合经常处理长文档插图、统一截图规范、帮领导排版带图方案的人。1. 批量调图这件事手动到底亏在哪VBA又赢在哪个环节1.1 Word默认功能在“多图统一调整”上的短板Word自己的图片处理能力其实不算弱选中一张图右键有“大小和位置”菜单栏有“图片格式”可以改宽度、高度、裁剪、锁定纵横比。问题在于这些操作全部面向“单张图片”。你确实可以按住Ctrl多选几张浮动图片但右键菜单里的尺寸设置依然针对“其中一张”并不会把统一参数应用到所有选中的图片上。更麻烦的是嵌入型图片也就是默认“随文字移动”、直接插在文字流里的那种图。多选嵌入型图片本身就很别扭Ctrl多选通常选不中只能用鼠标框选或逐个点击。哪怕你选中了菜单里也不提供批量的尺寸统一入口。所以在Word原生界面里“批量调图”本质上是个空白能力。格式窗格算是一个辅助手段选中浮动图片后右侧会出现“布局”“大小”等选项。但你切换到下一张图时窗格参数并不会自动应用到新图。窗格里的数值只是读取当前选中对象的属性改一张保存一张本质上还是“一张一张调”。这就是为什么很多人最后都走向VBA不是Word图片功能不行是它缺少“遍历对象集合”的能力。VBA恰恰最擅长做这件事——循环、读属性、改属性、跳过不满足条件的对象天然就是把重复手工操作翻译成代码的语法。1.2 手动操作到底有多耗时一次具体测算我拿同事那份80页的方案做过一次粗略测算。文档里一共有一百多张图片其中大部分不是刚好适配页面宽度要么太宽要么太小。假设一张图从选中到完成等比缩放需要经过这些步骤步骤操作单手耗时1找到图片并单击选中2秒2进入图片格式/大小面板1.5秒3去掉原有锁定比例再设宽高或输入目标宽度3秒4确认效果、必要时微调2秒5切换到下一张图1秒加起来每张约10秒一百张就是1000秒接近17分钟。这已经算理想情况——因为你还得分清哪些图是嵌入型、哪些是浮动型有些图之前在其它软件里被改过比例改成统一宽度后会变形又得退回重来。实际折腾下来一小时稀松平常。VBA处理同样一百张图核心循环在内存里跑加上Word界面不刷新的情况下大约一两秒完成。差距不是“快几倍”是“分钟级别变成秒级别”。1.3 VBA的思维模式把重复动作折叠成“遍历 判断 赋值”我一直觉得VBA批量处理文档的本质就是个“筛选器”你要遍历一个容器里的所有对象对每个对象做条件判断符合条件的改属性不符合的跳过。它和用Excel公式处理单元格很像只是容器从工作表变成了文档里的图片集合。Word里装图片的容器有两类Shapes和InlineShapes。前者放浮动图形后者放嵌入型图片。写宏的时候判断条件通常是图片类型、当前尺寸、是否锁定纵横比赋值动作通常是设置Width、Height、LockAspectRatio或者调用PictureFormat.Crop*做裁剪。如果把这两套容器搞混了代码跑起来就会出现“明明有图却一张没处理”的诡异结果。2. 写代码前必须踩明白的一课Word的图片分两套户口2.1 嵌入型图片与浮动图片在对象模型里完全是两类在Word里图片有两种布局身份嵌入型随文字移动和浮动型文字环绕或浮于文字上方。这两种身份不仅影响排版方式在VBA对象模型里也是两套完全独立的结构。嵌入型图片属于InlineShape集合。它就像一个放大了的字符夹在文字流里跟着文字走。你用默认方式往Word里插入一张图片多半就是这个身份。浮动图片属于Shape集合。它可以被鼠标随意拖到页面任何位置四周有文字环绕设置适合做配图排版。关键区别在于InlineShapes不是Shapes的子集它们是并行的两套集合。你在代码里遍历ActiveDocument.Shapes只能拿到浮动图片遍历ActiveDocument.InlineShapes只能拿到嵌入型图片。如果你只写一种遍历必然漏掉另一半。2.2 为什么只遍历Shapes集合会漏掉百分之八十的图片我见过太多网上流传的“批量改图片大小”宏只写了这么一段For Each shp In ActiveDocument.Shapes shp.LockAspectRatio msoTrue shp.Width 300 Next这段代码跑完对话框跳出“处理完成”结果文档里的图几乎原封不动。原因就是大部分用户插入的图默认是嵌入型根本不进Shapes集合这段宏从头到尾只处理了零星的几张浮动图。在大多数办公文档里嵌入型图片的比例远高于浮动型。尤其是从网页或PDF复制粘贴过来的截图、合同扫描件、产品素材图基本全是嵌入型。所以真正可用的宏必须同时覆盖两个集合或者在遍历之前统一转换成同一种类型。2.3 统一处理策略嵌入型转浮动还是分开处理面对两套集合有三种策略可选只调尺寸不裁剪分别遍历InlineShapes和Shapes。嵌入型图片直接改Width和Height不需要转换。需要做真实裁剪把嵌入型图片通过ConvertToShape转成浮动Shape因为InlineShape对象没有PictureFormat.Crop*这组裁剪属性。保持文档版式稳定转浮动会导致图片脱离文字流、锚点变化如果只是等比缩放建议不要转换原地改尺寸就够了。我做的小工具里BatchResizeToWidth采用分开处理的方式BatchCropImages则先把范围内的嵌入型图片统一转换为浮动Shape再裁剪。转换会改变版式这一点必须提前意识到。如果你处理的文档对图片锚点位置有严格要求尽量只在必须裁剪时才转。3. 第一个宏一键把所有图片等比缩放到统一宽度3.1 使用场景与基础操作步骤这个宏适合最常见的痛点文档里的图片宽度参差不齐有的直接冲破页边距有的又小到需要放大镜。原理很简单——遍历范围内的所有图片如果宽度大于目标宽度就等比缩小到目标宽度如果图片本身已经小于目标宽度则保持不变防止把小图放大成马赛克。在Word里把宏跑起来的步骤对新手也说一下按AltF11打开VBA编辑器在左侧工程窗格里找到你的文档右键插入一个模块把代码粘贴进去按F5或点运行按钮。以后还想用这个宏可以把它存到个人宏模板里。3.2 完整代码BatchResizeToWidthSub BatchResizeToWidth() Dim doc As Document Dim rng As Range Dim targetWidth As Single Dim page As PageSetup Dim mode As Integer Dim imgCount As Long Application.ScreenUpdating False Set doc ActiveDocument Set page doc.PageSetup 目标宽度取页面内容区域的92%留一点呼吸感 targetWidth (page.PageWidth - page.LeftMargin - page.RightMargin) * 0.92 处理范围判断 选中浮动图片 - 只处理选中图片 If Selection.Type wdSelectionShape Then Set rng Selection.Range imgCount ResizeRngImages(rng, targetWidth) 选中普通文本范围 - 弹窗询问选区还是全文档 ElseIf Selection.Type wdSelectionNormal Then mode MsgBox(检测到选中内容。 vbCrLf _ 点击【是】仅处理选中图片点击【否】处理全文档。, _ vbYesNo vbQuestion, 选择处理范围) If mode vbYes Then Set rng Selection.Range Else Set rng doc.Content End If imgCount ResizeRngImages(rng, targetWidth) 光标状态 - 处理全文档 Else Set rng doc.Content imgCount ResizeRngImages(rng, targetWidth) End If Application.ScreenUpdating True MsgBox 处理完成共调整图片 imgCount 张。, _ vbInformation, 完成 End Sub Private Function ResizeRngImages(ByVal rng As Range, ByVal tW As Single) As Long Dim shp As Shape Dim its As InlineShape Dim shpRange As ShapeRange Dim cnt As Long cnt 0 先处理浮动图片 On Error Resume Next Set shpRange rng.ShapeRange On Error GoTo 0 If Not shpRange Is Nothing Then For Each shp In shpRange If shp.Type msoPicture Then 只缩小不放大避免小图变糊 If shp.Width tW Then shp.LockAspectRatio msoTrue shp.Width tW cnt cnt 1 End If End If Next End If 再处理嵌入型图片 For Each its In rng.InlineShapes If its.Type wdInlineShapePicture Or _ its.Type wdInlineShapeLinkedPicture Then If its.Width tW Then its.LockAspectRatio msoTrue its.Width tW cnt cnt 1 End If End If Next ResizeRngImages cnt End Function3.3 代码逐段拆解为什么这样写开头那句Application.ScreenUpdating False作用是关闭界面重绘。每次你改一张图片Word都要重新刷新页面几十张图连续改的时候刷新动作比代码执行还慢。先关掉跑完再打开肉眼看起来就是“唰”一下完成。处理范围的判断逻辑我建议你认真看一下。Selection.Type的值能告诉你当前用户到底选了什么wdSelectionShape选中的是浮动图片。这时候宏直接把选区里的浮动图片提取出来处理不需要再弹窗问。wdSelectionNormal选中了普通文本中间可能夹着嵌入型图片。此时弹窗询问用户决定是只处理选中区域还是处理全文档。其它情况比如光标只是停在某个段落里那就默认全文档处理。为什么要有这个交互因为“全文档/仅选中图片”不能靠猜。同一段代码在不同人手里使用场景不同有人想把它加到选中图片上运行有人想一键全文档处理。弹一次窗两不误。If shp.Width tW Then这行是我特意加的“只缩不放”逻辑。很多批量处理工具会简单粗暴地把所有图都设成同一个宽度小图被强行拉大最后打印出来全是噪点。加了这层判断小图保留原样只有超宽的图片被拉回安全范围。目标宽度我取的是页面内容区域宽度的92%通过PageSetup动态读取不写死厘米数。这样换到任何纸张大小、任何边距的文档都能自适应。3.4 如果图片本身被拉伸变形了怎么办还有一种隐蔽情况源文档里有些图之前被手动拖拽过纵横比已经乱了看起来扁扁的。这时候直接LockAspectRatio msoTrue再设宽你缩放的其实是“变形的外观”不是图片真实的宽高比例。我处理这类图片的方式是先取消锁定把Width和Height分别重置为图片原始比例下的值。但原始的图形属性里ScaleWidth和ScaleHeight往往能反映真实比例关系更好用的是读shp.Width和shp.Height用这个比例去修正外观比例。补一段参考逻辑 先取消锁定让宽高都能独立设置 shp.LockAspectRatio msoFalse 计算原图真实比例再按比例设高度 Dim origH As Double Dim origW As Double origW shp.ScaleWidth origH shp.ScaleHeight If origW 0 And origH 0 Then shp.Height shp.Width * (origH / origW) End If这段不是必须的但如果你处理的文档是多人协作汇总来的图片很可能被反复拖拽过加一段“先纠正比例再统一缩放”会让结果稳定不少。4. 第二个宏按目标尺寸批量裁剪图片统一视觉比例4.1 缩放解决不了的场景横图和竖图混排还想视觉统一等比缩放能解决“太大/太小”的问题但解决不了“横图和竖图混排”的问题。比如一个方案里既有16:9的电脑截图又有9:16的手机界面图还有若干张方形的白板拍照图。你统一宽度后手机界面图依然很高电脑截图依然很扁整个页面还是乱。想把它们做成统一的视觉比例比如都显示成4:3或16:9的矩形区域只能靠裁剪。缩放负责改变大小裁剪负责改变“留下哪一块画面”。这个需求在做产品说明、公众号配图规范、公司内部培训材料时特别常见。团队要求所有插图在页面上看起来比例一致、边缘整齐截图和照片都得服从版式框架。4.2 完整代码BatchCropImagesSub BatchCropImages() 目标尺寸单位磅1厘米约等于28.35磅 Const TARGET_W As Single 400 Const TARGET_H As Single 250 Dim doc As Document Dim rng As Range Dim shp As Shape Dim its As InlineShape Dim mode As Integer Dim cnt As Long Dim origW As Double Dim origH As Double Dim scaleRatio As Double Application.ScreenUpdating False Set doc ActiveDocument If Selection.Type wdSelectionShape Then Set rng Selection.Range ElseIf Selection.Type wdSelectionNormal Then mode MsgBox(点击【是】仅处理选中图片点击【否】处理全文档。, _ vbYesNo vbQuestion, 选择处理范围) If mode vbYes Then Set rng Selection.Range Else Set rng doc.Content End If Else Set rng doc.Content End If cnt 0 第一步把范围内的嵌入型图片统一转成浮动Shape Dim convertList As Collection Dim itsTmp As InlineShape Dim cItem As Variant Set convertList New Collection For Each itsTmp In rng.InlineShapes If itsTmp.Type wdInlineShapePicture Or _ itsTmp.Type wdInlineShapeLinkedPicture Then convertList.Add itsTmp End If Next For Each cItem In convertList Dim tmpShp As Shape Set tmpShp cItem.ConvertToShape tmpShp.Name BATCHCROP_TEMP Next 第二步遍历浮动Shape等比放大后居中裁剪 Dim shpRange As ShapeRange On Error Resume Next Set shpRange rng.ShapeRange On Error GoTo 0 If Not shpRange Is Nothing Then For Each shp In shpRange If shp.Type msoPicture Then origW shp.Width origH shp.Height 计算等比缩放系数保证缩放后图片完全覆盖目标区域 If TARGET_W / origW TARGET_H / origH Then scaleRatio TARGET_W / origW Else scaleRatio TARGET_H / origH End If shp.LockAspectRatio msoTrue shp.Width origW * scaleRatio 此时shp.Height自动按原比例更新 居中裁剪左右/上下各去掉多余部分 With shp.PictureFormat .CropLeft (shp.Width - TARGET_W) / 2 .CropRight (shp.Width - TARGET_W) / 2 .CropTop (shp.Height - TARGET_H) / 2 .CropBottom (shp.Height - TARGET_H) / 2 End With cnt cnt 1 End If Next End If Application.ScreenUpdating True MsgBox 裁剪完成共处理 cnt 张图片。, _ vbInformation, 完成 End Sub4.3 核心公式等比放大到“刚好覆盖”目标框再居中裁剪这段代码最关键的地方是scaleRatio的计算。很多新手直接写shp.Width TARGET_W加shp.Height TARGET_H结果所有图片都被拉伸变形人脸变驴脸圆形变椭圆。正确思路是先等比缩放让图片的宽或高至少有一个方向刚好等于目标尺寸另一个方向超出目标尺寸然后把超出的部分裁掉。公式其实是两个比例之间取较大值TARGET_W / origW按宽度填满目标框时需要的缩放比例。TARGET_H / origH按高度填满目标框时需要的缩放比例。取两者中的最大值能保证缩放后图片在任何方向都不会小于目标框一定可以完整盖住目标矩形。打个比方你要用一块原来尺寸不同的布去剪裁一块标准桌布得先按照“长和宽中较紧张的那个方向”把布放大到足够大再沿四周把余量剪掉。如果直接缩到和桌布一样大往往某个方向不够长桌面就露出来了。所以最终效果是图片不会变形可视区域严格等于设定尺寸而且保留的是图片正中间的内容。这个“取中间”的裁剪方式对绝大多数截图和产品图来说最安全因为关键内容通常都在画面中心。4.4 裁剪的边界与“假裁剪”真相关于Word里的裁剪必须说明一点它不会真的破坏原图。你设置CropLeft 20Word只是在显示和打印时把图片左边20磅的内容遮住图片文件本身的像素一点不少。把裁剪值设回0图片立刻恢复完整。这也意味着裁剪后的图片虽然“视觉尺寸”变小了但整个图片对象的外框在Word对象模型里可能仍然保持裁剪前的尺寸。文章里为了让版式看起来统一只要求可视区域一致就够了。如果你希望外框也严格等于目标尺寸可以在裁剪后手动设置shp.Width TARGET_W但那样一般会对图片做一定再缩放容易造成细微变形我不太推荐。另外注意CropLeft和CropRight之和不能超过图片缩放后的宽度CropTop和CropBottom之和不能超过缩放后的高度否则可能出现报错或黑色占位块。上面代码里因为先按max系数放大理论上裁剪量始终不会超界但如果你手动调整了目标尺寸比如把TARGET_H设得过大还是要检查一下。5. 我实测里踩过的坑表格图片、页眉页脚和文本框5.1 表格里的图片选区模式为什么会漏我第一次把宏拿到同事文档上跑的时候发现某些图片没被处理。排查后定位到两个原因一是这些图片嵌在表格里所在的Range对象和我预想的不一样二是rng.ShapeRange或rng.InlineShapes在包含表格的选区中不一定覆盖所有单元格。Selection.Range如果覆盖了表格区域理论上InlineShapes会包含表格单元格里的嵌入型图片但浮动图片比如表格单元格里插入的浮动图有时候不在这个ShapeRange里。为了稳妥我现在的做法是如果识别到选区包含表格就直接改走全文档模式不做选区裁剪的精确定位。表格图片的精确范围控制和单元格位置绑定很复杂对绝大多数批量处理需求来说全文档处理更可靠。5.2 页眉页脚里的图片ActiveDocument.Content不一定包含文档正文之外的区域比如页眉、页脚、脚注、文本框它们的图片并不属于ActiveDocument.Content的内容。Content只代表主文档文字流页眉页脚走的是另一套故事线StoryRange。我在帮一个同事处理公司信笺模板时遇到过模板页脚有公司logo他想把所有页脚logo统一缩小到固定宽度。用第一个宏跑完全文档正文图片都变了页脚logo纹丝不动。后来加了StoryRanges遍历问题才解决。标准遍历结构是Dim sr As Range For Each sr In ActiveDocument.StoryRanges Do 处理当前sr内的图片 Debug.Print sr.StoryType 处理文本框等子范围 Set sr sr.NextStoryRange Loop Until sr Is Nothing Next这段代码里的Do...Loop会沿着同一类故事线的Next链一路走完。如果你只需要处理页眉页脚可以在循环里判断sr.StoryType常见的取值包括wdMainTextStory、wdPrimaryHeaderStory、wdPrimaryFooterStory等。5.3 文本框里嵌的图片藏在Shape的TextFrame里还有一个特别隐蔽的地方文本框里的图片。你在文档里插入一个文本框把图片粘贴进去从外表看它是一张图但VBA里它既不是InlineShapes的直接成员也不是Shapes里msoPicture类型的对象。文本框本身是一个Shape类型是msoTextBox它内部的图片需要进入TextFrame.TextRange之后才能找到。处理文本框内图片的思路是递归遍历所有Shape如果shp.Type msoTextBox就进入shp.TextFrame.TextRange.InlineShapes继续处理如果文本框里还嵌套了浮动图甚至文本框还得继续向下走。Sub ProcessShape(shp As Shape) If shp.Type msoTextBox Then Dim its For Each its In shp.TextFrame.TextRange.InlineShapes 在这里做缩放或裁剪 Next End If 还可能有嵌套需要递归 End Sub这个坑在普通文本文档里不常见但在做带批注、带示意图框的售前方案时很容易碰到。如果图没被批量处理先想想它是不是住进了文本框里。5.4 混入的公式、OLE对象、剪贴画批量处理图片时最怕对象类型判断不严。文档里有些“看起来像图片”的东西其实是嵌入式OLE对象比如MathType公式、Excel表格嵌件、Visio图。它们也有宽高属性也有类似图形的外框但你对它们设置LockAspectRatio或Width轻则没反应重则报错甚至可能把公式对象弄坏。判断方法就是代码里反复出现的那行类型检查If its.Type wdInlineShapePicture Or its.Type wdInlineShapeLinkedPicture Then 这是真正的图片 End IfwdInlineShapePicture是普通图片wdInlineShapeLinkedPicture是链接型图片。对应的浮动图形判断是shp.Type msoPicture。剪贴画在某些版本里可能被识别为msoMedia或msoPicture如果你发现剪贴画没被处理可以看看到底是什么类型然后按需加入白名单。5.5 运行卡死、撤销失效、宏安全的最后防线处理上千张图片的长文档时宏可能跑得很慢。除了开头说到的ScreenUpdating False我还会在循环里加一个计数器每处理20张调用一次DoEvents把控制权暂时交还给系统防止界面完全冻结If cnt Mod 20 0 Then DoEvents关于撤销我要提前打个预防针VBA对图片对象的批量修改在Word里撤销表现不稳定。等比缩放往往可以按CtrlZ整体撤销但裁剪操作有时会把Word搞糊涂撤销一步可能连续回退好几张图的修改。我习惯在跑宏之前用“另存为”留一个副本处理完检查效果满意之后再删除临时副本。这个习惯帮我避免过两次翻车现场。宏安全问题也得提一嘴。Word默认会禁用宏并提示安全警告。自己电脑上的文档可以在“信任中心”里把宏安全性设为“禁用所有宏并发出通知”然后在打开文档时点启用。公司电脑如果被组策略锁死别硬来找管理员申请白名单或者把宏保存在Normal.dotm个人模板里部分受限环境对模板宏的管理反而松一些。另外WPS要跑这些宏的话需要装WPS的VBA组件很多发行版默认没有装了之后代码基本兼容个别对象属性表现略有差异。6. 把宏变成真正的“一键”并往更多场景扩展6.1 添加到快速访问工具栏或快捷键每次打开VBA编辑器再点运行虽然比手动调图快但还不算“一键”。你可以把宏拖到快速访问工具栏上点击Word左上角的快速访问工具栏下拉箭头选择“其他命令”在“从下列位置选择命令”里选“宏”找到BatchResizeToWidth和BatchCropImages添加到右侧列表确定后顶部就会出现两个按钮。想更好区分可以给按钮重命名比如改成“统一图宽”和“批量裁剪”。设置快捷键更顺手按AltF11进入VBA编辑器菜单栏选择“工具→宏→宏”选中目标宏后点“选项”可以设置CtrlShift字母这种组合键。我习惯给“统一图宽”绑定CtrlShiftW给“批量裁剪”绑定CtrlShiftC处理文档时手不离键盘顺手就能触发。6.2 让目标尺寸不再改代码参数化改造上面的代码里约束条件写在代码顶部比如Const TARGET_W As Single 400。如果你只想给自己用每次改常量很方便。但如果要把宏分享给团队其他人让别人改代码根本不现实。最低成本的参数化方案是用InputBox在运行时询问Dim inputW As String inputW InputBox(请输入目标宽度单位磅1厘米28.35磅, 参数设置, 400) If IsNumeric(inputW) Then TARGET_W CSng(inputW) Else Exit Sub End If这个方案虽然朴素但胜在直接不用做UserForm界面。我给别人部署宏的时候经常用这一招免得他们对着常量定义一脸茫然。单位换算别搞错1厘米等于28.35磅A4纸默认页面宽度下左右边距各3.18厘米内容区宽度大约14.6厘米换成磅大约是415磅。如果你想要图片宽度为内容区的90%那就设375磅左右也可以直接按宏里PageSetup自动计算的方案走。6.3 顺着图片批量处理的思路还能往哪扩展VBA批量处理图片的思路一旦建立起来很多文档问题都能顺手解决。比如网上常见的“Word删除空白页”宏本质就是遍历段落和分页符删除内容为空且只有分页标记的段落再比如用VBA数组一次性统计文档里所有图片的尺寸分布可以快速找出哪些图严重超宽、哪些图小于某个阈值还可以把所有图片批量导出成独立文件。数组在这里也有用武之地把每张图片的原始宽高、目标宽高、裁剪量先存进数组处理完成后统一生成一份修改日志对需要追溯的文档很实用。这些宏并不复杂核心还是这一套“遍历集合、判断类型、修改属性”的心法。如果你用的WPS记得提前确认VBA组件是否可用。WPS的VBA插件有多个版本7.1系列在较新的WPS版本上兼容性较好装上之后Office系的大部分图片处理宏都能跑。但个别属性行为存在差异执行前同样建议先复制文档备份跑一遍看效果再决定。我把这套宏写出来之后最常听到的反馈是“原来交给Word程序去做真能一次搞定。” 我自己的使用体会是第一版宏别追求功能全先把“统一缩放”“批量裁剪”这两个最核心的诉求跑通用顺手了再加文本框、页眉页脚、参数弹窗这些变体。处理重要文档前也一定要先复制副本毕竟VBA对裁剪的撤销支持并不完美别拿原稿去赌。你只要记住遍历、判断、赋值这三步掌握住以后碰到任何“Word里做批量操作”的需求都能用同样的思路自己写出来。