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"

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.

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top