Thanks in anticipation.

Morag

The procedure simply stops running, with no error message or indication of
what the problem is.

Help!

Thanks again for your time, folks

Regards

Morag

Did you use the file and pathname on the Templates object:
    Templates("Path And TemplateName.dot")

Otherwise, try

-------------------------------------
Dim oAutoTextEntry As AutoTextEntry
Dim oTemplate As Template

  For Each oTemplate In Templates
    If oTemplate.Name = ThisDocument.Name Then
      For Each oAutoTextEntry In oTemplate.AutoTextEntries
        MsgBox oAutoTextEntry.Name
      Next
    End If
  Next

  Set oAutoTextEntry = Nothing
  Set oTemplate = Nothing
-------------------------------------

Hope this helps,
regards,
Astrid

So that all can benefit from the discussion, please post all follow-ups to the newsgroup.
Visit the MVP Word FAQ site at http://www.mvps.org/word/

Dim atEntry As AutoTextEntry
For Each atEntry In Templates
(ThisDocument.FullName).AutoTextEntries
    ComboBox1.AddItem atEntry.Name
Next atEntry

Hope this helps,
Lynn