Paul. Your point well taken
In this case the output is standard with different style, font names and size etc
I was thinking on
Total how may Styles are there in the Word
Which Style (name) has maximum length. So let us keep the Len of the Style (name) which has maximum characters or letters. Same case for Font name, Alignment etc

On Beforehand
Knowing the LEN of Style(name) , LEN(Font.name), LEN(Alignment) which has max characters, keep that as Const and derive function for equal spacing between values of returned objects.

Putting exact logic for a function is really difficult for me.

Do we have vbTabstop like PRINT TAB(30); in VBA ?


For each document no will know beforehand what style font name etc have been used.
once running the macro shall give the details
Therfore i used Textbox to get the details of Returned value of objects.
This is for neat representation ie why exact spacing required
SamD

You could certainly do something like that, but but that would add a lot of processing for very little gain. Using tab separators and converting the output to a table (and back again if you don't want a table for the final output), would be far simpler and quicker.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Was really intrested in deriving with function procedure so that everything remains neat for the representation

This is something new for me
Output shall remain in textbox itself.

Will it be possible to show the two methods ?

SamD