Regularize indent level

D

Dan Neely

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

Normal + 12 pt, Left: <Anything>"

Normal + 12 pt, Left: .5"
 
D

Dan Neely

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

Normal + 12 pt, Left: <Anything>"

Normal + 12 pt, Left: .5"
Click to expand...

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.
 
D

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.
Click to expand...

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
 
Top