Re: Applying the List Bullet Style on specific paragraphs

From: Helmut Weber (elmkqznfwvccbf_at_mailinator.com)
Date: 02/11/05 

Date: Fri, 11 Feb 2005 13:39:21 +0100

Hi Steve,
seems applying the bullet style removes anything
that could be interpreted as a bullet automatically.

Sub Makro7()
Dim rDcm As Range
Dim rPrg As Paragraph
Set rDcm = ActiveDocument.Range
For Each rPrg In rDcm.Paragraphs
   If Left(rPrg, 3) = "* " Then
   With ListGalleries(wdBulletGallery)
      rPrg.Range.ListFormat.ApplyListTemplate _
      ListTemplate:=.ListTemplates(1)
   End With
   End If
Next
End Sub

Greetings from Bavaria, Germany

Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word XP, Win 98
http://word.mvps.org/