Custom-style outline template with prompts and glossary page

Question

Hello
I would like to make a template in Word 2010 with a custom-style outline. Would anyone be able to suggest how to achieve these requirements (pointing me to reading material also helpful):
1. Every phrase the user types into a field gets automatically added to a final glossary page, listing exact letter-for-letter duplicates only once.
2. Upon opening an instance of the template the user is prompted with the following entry form questions:
       ○ Prompt: "What error message or problem description will this document cover?" The free-text answer will populate the header of each page in the title style.
       ○ Prompt: "What is your initial condition? If none, press enter." The free-text answer will populate the first line in heading1 style in the form "Additional Condition: [user's answer]".
If the answer is of string length 0, the user's answer defaults to "none".
       ○ Prompt: "List all possible causes for initial condition, separated by a comma. Phrase possible causes as a question." Each comma-separated free-text answer will populate the next line in heading2
style with the numbering convention "Possible Cause [#]".
 3. Under each possible cause item the following items appear in heading3 style, each on its own line: "System overview, Tools required, Safety precautions, Troubleshooting steps, Confirm possible cause, Fix confirmed
cause". Underneath the items just listed appear more fields that the user can use.
I realize this is a lengthy post, probably too specific, but if I could get pointed in the right direction I am willing to do the research!

Answer 1

Thank you for the insights, Fei Xue. Let me try to explain to glossary requirement better...
The glossary will reiterate all phrases entered by the user (this is an outline so each phrase will be a paragraph, but paragraphs the paragraphs a brief). I have the following code that executes as written but the problem comes when you change content
in the outline the glossary does not get updated.
'THIS CODE IS IN A MODULE'Sub PageBreakPlus()
Selection.InsertBreak Type:=wdPageBreak
End Sub
Function ProblemFunc() As String
ProblemFunc = InputBox("Type the error message verbatim. If no error message, type brief problem description to be used as a phrase.", "Error Code Administration")
End Function
Function AddConFunc() As String
AddConFunc = InputBox("Type an additional condition to be used as a phrase. If none, click OK.", "Additional Condition", "None")
End Function
Function CausesFunc() As String
CausesFunc = InputBox("List all possible causes for additional condition in the order a user should investigate them. Phrase possible causes as a question.", "Possible Causes")
End Function
'THIS CODE IS IN ThisDocument'Private phrases() As String 'no used at this point'
Private Sub Document_New()
Dim causeString As String
Dim causeArray() As String
Dim problem As String
Dim addcon As String
Dim templateRev As String: templateRev = "16-Apr-2015"
'get the prompts and split the causeString into each question'
problem = ProblemFunc
addcon = AddConFunc
causeString = CausesFunc
causeArray = Split(causeString, "?")
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
With Selection
.Style = ActiveDocument.Styles("Title")
.TypeText problem
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.TypeParagraph
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.TypeText Text:="Template Rev. " & templateRev & vbTab & "Document Rev. "
.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="CREATEDATE \@ ""d-MMM-yyyy"" ", PreserveFormatting:=True
End With
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
For Each cause In causeArray
If Len(cause) <> 0 Then
With Selection
.TypeText Trim(cause) & "?"
.Style = ActiveDocument.Styles("Heading 2")
.TypeParagraph
.TypeText Text:="System overview"
.Style = ActiveDocument.Styles("Heading 3")
.TypeParagraph
.TypeText Text:="Tools required"
.Style = ActiveDocument.Styles("Heading 3")
.TypeParagraph
.TypeText Text:="Safety precautions"
.Style = ActiveDocument.Styles("Heading 3")
.TypeParagraph
.TypeText Text:="Troubleshooting steps"
.Style = ActiveDocument.Styles("Heading 3")
.TypeParagraph
.TypeText Text:="Confirm possible cause"
.Style = ActiveDocument.Styles("Heading 3")
.TypeParagraph
End With
End If
Next cause
With Selection
.Style = ActiveDocument.Styles("Normal")
.InsertBreak Type:=wdPageBreak
.Style = ActiveDocument.Styles("Strong")
.TypeText "Glossary of Phrases"
.TypeParagraph
.Style = ActiveDocument.Styles("Normal")
End With
Dim tbl As Table
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:=1, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed
With Selection.Tables(1)
If .Style <> "Table Grid" Then
.Style = "Table Grid"
End If
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = False
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = False
.ApplyStyleRowBands = True
.ApplyStyleColumnBands = False
End With
With Selection
.Style = ActiveDocument.Styles("Normal")
.TypeText Text:=problem
.MoveRight Unit:=wdCell
.TypeText Text:=addcon
.TypeText Text:="System overview"
.Style = ActiveDocument.Styles("Heading 3")
.TypeParagraph
.TypeText Text:="Tools required"
.Style = ActiveDocument.Styles("Heading 3")
.TypeParagraph
.TypeText Text:="Safety precautions"
.Style = ActiveDocument.Styles("Heading 3")
.TypeParagraph
.TypeText Text:="Troubleshooting steps"
.Style = ActiveDocument.Styles("Heading 3")
.TypeParagraph
.TypeText Text:="Confirm possible cause"
For Each cause In causeArray
If Len(cause) <> 0 Then
.MoveRight Unit:=wdCell
.TypeText Text:=Trim(cause) & "?"
End If
Next cause
End With
For Each tbl In ActiveDocument.Tables
tbl.Select
Selection.Font.Bold = wdToggle
Selection.Sort ExcludeHeader:=False, FieldNumber:="Column 1", _
SortFieldType:=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending, _
FieldNumber2:="", SortFieldType2:=wdSortFieldAlphanumeric, SortOrder2:= _
wdSortOrderAscending, FieldNumber3:="", SortFieldType3:= _
wdSortFieldAlphanumeric, SortOrder3:=wdSortOrderAscending, Separator:= _
wdSortSeparateByCommas, SortColumn:=False, CaseSensitive:=False, _
LanguageID:=wdEnglishUS, SubFieldNumber:="Paragraphs", SubFieldNumber2:= _
"Paragraphs", SubFieldNumber3:="Paragraphs"
Selection.Borders(wdBorderTop).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderRight).LineStyle = wdLineStyleNone
Selection.Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone
Selection.Style = ActiveDocument.Styles("Normal")
Next tbl
End Sub