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