Regularize indent level

[Dan Neely]

I want to convert text with the first formatting into the second.

Normal + 12 pt, Left: <Anything>"

Normal + 12 pt, Left: .5"

 

[Dan Neely]

I want to convert text with the first formatting into the second.

Normal + 12 pt, Left: <Anything>"

Normal + 12 pt, Left: .5"

Minor correction, the before should be:

Normal + 12 pt, Left: <Anything greater than zero>"

I don't want to get any paras that are sitting directly on the left
margin.

 

[Dan Neely]

Minor correction, the before should be:

Normal + 12 pt, Left: <Anything greater than zero>"

I don't want to get any paras that are sitting directly on the left
margin.

Answered

Dim sParasToFind As String
Dim para As Paragraph
For Each para In ActiveDocument.Paragraphs
If para.Style = "Normal" Then
If para.LeftIndent > InchesToPoints(0.5) Then
para.LeftIndent = InchesToPoints(0.5)
End If
End If
Next para