Suzanne,
After a little research on my own I came back and saw your
reply. I'm a little surprised by your response that:
1) "AutoText actually has nothing to do with indexes"
2) "...it also has nothing to do with glossaries"
3) "There is no built-in feature... to create a glossary"
4) "...it's hard to... create a glossary without some
action... to mark the terms to be included."
I'll attempt to address your statements with what I've
found:
1) I "got that idea" in Word Help when I looked up the
term 'Glossary' and was pointed to AutoText. Then, after
further investigation, I must have mixed up the
terms "AutoText" and "AutoMark" (see concordance):
'Glossary' -> "Keep 'boilerplate' text up to date without
retyping" -> "first define the current disclaimer as an
AutoText entry."
2) As I continued through Help, I came upon 'concordance'.
It was listed as:
"Create a concordance file" -> "...enter the text you want
Word to search for and mark as an index entry." ->
"...automatically mark index entries..." -> "On the Insert
menu, click Index and Tables, and then... click AutoMark"
3) The 'concordance' (file containing term/definition
pairs for AutoText use in auto index creation) is a "built-
in feature" to create indices with term/definition entries
(combined with indexed page references).
This comes 'pretty close' to a "glossary" since any
term/definition pair stored in the concordance is added to
the document 'index' (and cross-referenced!)
As an added bonus, I even found the following VBScript
macro snipit that creates hypertext links between
the 'glossary' terms and the 1st instance of the term in
the document:
Sub GlossaryHyperlinker()
Dim doc As Document
Dim glossTerms As Range, entry As Paragraph, term As
Range, glText As String, i As Long
Set doc = ThisDocument
Set glossTerms = Selection.Range
For Each entry In glossTerms.Paragraphs
i = i + 1
Set term = entry.Range.Words(1)
glText = Trim(term.Text)
If glText = "" Then
Else
With doc.Bookmarks
.Add Range:=entry.Range, Name:=glText
End With
Selection.Find.ClearFormatting
Selection.HomeKey Unit:=wdStory
With Selection.Find
.Text = glText
End With
Selection.Find.Execute
doc.Hyperlinks.Add Anchor:=Selection.Range,
Address:="", _
SubAddress:=glText, ScreenTip:="",
TextToDisplay:=glText
End If
Next entry
End Sub
4) The user's creation of the 'concordance file', and
selection of that file by 'AutoMark' button on the 'Index
and Tables' dialog box is the "action on the user's part
to mark the terms to be included" in the 'glossary'.
So... it seems that there actually is a pretty fair, built-
in method to create a glossary in Word. Yay!
Thanks,
John