' Put this code in a module:
 
Option Explicit 
 
Sub FindWordCopySentence() 
    Dim appExcel As Object 
    Dim objSheet As Object 
    Dim aRange As Range 
    Dim intRowCount As Integer 
    intRowCount = 1 
    Set aRange = ActiveDocument.Range 
    With aRange.Find 
        Do 
            .Text = "shall" ' the word I am looking for
            .Execute 
            If .Found Then 
                aRange.Expand Unit:=wdSentence 
                aRange.Copy 
                aRange.Collapse wdCollapseEnd 
                If objSheet Is Nothing Then 
                    Set appExcel = CreateObject("Excel.Application") 
                     'Change the file path to match the location of your test.xls
                    Set objSheet = appExcel.workbooks.Open("C:\temp\test.xls").Sheets("Sheet1") 
                    intRowCount = 1 
                End If 
                objSheet.Cells(intRowCount, 1).Select 
                objSheet.Paste 
                intRowCount = intRowCount + 1 
            End If 
        Loop While .Found 
    End With 
    If Not objSheet Is Nothing Then 
        appExcel.workbooks(1).Close True 
        appExcel.Quit 
        Set objSheet = Nothing 
        Set appExcel = Nothing 
    End If 
    Set aRange = Nothing 
End Sub