Maybe I'm missing something but you can use Styles collectuion to loop throug all the styles and retrieve their properties.Something like

oDoc = oWord.ActiveDocument
FOR EACH oStyle IN oDoc.Styles
	IF NOT oStyle.Builtin
		? oStyle.NameLocal
		? oStyle.Font.Name, oStyle.Font.Size
                ...
	ENDIF
ENDFOR

>
>I have a lengthy Word document, which has about 350 pages and about 190 different styles. I assume, that quite a few of the styles are at least very similar if not identical (besides their different names).
>
>Did anybody ever write some code, most preferably in VFP, which lists not only all styles by their name (that's easy), but also the values of all properties of all styles, preferably into an Excel sheet?
>
>Any idea is welcome!
>
>Hans