本文记录常用的word vba宏
1. 设置所有图片
Sub所有图片设为题注样式()'' 核心功能：查找文档中所有图片，为其应用「题注」样式'' 必要：清除查找/替换的残留格式（保障稳定性）Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting' 设置替换格式为「题注」样式Selection.Find.Replacement.Style=ActiveDocument.Styles("题注")WithSelection.Find .Text="^g"' 查找所有图片.Replacement.Text="^&"' 保留图片（关键：避免删除）.Forward=True.Wrap=wdFindContinue .Format=True' 启用格式替换（应用题注样式必须开）EndWith' 批量执行替换（实际是应用样式）Selection.Find.Execute Replace:=wdReplaceAll MsgBox"已为所有图片应用题注样式！",vbInformationEndSubSub一键清空查找替换格式()'' 核心功能：清空 Word 查找/替换功能中所有预设的格式' 无需选中文本，运行即清空，和手动点「清除格式」按钮效果一致'On ErrorResumeNext' 防止特殊场景下报错' ===== 核心操作：清空查找替换格式 =====' 方式1：基于当前文档范围（不依赖光标，推荐）ActiveDocument.Content.Find.ClearFormatting ActiveDocument.Content.Find.Replacement.ClearFormatting' 方式2：额外清空 Selection 层面（双重保障）Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting' 提示操作完成MsgBox"查找/替换的所有预设格式已清空！",vbInformation,"操作完成"On ErrorGoTo0' 恢复错误处理EndSub
2. 选择所有表格、所有表格首行
Sub选中所有的表格()Dim表格AsTable' 步骤1：全局锁死——删除所有用户的编辑权限，文档变为只读ActiveDocument.DeleteAllEditableRanges(-1)' 步骤2：局部解锁——遍历所有表格，仅给表格添加编辑权限For Each表格InActiveDocument.Tables 表格.Range.Editors.Add(-1)Next' 步骤3：选中目标——选中所有解锁的区域（即所有表格）ActiveDocument.SelectAllEditableRanges(-1)' 步骤4：清理权限——再次删除编辑权限，避免文档残留限制ActiveDocument.DeleteAllEditableRanges(-1)EndSubSub选中所有的表格首行()Dim表格AsTable' 步骤1：全局锁死ActiveDocument.DeleteAllEditableRanges(-1)' 步骤2：局部解锁——仅解锁表格首行For Each表格InActiveDocument.Tables 表格.Cell(1,1).Select' 定位到表格第一行第一列Selection.SelectRow' 扩展选中整行Selection.Range.Editors.Add(-1)' 给首行添加编辑权限Next' 步骤3：选中目标ActiveDocument.SelectAllEditableRanges(-1)' 步骤4：清理权限ActiveDocument.DeleteAllEditableRanges(-1)EndSub
设置所有首行的格式
Sub设置所有表格首行格式()' 声明变量：定义一个名为「表格」的变量，用于存储单个表格对象Dim表格AsTable' 步骤1：全局锁死文档' 删除所有用户的编辑权限，使整个文档变为只读状态，避免操作时选中无关内容ActiveDocument.DeleteAllEditableRanges(-1)' 步骤2：遍历文档中所有表格（核心循环）' 逐个处理文档里的每一个表格，无遗漏、无重复For Each表格InActiveDocument.Tables' 2.1 定位表格首行：选中表格第一行第一列单元格表格.Cell(1,1).Select' 2.2 扩展选中范围：将选中区域扩展到当前单元格所在的整行（即表格首行）Selection.SelectRow' 2.3 解锁首行：给选中的首行添加编辑权限，确保格式可修改Selection.Range.Editors.Add(-1)' 2.4 设置首行底纹格式（完全沿用录制的参数）Selection.Shading.Texture=wdTextureNone' 底纹无纹理，仅显示纯色Selection.Shading.ForegroundPatternColor=wdColorAutomatic' 前景色设为自动（不影响底纹）Selection.Shading.BackgroundPatternColor=12611584' 底纹背景色（你指定的蓝色值）' 2.5 设置首行字体格式（按需求精准配置）Selection.Font.Name="黑体"' 字体类型：黑体Selection.Font.Size=12' 字号：小四（Word中小四固定对应14磅）Selection.Font.Color=wdColorWhite' 字体颜色：白色（与蓝色底纹形成对比）Next' 循环结束，处理下一个表格' 步骤3：验证效果' 选中所有解锁的区域（即所有表格首行），直观查看格式设置效果ActiveDocument.SelectAllEditableRanges(-1)' 步骤4：清理权限' 再次删除所有编辑权限，恢复文档至无权限限制的原始状态，避免残留限制ActiveDocument.DeleteAllEditableRanges(-1)EndSub
