Compartilhar via


ListFormat.ApplyBulletDefault Method

Word Developer Reference

Adds bullets and formatting to the paragraphs in the range for the specified ListFormat object.

Syntax

expression.ApplyBulletDefault(DefaultListBehavior)

expression   Required. A variable that represents a ListFormat object.

Parameters

Name Required/Optional Data Type Description
DefaultListBehavior Optional Variant Sets a value that specifies whether Microsoft Word uses new Web-oriented formatting for better list display. Can be either of the following constants: wdWord8ListBehavior (use formatting compatible with Microsoft Word 97) or wdWord9ListBehavior (use Web-oriented formatting). For compatibility reasons, the default constant is wdWord8ListBehavior, but in new procedures you should use wdWord9ListBehavior to take advantage of improved Web-oriented formatting with respect to indenting and multilevel lists.

Remarks

If the paragraphs are already formatted with bullets, this method removes the bullets and formatting.

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.

Visual Basic for Applications
  Selection.Range.ListFormat.ApplyBulletDefault

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

Visual Basic for Applications
  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 is no list formatting, default bullets are added.

Visual Basic for Applications
  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

See Also