Ms word 删除Word文档中每个段落开头的空格

Word文档有许多带有初始空格的段落。如何使用Word VBA删除此额外空间。代码应循环遍历文档中的所有段落，并删除段落开头的额外空格（如果有）

---

提前感谢

使用以下代码解决此问题。段落开头的额外空格实际上不是空格字符，而是看起来像空格的chr（160）。因此，以下代码中的chr（160）

Sub Findfirstcharacterinpara()
Dim wdoc As Document
Dim para As Paragraph
Set wdoc = ActiveDocument
For Each para In wdoc.Paragraphs
If para.Range.Characters(1) = Chr(160) Then para.Range.Characters(1).Delete
Next para
End Sub