I have a .txt file - it is a book.
I have another file - it is a list of keywords I want to index in the
book. The keyword can have a few words separated by space. All keywords
are sorted in descending order - there are no duplicates.
Here is my problem:

If a keyword is "book" and another is keyword "book about VBA" -
because the keywords are sorted by descending order, first in the file
will be "book about VBA" and will be indexed. Then "book" comes and
indexes  "book about VBA".
How to tell VBA not to index words that are already indexed, that means
do not index the word "book" in  "book about VBA".

Thanks,

Zalek

Here is my code:
Sub CreateIndex()

   Dim quote As String
   Dim Keyword As String
   Dim i As Integer
   Dim j As Integer
   quote = """"
   Dim found_key As Boolean
   Dim startSearch As Long
   Dim endSearch As Long

   Close #1
   Open "C:\boss_info_index.txt" For Input As #1

   i = 0
   j = 0
   Do While Not EOF(1)    ' Loop until end of file.
      Set myRange = ActiveDocument.Content
      endSearch = myRange.End

      Input #1, Keyword

      j = 0
      i = i + 1

' this is for debugging purpose
      If i > 500 Then
         myRange.Italic = True
         Exit Do
      End If

      While myRange.Find.Execute(FindText:=Keyword, Forward:=True)

         myRange.Collapse wdCollapseEnd
         Set myIndexEntry = myRange.Fields.Add(myRange,
Type:=wdFieldIndexEntry, _
                            Text:=quote & Keyword & quote)

         startSearch = myRange.End
         startSearch = startSearch + 32
         myRange.Start = startSearch
         myRange.End = endSearch
' this is for debugging purpose
         j = j + 1
         If j > 300 Then
            myRange.Bold = True
            Exit Sub
         End If
      Wend

     
   Loop
   
   Close #1    ' Close file.
   
End Sub