Help needed in Styles and Formating

[engrfurqan]

I want to go through with all the formatting in use in a word document and collect some description i am using the following code but it is not working

sub test()
dim sty as style
for each sty in activedocument.styles
if sty.inuse = true the
msgbox(sty.font.name)
end if
next
end sub

this program gives the name times new roman but im using some other fonts.

Regards,
Furqan

 

[fumei]

Then you have done manual formatting.

These - even though you can see things like "Normal + Arial + Bold" in the Style dropdown - are NOT styles, and will NOT be found via code. They are NOT part of the ActiveDocument.Styles collection.

Solution? Do not use manual formatting.

Gerry