Editing text containing Bullet

[news.mch.sbs.de]

Hello,

I want to write a word macro wherin the font size of all the bulleted point
in the document is set "12" and the rest of the text is set to "10". I don't
know a way to select only the bulleted points in the document.

Can soemone help me.

Regards
Ravi

 

[Cindy M -WordMVP-]

Hi News.mch.sbs.de,

I want to write a word macro wherin the font size of all the bulleted point
in the document is set "12" and the rest of the text is set to "10". I don't
know a way to select only the bulleted points in the document.

Are you applying the bullets in the macro? Or does this have to happen after
the user has typed the document?

Which version of Word?

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 8 2004)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question or reply
in the newsgroup and not by e-mail

 

[news.mch.sbs.de]

Hello Cindy,

Document (Which I'm modifying in the macro) already has the bulleted points.
In the Macro I need to select all these bulleted points and set the font
size to "12".

I'm using Word 2003.

Regards
Ravi

 

[Cindy M -WordMVP-]

Hi News.mch.sbs.de,

Document (Which I'm modifying in the macro) already has the bulleted points.
In the Macro I need to select all these bulleted points and set the font
size to "12".

Try something along these lines:

Sub FormatBulletedParas()
Dim rng As Word.Range
Dim para As Word.Paragraph

Set rng = ActiveDocument.Content
For Each para In rng.Paragraphs
If para.Range.ListFormat.ListType = wdListBullet Then
para.Range.Font.Size = 10
End If
Next
End Sub

Note: if you can be sure the document has been formatted using STYLES (rather
than formatting applied directly), the easier and FASTER approach would be to
change the style definition. I'd only use the above if the user hasn't been
provided with a template that defines proper styles.

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 8 2004)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question or reply
in the newsgroup and not by e-mail