As advised in this thread:
https://social.technet.microsoft.com/Forums/office/en-US/228d49ed-53a4-487f-9829-316f76abbe13/need-word-macro-to-make-list-of-defined-terms?forum=word#1c042f81-41a4-4c11-b1f6-4cc50c510dbf yesterday, VBA has no idea what a grammatical sentence is. Subject
to that limitation, you could use something like:
Sub Demo()
Application.ScreenUpdating = False
Dim StrOut As String, i As Long, Rng As Range
StrOut = "Sentences with 'must'" & vbTab & "page": i = 2
With ActiveDocument.Range
With .Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Text = "must"
.Replacement.Text = ""
.Execute
End With
Do While .Find.Found
i = i + 1
StrOut = StrOut & vbCr & .Sentences.Last.Text & vbTab & _
.Information(wdActiveEndAdjustedPageNumber)
.Collapse wdCollapseEnd
.Find.Execute
Loop
StrOut = StrOut & vbCr & "Sentences with 'shall'" & vbTab & "page"
.Start = ActiveDocument.Range.Start
With .Find
.Text = "shall"
.Replacement.Text = ""
.Execute
End With
Do While .Find.Found
StrOut = StrOut & vbCr & .Sentences.Last.Text & vbTab & _
.Information(wdActiveEndAdjustedPageNumber)
.Collapse wdCollapseEnd
.Find.Execute
Loop
End With
StrOut = Replace(Replace(StrOut, Chr(12), ""), vbCr & vbTab, vbTab)
Set Rng = ActiveDocument.Range
With Rng
.Collapse wdCollapseEnd
.Text = StrOut
.ConvertToTable vbTab
With .Tables(1)
With .Rows(1)
.HeadingFormat = True
.Range.Font.Bold = True
End With
.Split i
End With
With .Tables(2)
With .Rows(1)
.HeadingFormat = True
.Range.Font.Bold = True
End With
End With
End With
Application.ScreenUpdating = True
End Sub
Cheers
Paul Edstein
[MS MVP - Word]
