ms-word - Word 文書の各段落の先頭にあるスペースを削除する

Question

Word 文書には、先頭にスペースがある多数の段落があります。Word VBA を使用してこの余分なスペースを削除するにはどうすればよいですか。コードはドキュメント内のすべての段落をループし、段落の先頭にある余分なスペース (ある場合) を削除する必要があります。

前もって感謝します

Answer 1

次のコードを使用して問題を解決しました。パラの最初の余分なスペースは実際にはスペース文字ではなく、スペースのように見える 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