Sub PrintSpecificWordsII()
  Dim myWords() As String
  Dim lngIndex As Long
  Dim oStory As Range
  myWords = Split("Word1|Word2|Word3|Word4|Word5", "|")
  For lngIndex = LBound(myWords) To UBound(myWords)
      For Each oStory In ActiveDocument.StoryRanges
          With oStory.Find
              .ClearFormatting
              .Text = myWords(lngIndex)
              .Forward = True
              .MatchWholeWord = True
              While .Execute
                  oStory.HighlightColorIndex = wdBrightGreen
                  oStory.Select
                  Application.PrintOut Range:=wdPrintCurrentPage
                  oStory.Collapse wdCollapseEnd
              Wend
          End With
          If oStory.StoryType <> wdMainTextStory Then
              While Not (oStory.NextStoryRange Is Nothing)
                  Set oStory = oStory.NextStoryRange
                  With oStory.Find
                      .ClearFormatting
                      .Text = myWords(lngIndex)
                      .Forward = True
                      .MatchWholeWord = True
                      While .Execute
                          oStory.HighlightColorIndex = wdBrightGreen
                          oStory.Select
                          Application.PrintOut Range:=wdPrintCurrentPage
                          oStory.Collapse wdCollapseEnd
                      Wend
                  End With
              Wend
          End If
      Next oStory
  Next lngIndex
lbl_Exit:
  Set oStory = Nothing
  Exit Sub
End Sub