Printing Building Blocks

[Daniella1848]

Need to print a selected group of building blocks. I'd like to filter
by the Category, and print the properties and the full text (these
blocks are all in the Autotext gallery) of the selected Building
Blocks. Just can't figure out how to do this!!!

I saw this posting
http://groups.google.com/group/micr...agement/browse_thread/thread/6d11bb44b1efc5d2,
but I don't know how to write Macros. Can anyone provide alternative
instructions, or more detail around how to create the Macro that the
author mentions?

Thanks

 

[Daniella1848]

Ignore my request for help on the macro - I figured out how to get it
to work.

But, my question now is how can this code be modified so that the
gallery and category print out in the building block list along with
the block name and text? Anyone know?

With ActiveDocument
.Range.InsertBefore "Name" & vbTab & "Value" & vbCr
For i = 1 To .AttachedTemplate.AutoTextEntries.Count
.Range.InsertAfter .AttachedTemplate.AutoTextEntries(i).Name &
vbTab & _
.AttachedTemplate.AutoTextEntries(i).Value & vbCr
Next i
.Range.Paragraphs(.Paragraphs.Count).Range.Delete
.Range.ConvertToTable
End With

 

[Daniella1848]

Sorry for the multiple posts. In addition to modifying the vba code to
output the building block category, how does one modify so that it
doesn't truncate the autotext entries that it outputs?

Thanks