可批量删除Word每行开头多余空格：一、用通配符替换^13[ ]{1,}为^13；二、用^$[ ]{1,}处理首段；三、运行VBA宏遍历段落逐个删除首字符空格。
如果您在Word文档中需要批量删除每行开头的多余空格，手动操作效率低下且容易遗漏。利用Word内置的“查找和替换”功能配合通配符（即Word的类正则匹配模式），可以精准定位并清除行首空格。以下是实现此目标的具体步骤：
一、启用通配符模式并匹配行首空格
Word的“查找和替换”不支持标准正则表达式，但启用“使用通配符”后可使用特定代码匹配结构化文本。行首空格需结合段落标记与空格字符联合识别，确保只影响每段开头而非段中空格。
1、按 Ctrl + H 打开“查找和替换”对话框。
2、点击左下角的 “更多” 按钮，展开高级选项。
3、勾选 “使用通配符” 复选框。
4、在“查找内容”框中输入：^13[ ]{1,}（匹配段落标记后紧跟的一个或多个空格）。
5、在“替换为”框中输入：^13（仅保留段落标记，删除其后的所有空格）。
6、点击 “全部替换” 完成操作。
二、处理首段无前导段落标记的情况
文档第一段前无段落标记（^13），因此上述方法无法匹配。需单独处理以覆盖首行开头空格，采用“行首位置符”与空格组合的方式进行定位。
1、确保仍处于“查找和替换”界面并已勾选 “使用通配符”。
2、在“查找内容”框中输入：^12[ ]{1,}（^12代表分节符，但此处实际需用 ^p 配合行首逻辑；更可靠方式是使用 ^$ 表示段落开头，再加空格）——修正为：^$[ ]{1,}。
3、在“替换为”框中留空，或输入 ^$（保持段落起点不变）。
4、点击 “全部替换”。
三、通过宏命令一次性清除所有行首空格
当文档含大量格式复杂段落（如表格内文本、文本框、脚注）时，通配符替换可能失效。VBA宏可遍历每个段落，直接操作Range对象的Text属性，确保清除逻辑不受格式干扰。
1、按 Alt + F11 打开VBA编辑器。
2、在左侧项目窗口中双击 “Normal” → “模块” → “新建模块”。
3、粘贴以下代码：
Sub DeleteLeadingSpaces()
Dim para As Paragraph
For Each para In ActiveDocument.Paragraphs
Do While Left(para.Range.Text, 1) = " "
para.Range.Characters(1).Delete
Loop
Next para
End Sub
4、关闭编辑器，返回Word，按 Alt + F8，选择 “DeleteLeadingSpaces” 并点击“运行”。
