Sub FillerWords()
' Highlights filler words
'
'
Dim range As range
Dim i As Long
Dim TargetList
TargetList = Array("admit", "all off", "as being", "as to whether", "as yet", "care about", "go on", "grateful every day", "if you need to", "if you want", "if you wish", "if you would like to", "I might add", "in terms of", "in my opinion", "in spite of that fact that", "in the event of", "in the event that", "in the process of", “it seems like”, “made it to”, “pick out”, “pick up on”, “play up”, “point out”, “put off”, “put together”, “really”, “spend”, “take action to”, “takes up”, “taking up”, “talk about”, “the most important thing is to”, “the reason”, “time and again”, “took up”, “try to figure out”, “went back over”, “when it comes to”, “which is”, “who is”, “will be different”, “you can”, “you’re going to”, “you’re going to have”, “you’re going to need to”, “in general”, “mostly”, “sort of”, “virtually”, “often”, “I think”, “absolutely”, “definitely”, “very”, “totally”, “literally”, “just”, “ironically”, “truly”, “actually”, “basically”, “to know”, “I see”, “I feel”, “I hear”, “I can feel”, “almost”, “all of”, “factor”, “for all intents and purposes”, “for the most part”, “for the purpose of”, “harder than it has to be”, “individual”, “initial”, “on a regular basis”, “the first step is to”, “time and time again”, “with reference to”)
For i = 0 To UBound(TargetList)
  Set range = ActiveDocument.range
    With range.Find
      .Text = TargetList(i)
      .Format = True
      .MatchCase = False
      .MatchWholeWord = True
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      Do While .Execute(Forward:=True) = True
        range.HighlightColorIndex = wdPink
      Loop
    End With
  Next
End Sub

Sub FillerWords()
Application.ScreenUpdating = False
Dim i As Long, h As Long, TargetList
h = Options.DefaultHighlightColorIndex: Options.DefaultHighlightColorIndex = wdPink
TargetList = Array("admit", "all off", "as being", "as to whether", "as yet", "care about", "go on", _
  "grateful every day", "if you need to", "if you want", "if you wish", "if you would like to", _
  "I might add", "in terms of", "in my opinion", "in spite of that fact that", "in the event of", _
  "in the event that", "in the process of", "it seems like", "made it to", "pick out", "pick up on", _
  "play up", "point out", "put off", "put together", "really", "spend", "take action to", "takes up", _
  "taking up", "talk about", "the most important thing is to", "the reason", "time and again", "took up", _
  "try to figure out", "went back over", "when it comes to", "which is", "who is", "will be different", _
  "you can", "you’re going to", "you’re going to have", "you’re going to need to", "in general", "mostly", _
  "sort of", "virtually", "often", "I think", "absolutely", "definitely", "very", "totally", "literally", _
  "just", "ironically", "truly", "actually", "basically", "to know", "I see", "I feel", "I hear", _
  "I can feel", "almost", "all of", "factor", "for all intents and purposes", "for the most part", _
  "for the purpose of", "harder than it has to be", "individual", "initial", "on a regular basis", _
  "the first step is to", "time and time again", "with reference to")
With ActiveDocument.Content.Find
  .Format = False
  .MatchCase = False
  .MatchWholeWord = True
  .MatchWildcards = False
  .MatchSoundsLike = False
  .MatchAllWordForms = False
  .Replacement.Text = "^&"
  .Replacement.Highlight = True
  For i = 0 To UBound(TargetList)
    .Text = TargetList(i)
    .Execute Replace:=wdReplaceAll
  Next
End With
Options.DefaultHighlightColorIndex = h
Application.ScreenUpdating = True
End Sub

Sub FillerWords()
  ' Highlights filler words
  Dim i As Long, sList As String, TargetList() As String
  sList = "admit|all off|as being|as to whether|as yet|care about|go on|grateful every day|if you need to|"
  sList = sList & "if you want|if you wish|if you would like to|I might add|in terms of|in my opinion|"
  sList = sList & "in spite of that fact that|in the event of|in the event that|in the process of|it seems like|"
  sList = sList & "made it to|pick out|pick up on|play up|point out|put off|put together|really|spend|take action to|"
  sList = sList & "takes up|taking up|talk about|the most important thing is to|the reason|time and again|took up|"
  sList = sList & "try to figure out|went back over|when it comes to|which is|who is|will be different|you can|"
  sList = sList & "you're going to|you're going to have|you're going to need to|in general|mostly|sort of|virtually|"
  sList = sList & "often|I think|absolutely|definitely|very|totally|literally|just|ironically|truly|actually|basically|"
  sList = sList & "to know|I see|I feel|I hear|I can feel|almost|all of|factor|for all intents and purposes|for the most part|"
  sList = sList & "for the purpose of|harder than it has to be|individual|initial|on a regular basis|the first step is to|time and time again|with reference to"
  
  TargetList = Split(sList, "|")
  
  Options.DefaultHighlightColorIndex = wdPink
  With ActiveDocument.Content.Find
    .MatchCase = False
    .MatchWholeWord = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Wrap = wdFindContinue
    .ClearFormatting
    .Replacement.ClearFormatting
    .Replacement.Highlight = True
    For i = LBound(TargetList) To UBound(TargetList)
      .Text = TargetList(i)
      .Execute Replace:=wdReplaceAll
    Next
  End With
End Sub