Sub InsertTab_Before_FirstInstance()
    Dim oRng As Word.Range
    Dim arrWords
    Dim i As Long
    arrWords = Array("means", "includes", "has", "any")
    For i = 0 To UBound(arrWords)
    Set oRng = ActiveDocument.Range
    With oRng.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .text = arrWords(i)
      .MatchWholeWord = True
      .Replacement.text = ChrW(9) & arrWords(i)
      .Execute Replace:=wdReplaceOne
      End With
    Next
End Sub

Sub InsertTab_Before_FirstInstance()
Dim oRng As range
Dim oPar As Paragraph
Dim arrWords
Dim i As Long
    Set oRng = ActiveDocument.range
    arrWords = Array("means", "includes (without", "any part")
    For Each oPar In oRng.Paragraphs
        For i = 0 To UBound(arrWords)
            With oPar.range.Find
                .ClearFormatting
                .Replacement.ClearFormatting
                .text = arrWords(i)
                .MatchWholeWord = True
                .Replacement.text = ChrW(9) & arrWords(i)
                .Execute Replace:=wdReplaceOne
            End With
        Next i
    Next oPar
End Sub

Sub InsertTab_Before_FirstInstance()
Dim arrWords
Dim oCol As New Collection
Dim lngIndex As Long
Dim lngPar As Long
Dim oWord As Range
   'Define the words to trigger first instance.
   arrWords = Split("means|includes|any|has", "|")
   'Add first instance words to a keyed collection. Note-once added, the same word can't be added again.
   For lngIndex = 0 To UBound(arrWords)
     oCol.Add arrWords(lngIndex), arrWords(lngIndex)
   Next lngIndex
   'Look at each paragraph
   For lngPar = 1 To ActiveDocument.Paragraphs.Count
     'Look at each word starting with first word
     For Each oWord In ActiveDocument.Paragraphs(lngPar).Range.Words
       On Error Resume Next
       'Attempt to add word to collection
       oCol.Add Trim(oWord), Trim(oWord)
       If Err.Number = 0 Then
         'If you can add it, there will be no error.  Remove the word
         oCol.Remove oCol.Count
       Else
         'If you can't then it is a first instance word. Prefix the tab
         If oWord.Characters.First.Previous = " " Then oWord.Characters.First.Previous.Delete
         oWord.InsertBefore Chr(9)
         Err.Clear
         GoTo Next_Par
       End If
      Next oWord
Next_Par:
   Next lngPar
lbl_Exit:
  Exit Sub
End Sub

Sub InsertTab_Before_FirstInstance()
Dim oPar As Paragraph
Dim oRng As Word.Range, oFIRng As Range
Dim arrWords
Dim i As Long, j As Long
  arrWords = Array("means", "includes", "has", "any")
  For Each oPar In ActiveDocument.Range.Paragraphs
    Set oFIRng = Nothing
    Set oRng = oPar.Range
    j = 0
    Do
      For i = j To UBound(arrWords)
        oRng.Start = oPar.Range.Start
        With oRng.Find
          .ClearFormatting
          .Replacement.ClearFormatting
          .Text = arrWords(i)
          .MatchWholeWord = True
          If .Execute Then
            'We have found a first instance word.  But, does another FI word precede it?
            Set oFIRng = oRng.Duplicate
          End If
          'Index and look for next word in the array
          j = j + 1
          If j = UBound(arrWords) + 1 Then Exit Do
        End With
      Next i
      If oFIRng Is Nothing Then Exit Do
    Loop
    If Not oFIRng Is Nothing Then
      If oFIRng.Characters.First.Previous = " " Then oFIRng.Characters.First.Previous.Delete
      If Not oFIRng.Characters.First.Previous = Chr(9) Then oFIRng.InsertBefore Chr(9)
    End If
  Next
lbl_Exit:
  Exit Sub
End Sub

Sub InsertTab_Before_FirstInstance()
Dim oPar As Paragraph
Dim oRng As Word.Range, oFIRng As Range
Dim arrWords
Dim lngIndex As Long, lngListIndex As Long
  'Purpose - to find and prefix the first instance of any word (defined from a list) in each document paragraph define.
  'The number of possible words is variable and defined in an array.
  arrWords = Array("means", "includes", "has", "any")
  'Look in each paragraph
  For Each oPar In ActiveDocument.Range.Paragraphs
    'Define the oFIRng
    Set oFIRng = Nothing 'Note - if oFIRng remains nothing at the end of this looop then none of the possible words where found.
    'Set the search range variable
    Set oRng = oPar.Range
    'Initialize\reset the counter
    lngListIndex = 0
    Do
      'We are entering a Do ... Loop and we stay in this loop until we have looked in the defined range
      'for all the listed words.
      For lngIndex = lngListIndex To UBound(arrWords)
        'Ensure the search range allows starts at the start of the paragraph
        oRng.Start = oPar.Range.Start
        With oRng.Find
          'Note the search range is always from the start of the paragraph to end of the paragraph
          'or end of the last word found.
          .ClearFormatting
          .Replacement.ClearFormatting
          .Text = arrWords(lngIndex)
          .MatchWholeWord = True
          If .Execute Then
            'We have found a first instance word.
            Set oFIRng = oRng.Duplicate
            'Note oRng.End is now defined at then end of the found word.
          End If
          'Found yes, but does one of the other FI words in the list precede it?
          'Index the counter look for next word in the array
          lngListIndex = lngListIndex + 1
          If lngListIndex = UBound(arrWords) + 1 Then
            'We have looked for the last word in the list. Escape the Do ... Loop
            Exit Do
          End If
        End With
      Next lngIndex
    Loop
    'Was a listed word found?
    If Not oFIRng Is Nothing Then
      If oFIRng.Characters.First.Previous = " " Then oFIRng.Characters.First.Previous.Delete
      If Not oFIRng.Characters.First.Previous = Chr(9) Then oFIRng.InsertBefore Chr(9)
    End If
  Next
lbl_Exit:
  Exit Sub
End Sub