Bullet formatting code gets ignored

[moggymiaow]

after a copy and paste, I need to tidy up some formattingso I run this..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 SubI can watching it stepping through the code quite happily and throw no errors, however there is no change to the formatting of the paragraphs. The document is not protected at this point

[moggymiaow]

OK, how do I get the code to have line breaks in it on this forum?

[moggymiaow]

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