View Single Post
  #2   Report Post  
Cindy M -WordMVP-
 
Posts: n/a
Default

Hi ?B?QW5pdGE=?=,

Is there a way to create a list of my autotext entries from normal.dot in
either a text file or is there a way I can get them into an Excel spreadsheet
(that would be better still).

What I need to do is get the autotext entries in a column so that I can then
write descriptions and notes beside them in the next column.

It would require a macro. Here's some sample code, to get you started. It's not
clear from your problem description whether you want the entries' names listed,
or their content. The macro lists the content. If you want the name, change
Value to Name, below.

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.Value
Next
End Sub

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 8 2004)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question or reply
in the newsgroup and not by e-mail :-)