ApplyBulletDefault Method Example

This example adds bullets and formatting to the paragraphs in the selection. If there are already bullets in the selection, the example removes the bullets and formatting.

Selection.Range.ListFormat.ApplyBulletDefault

This example adds a bullet and formatting to, or removes them from, the second paragraph in MyDoc.doc.

Documents("MyDoc.doc").Paragraphs(2).Range.ListFormat _
    .ApplyBulletDefault

This example sets the variable myRange to a range that includes paragraphs three through six of the active document, and then it checks to see whether the range contains list formatting. If there's no list formatting, default bullets are added.

Set myDoc = ActiveDocument
Set myRange = myDoc.Range( _
    Start:= myDoc.Paragraphs(3).Range.Start, _
    End:=myDoc.Paragraphs(6).Range.End)
If myRange.ListFormat.ListType = wdListNoNumbering Then
    myRange.ListFormat.ApplyBulletDefault
End If