Put autotext names into txt file or excel file

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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.

I would be so grateful if anyone can help, I have tried every resource going.

Anita
 
Hi =?Utf-8?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.
Click to expand...
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 :-)
 
Back
Top