Create definition for glossary (Tabe Of Contents #8)
Sub GLOSSARY() ' ' GLOSSARY Macro ' ' Dim strMark As String Dim strDEf As String ''Dim newdoc As New Document 'Dim myrange As Range Dim I As Integer Dim Curdoc Set Curdoc = ActiveDocument ''trim up selection Do While Selection.Characters(Selection.Characters.Count) = " " And Selection.Characters.Count > 1 Selection.MoveEnd Unit:=wdCharacter, Count:=-1 Loop strMark = Selection.Text If strMark = "" Then MsgBox "Select some text to mark first", vbCritical, "Error" Exit Sub End If Selection.Font.Bold = True Selection.Font.Italic = True strDEf = InputBox("Definition for " & strMark, "Define Term", vbOK) ''get definition strDEf = strMark & "-" & strDEf Dim x As Field Set x = Curdoc.TablesOfAuthorities.MarkCitation(Range:=Selection.Range, _ ShortCitation:=strDEf, LongCitation:= _ strDEf, Long...