[Fredrik E. Nilsen]

On Fri, 22 Sep 2006 11:21:46 +0200, Cindy M.
wrote:

Sub BatchAutoText()
Dim templ as Word.Template
Dim doc as Word.Document
Dim wrd as Word.Range

'Specify the "container"
Set templ = NormalTemplate
Set doc = ActiveDocument
For each wrd in doc.Words
If Len(wrd) = 6 Then
templ.AutoTextEntries.Add wrd.Text & "_AT", wrd
End If
Next
End Sub

Ah, thank you very much, I will try it.

--
Fredrik E. Nilsen