How 2 add new style to collection

[Sasa]

Hi,
I'm programing some macro and I need some hints, how
should I Create a New Collection of styles or (if
possible) how should i Create a New (my own) Style and put
it into Styles Collection. That's becouse I want to make
Cycle For Each to iterate through my own made styles.
Thank you. I appreciate every help.

Sasa Batovanja

 

[Helmut Weber]

Hi Sasa,
I'm not quite sure what you are going to do.
Every new style is added to the styles collection.
What good would it be for to create new styles
programmatically? (Maybe I'm, off the track).
To loop over not built-in-styles you may use
something like that:
Dim oStl As Style
For Each oStl In ActiveDocument.Styles
If Not oStl.BuiltIn Then
MsgBox oStl.NameLocal
End If
Next
Greetings from Bavaria, Germany
Helmut Weber
"red.sys" & chr$(64) & "t-online.de"
Word 97, XP, NT4.0, W98