VBA: Fully description of object

[Questionman2]

****** id="cke_pastebin" style="position: absolute; top: 0px; width: 1px; height: 1px; overflow: hidden; left: -1000px;">

<tbody style="margin: 0px; padding: 0px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; font-size: inherit; line-height: inherit; font-family: inherit; vertical-align: baseline;">
[TD="class: votecell"]

0down votefavorite
​

[/TD]
[TD="class: postcell"] I am new to programming, so please excuse any ignorance.
I am trying to extract styles properties from a Word-template, and posting them in Excel. I want each column to contain one property (name e.g.), and each row to contain to one style.
What I have yet is something extracting all styles from the active word sheet, and writing it in the word document:
<code style="margin: 0px; padding: 0px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; vertical-align: baseline; white-space: inherit;">Sub jkjk()
For Each Style In ActiveDocument.Styles
With ActiveDocument.Range
.InsertAfter Text:=Style.NameLocal & Chr(9) & Style.Description
.InsertParagraphAfter
.InsertParagraphAfter
End With
Next Style
End Sub</code>Is it possible to do this either more orderly (eg. name = abc, font = 12, ...) by calling each and every property of the style and extracting their value, or directly do this from Excel?
Thank you in advance.


[/TD]

</tbody>

</body>

<tbody style="margin: 0px; padding: 0px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; font-size: inherit; line-height: inherit; font-family: inherit; vertical-align: baseline;">
[TD="class: votecell"]

down votefavorite
​

[/TD]
[TD="class: postcell"] I am new to programming, so please excuse any ignorance.
I am trying to extract styles properties from a Word-template, and posting them in Excel. I want each column to contain one property (name e.g.), and each row to contain to one style.
What I have yet is something extracting all styles from the active word sheet, and writing it in the word document:
<code style="margin: 0px; padding: 0px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; vertical-align: baseline; white-space: inherit;">Sub jkjk()
For Each Style In ActiveDocument.Styles
With ActiveDocument.Range
.InsertAfter Text:=Style.NameLocal & Chr(9) & Style.Description
.InsertParagraphAfter
.InsertParagraphAfter
End With
Next Style
End Sub</code>Is it possible to do this either more orderly (eg. name = abc, font = 12, ...) by calling each and every property of the style and extracting their value, or directly do this from Excel?
Thank you in advance.


[/TD]

</tbody>