Microsoft Office Forums - View Single Post - [Solved] Paragraph style

gmayor · 01-23-2018, 06:52 AM

In that case you will have to tap the space bar three times, because text (which is what spaces are) is not included in a style. Or you could ignore the spaces and apply the spaces to text in the normal style with a macro or the replace function e.g.

Code:

Sub Macro1()
Dim oPara As Paragraph
    For Each oPara In ActiveDocument.Paragraphs
        If oPara.Style = "Normal" Then
            Do While oPara.Range.Characters(1) = Chr(32)
                oPara.Range.Characters(1).Delete
            Loop
            oPara.Range.InsertBefore "   "
        End If
    Next oPara
lbl_Exit:
    Set oPara = Nothing
    Exit Sub
End Sub