I tried to print and select under 'Print What' selected Building Blocks
however this has crashed my Word several times so I've given up.
Is there another way to do this?
Thanks
Susan
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
--
Hope this helps.
Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.
Doug Robbins - Word MVP
"susann" <sus...@discussions.microsoft.com> wrote in message
news:650790B7-792E-44A7...@microsoft.com...
--
Enjoy,
Tony
"susann" <sus...@discussions.microsoft.com> wrote in message
news:650790B7-792E-44A7...@microsoft.com...
--
Hope this helps.
Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.
Doug Robbins - Word MVP
"susann" <sus...@discussions.microsoft.com> wrote in message
news:650790B7-792E-44A7...@microsoft.com...
--
Enjoy,
Tony
"Doug Robbins - Word MVP" <d...@REMOVECAPSmvps.org> wrote in message
news:ed1AUuRq...@TK2MSFTNGP05.phx.gbl...
My VB skills are practically non-existent so am a little lost...
Thanks
Susan
Cheers