Attached template or global template?
It appears that AutoText.dot is a global template.

Normal.dot should not be shared or protected.

If saving to the global template you need to add code to save the changes to
that template if you don't want your user prompted for that.

Ness was telling us:
Ness nous racontait que :

From this code I gather that you are copying entries from the attached
template (Normal.dot I presume) to a template named autotext.dot.

autotext.dot does not seem to be a global template  because C:\ is not
normally assigned as a start-up folder (Global template are stored in the
start up folder as defined in the File locations tab of Options... under the
Tools menu).

In any case, as is, your code will automatically save changes to
autotext.dot every time it adds an "atentry" to it. So, no need to
explicitely save it.
The problem is that autotext.dot (because it does not seem to be a global
template) will not be available in Word, so its autotext entries will not be
available either...

You should make sure that autotext.dot is in the start-up folder, and then
use code like:

Sub Test()
Dim StartupPath As String
Dim AutoTextTemplate As Template
Dim atEntry As AutoTextEntry

Const AutoTemp As String = "autotext.dot"
StartupPath = Application.Options.DefaultFilePath(wdStartupPath) _
   & Application.PathSeparator

Set AutoTextTemplate = Templates(StartupPath & AutoTemp)

If Windows.Count = 1 Then
   Application.ScreenUpdating = False
   For Each atEntry In _
       ActiveDocument.AttachedTemplate.AutoTextEntries
       Application.OrganizerCopy _
       Source:=ActiveDocument.AttachedTemplate.FullName, _
       Destination:=AutoTextTemplate.FullName, Name:=atEntry.Name, _
       Object:=wdOrganizerObjectAutoText
   Next atEntry
End If

AutoTextTemplate.Save

End Sub

Jean,
many thanks for your help and apologie sabout delay in response. I load the
autotext file via the autoexec module - code below:
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")

   checkc = fs.fileexists("c:\autotext.dot")
       If checkc = True Then
           AddIns.Add ("c:\autotext.dot"), Install:=True
       Else: MsgBox "You are missing your autotext file!" & vbCrLf & vbCrLf
& _
       "Please contact Technology if this is needed.", vbInformation,
"Template Information"
       End If

Do you mean to load the autotext file when closing and save at that time?
How do I save the attached template? I have tried a few methods but to no
avail.

Cheers

Elliot.