Autotext entries to file

[schoendorfbt]

I really need some help. I have Transcriptionists who have used
Autotext for years and have hundreds of entries. Some of the
descriptions go on for paragraphs. I need to get their entries into a
file format so it can be imported into a different aaplication. I
recently tried Cindy Meister's code:

Sub WriteAutoTextToTable()
Dim tbl As Word.Table
Dim AT As Word.AutoTextEntry
Dim rw As Word.Row
Set tbl = ActiveDocument.Tables.Add( _
Range:=Selection.Range, NumRows:=1, NumColumns:=2)
tbl.Cell(1, 1).Range.text = "AutoText entry"
tbl.Cell(1, 2).Range.text = "Description"
CustomizationContext = NormalTemplate
For Each AT In NormalTemplate.AutoTextEntries
Set rw = tbl.Rows.Add
rw.Cells(1).Range.text = AT.Name
rw.Cells(2).Range.text = AT.Value
Next
End Sub


This works very well, but it has one limitation. It only puts so much
of the description into the column. So a Transcriptionist who has a
few paragraphs of data associated to their shortcut loses a portion of
it when the code writes it into the file.

Anyone ? Please.

Thanks
Brian