Get TOC based on Paragraph section filtered on keywords

Question

Need to get the Table of Contents for those whose Paragraphs for all the keyword/s that are supplied as search parameter are met.
E.g: Search for Keywords like 'Documentation', 'Analysis' - This will get all the Table of Contents whose subsequent paragraphs has the keyword Documentation or Analysis in them.
Then on selection of that particular Table of Contents (filtered list based on the searches) should display the complete section / paragraphs for that Table of Contents.
Please suggest.

Answer 1

In your link, it appears you want three elements from the document, viz:
TOCNum, TOC, Description
for which an example is:
Toc409454824, 1.1 Alumina, Aluminum oxide
Your 'TOCNum' entry (Toc409454824) is just the bookmark name applied by the TOC field to the corresponding entry '1.1 Alumina'. These bookmarks IDs are quite ephemeral and are liable to change every time the TOC is refreshed. I wouldn't be inclined to place
too much reliance on them.
Your 'TOC' appears to reference a paragraph in Heading 2 Style, containing the text '1.1 Alumina'. It is quite easy to build such a list, perhaps the simplest method being to insert a TOC field and convert its output to text. One can retrieve the
TOC bookmarks at the same time. For example, you might use a macro coded like the following to insert the list at the end of the document:
Sub CompileTOCRefs()
Application.ScreenUpdating = False
Dim RngTOC As Range, StrBkMkList As String, i As Long
With ActiveDocument
  .Range.InsertAfter vbCr
  Set RngTOC = .Paragraphs.Last.Range
  .Fields.Add Range:=RngTOC, Type:=wdFieldEmpty, Text:="TOC \o 2-9 \h \n", PreserveFormatting:=False
  With .TablesOfContents(ActiveDocument.TablesOfContents.Count)
    For i = 2 To .Range.Fields.Count
      StrBkMkList = StrBkMkList & "|" & Split(Trim(.Range.Fields(i).Code.Text), " ")(2)
    Next
    Set RngTOC = .Range
  End With
  RngTOC.Fields.Unlink
  For i = 1 To UBound(Split(StrBkMkList, "|"))
    RngTOC.Paragraphs(i).Range.InsertBefore Split(StrBkMkList, "|")(i) & vbTab
  Next
End With
RngTOC.InsertBefore "TOCNum" & vbTab & "TOC" & vbTab & "Description" & vbCr
Application.ScreenUpdating = True
End Sub
It is not apparent where in the document your 'Description' text comes from, so I can't comment yet on how you'd retrieve that.
Cheers
Paul Edstein
[MS MVP - Word]