Sub tidyBullets(oRange As Range)
Dim oPara As Paragraph
oRange.Select
For Each oPara In Selection.Paragraphs
If oPara.Range.ListFormat.ListType = WdListType.wdListBullet Then
With oPara.Range.ParagraphFormat
.LeftIndent = CentimetersToPoints(1.6)
.FirstLineIndent = CentimetersToPoints(-0.8)
.TabStops.ClearAll
End With
ElseIf oPara.Range.ListFormat.ListType = WdListType.wdListNoNumbering Then
With oPara.Range.ParagraphFormat
.LeftIndent = CentimetersToPoints(1.6)
.FirstLineIndent = CentimetersToPoints(-0.8)
.TabStops.ClearAll
End With
Else
With oPara.Range.ParagraphFormat
.LeftIndent = CentimetersToPoints(0.8)
.RightIndent = CentimetersToPoints(0)
.FirstLineIndent = CentimetersToPoints(-0.8)
.TabStops.ClearAll
.TabStops.Add 1.6, wdLeft
End With
End If
Next
End Sub