求助:Word文档批量将Case: BE########格式编号设为加粗下划线
批量格式化Word中案件编号的解决方案
方法一:用Word自带查找替换快速处理
- 按
Ctrl+H打开查找替换窗口,点击「更多」展开高级选项 - 在「查找内容」输入框中填入:
Case: BE^########(^#是Word查找里代表任意单个数字的通配符,8个就对应8位数字) - 点击「格式」→「字体」,设置加粗和单下划线,确认后返回替换窗口
- 「替换为」框留空(只改格式不改内容),点击「全部替换」即可完成所有编号的格式修改
方法二:用VBA宏实现自动化
如果习惯用宏处理,可按以下步骤操作:
- 按
Alt+F11打开VBA编辑器 - 右键左侧项目栏的文档名称,选择「插入」→「模块」
- 将以下代码粘贴到模块中:
Sub FormatCaseIDs() With ActiveDocument.Content.Find .ClearFormatting .Text = "Case: BE########" .MatchWildcards = True ' 启用通配符匹配 .Replacement.ClearFormatting .Replacement.Font.Bold = True ' 设置加粗 .Replacement.Font.Underline = wdUnderlineSingle ' 设置单下划线 .Execute Replace:=wdReplaceAll ' 批量替换所有匹配项 End With End Sub
- 按
F5运行宏,或者回到Word界面,通过「开发工具」→「宏」选择FormatCaseIDs执行
关键说明
- 通配符模式下,
#代表任意单个数字,所以Case: BE########能精准匹配所有以Case: BE:开头后跟8位数字的编号 - 宏代码里可以同时设置加粗和下划线,解决你之前录制宏只能单步操作的问题
内容的提问来源于stack exchange,提问作者Jamie Opperlee
相关产品推荐
相关产品推荐

