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

Question

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

提前致谢

Answer 1

使用以下代码解决问题。para 开头的多余空格并不是真正的空格字符，而是看起来像空格的 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