Actually there isn't an easy way because unless you can define a pattern that fits the multiple terms that you want to find, VBA can only look for one thing at a time. E.g., it just can't look for Red or Blue or Green or Pink or Orange or Yellow etc

In this case there is a relatively simple pattern so try:

Sub FindWordCopySentence()
Dim oApp As Object
Dim oSheet As Object
Dim lngIndex As Long
Const strFind As String = "<[shawi]{2,3}ll>"
Dim orng As Range
lngIndex = 1
  vFind = Split(strFind, "|")
  If oSheet Is Nothing Then
    Set oApp = CreateObject("Excel.Application")
    Set oSheet = oApp.workbooks.Open("D:\Data Stores\Sentence List.xlsx").Sheets("Sheet1")
    lngIndex = 1
  End If
  Set orng = ActiveDocument.Range
    With orng.Find
      .Text = strFind
      .MatchWildcards = True
      While .Execute
        If UCase(orng.Text) = "SHALL" Or UCase(orng.Text) = "WILL" Then
          orng.Expand Unit:=wdSentence
          oSheet.Cells(lngIndex, 1).Value = orng.Text '.Select
          lngIndex = lngIndex + 1
        End If
        orng.Collapse wdCollapseEnd
     Wend
   End With
  If Not oSheet Is Nothing Then
    oApp.workbooks(1).Close True
    oApp.Quit
    Set oSheet = Nothing
    Set oApp = Nothing
  End If
  Set orng = Nothing
lbl_Exit:
  Exit Sub
End Sub