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