Sub Macro2 Dim oRng As Range Dim oPara As Paragraph Dim sText As String For Each oPara In ActiveDocument.Paragraphs Set oRng = oPara.Range With oRng.Find Do While.Execute(FindText:='010^t') If oRng.start = oPara.Range.start Then sText = oPara.Range 'do something with stext e.g. You mean like this createOutline function (which actually copy all headings from a source word document into a new word document): (I believe the astrHeadings = docSource. GetCrossReferenceItems (wdRefTypeHeading) function is the key in this program, and should allow you to retrieve what you are asking for) UPDATE by @kol on March 6, 2018.
In purchase to perform this, we would need more info about what makes up a 'sentence in your essay' in your record, for certainly nothing of the good examples you have offered constitutes a phrase. If they are separate outlines (sentences) terminated with a paragraph break up then that would be useful, but without obvious indicator where each 'sentence' begins and finishes it is usually impossible to perform this. However making use of your test as example the using will include the lines comprising the entered word (situation sensitive) into column 1 of the excel workbook named in vibrant. Subwoofer ExtractLine Dim oPara As Paragraph Dim xlApp As Object Dim xlBook As Object Dim NextRow As Long Dim oRng As Variety Dim strWord As Thread Const strWorkbookname As String = 'D:My DocumentsWorkbookName.xlsx' strWord = InputBox('Enter word to discover') Collection oRng = ActiveDocument.Range With oRng.Discover Do While.Execute('^l') oRng = vbCr oRng.Failure wdCollapseEnd Loop End With On Mistake Curriculum vitae Next Set xlApp = GetObject(, 'Excel.Program') If Err After that Collection xlApp = CreateObject('Excel.Program') End If On Mistake GoTo 0 Collection xlBook = xlApp.Workbooks.Open up(Filename:=strWorkbookname) xlApp.Visible = True Place oRng = ActiveDocument.Range With oRng.Discover Perform While.Execute(strWord) NextRow = xlBook.Sheets(1).Range('A' amp; xlBook.Sheets(1).Rows.Count number).End(-4162).Line + 1 oRng.Start = oRng.Paragraphs(1).Variety.Start oRng.Finish = oRng.Paragraphs(1).Range.Finish - 1 xlBook.Sheets(1).Variety('A' amp; NextRow) = oRng.Text oRng.Collapse wdCollapseEnd Cycle End With End Sub http://www.gmayor.com/installingmacro.htm