Word文档冗余格式清理需分四步：一、用通配符查找^13{2,}替换为^13压缩空行；二、分别查找^w、^t、^s清除空白字符；三、将^l替换为^p统一换行符；四、运行VBA宏CleanDocument一键执行全部操作。
如果您在Word文档中发现大量空行和多余空格影响排版整洁性，可能是由于复制粘贴内容时带入了不可见的段落标记、手动换行符或全角/半角空格。以下是批量清理这些冗余格式符号的具体操作方法：
一、使用查找替换功能删除连续空行
Word的查找替换支持通配符和特殊字符匹配，可精准定位两个及以上连续段落标记并替换为单个段落标记，从而压缩多余空行。
1、按 Ctrl+H 打开“查找和替换”对话框。
2、点击“更多”按钮，勾选“使用通配符”选项。
3、在“查找内容”框中输入：^13{2,}（表示两个或更多连续的段落标记）。
4、在“替换为”框中输入：^13（表示一个段落标记）。
5、点击“全部替换”，重复执行直至提示“Word已完成对文档的全部搜索并完成0处替换”为止。
二、清除段首段尾多余空格与制表符
空格和制表符常隐藏于段落开头或结尾，肉眼难以识别，但会导致缩进异常或对齐错乱。通过组合查找可一次性清除段落边界处的空白字符。
1、打开“查找和替换”对话框（Ctrl+H）。
2、确保未勾选“使用通配符”。
3、在“查找内容”框中依次输入以下三项并分别点击“全部替换”：
^w（查找所有空白字符，包括空格、制表符、不间断空格）；
^t（单独查找制表符）；
^s（查找不间断空格）。
4、如需仅清除段首段尾空格，启用“使用通配符”，查找内容输入：(^13)[ ^t^s]{1,}([^13])，替换为：\1\2，再执行替换。
三、替换手动换行符（软回车）为段落标记
手动换行符（Shift+Enter插入）不构成独立段落，易与段落标记混淆，导致格式混乱。将其统一转为标准段落标记有助于后续空行清理。
1、打开“查找和替换”对话框（Ctrl+H）。
2、在“查找内容”框中输入：^l（代表手动换行符）。
3、在“替换为”框中输入：^p（代表段落标记）。
4、点击“全部替换”，完成后再次运行“一、使用查找替换功能删除连续空行”步骤以合并新生成的段落间隙。
四、利用宏命令一键执行多步清理
将上述操作封装为VBA宏后，只需一次点击即可自动完成空行压缩、空格清除与换行符转换，适用于频繁处理长文档的用户。
1、按 Alt+F11 打开VBA编辑器。
SEO关键词密度优化与页面审计技能。使用场景：①提供页面路径与关键词进行SEO优化；②提升页面关键词密度；③提升搜索引擎排名；④进行SEO审计（meta标签、OG、hreflang等）。触发词：关键词密度、SEO优化、关键词优化等。
2、在左侧项目窗口中右键“Normal”，选择“插入”→“模块”。
3、粘贴以下代码：
Sub CleanDocument()
With ActiveDocument.Content.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "^13{2,}"
.Replacement.Text = "^13"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
End With
Selection.Find.Execute FindText:="^l", ReplaceWith:="^p", Replace:=wdReplaceAll
Selection.Find.Execute FindText:="^w", ReplaceWith:="", Replace:=wdReplaceAll
End Sub
4、关闭编辑器，返回Word，在“视图”选项卡中点击“宏”→“查看宏”，选择“CleanDocument”，点击“运行”。
