Sorry, macropod, I should've clarified I was changing the output to a document (a workbook would still work, of course; I'm just gathering the data for some human analysis).

I wish I'd seen your reply a week ago! I spent half the day working on this macro yesterday. I ended up with this:

[VBA]Sub GrabbingCrutches()
'
' GrabbingCrutches Macro

Dim r As Range
Dim mystring As String
Dim ThisDoc As Document
Dim OtherDoc As Document

MsgBox "Remember to open a new document for the results, and close others!"

If Documents.Count <> 2 Then
MsgBox "Must have two (and only two!) documents open."
Exit Sub
End If



Set ThisDoc = ActiveDocument
If ThisDoc = Documents(1) Then
Set OtherDoc = Documents(2)
Else
Set OtherDoc = Documents(1)
End If

mystring = "nod"
Set r = ActiveDocument.Range
With r.Find
Do While .Execute(FindText:=mystring, MatchAllWordForms:=True, Forward:=True) = True
r.Expand Unit:=wdSentence
r.Copy
OtherDoc.Range.InsertAfter r.Text & vbCrLf
r.Collapse 0
Loop
End With

'cut and pasted the code from mystring through End With, changing the search term

End Sub
[/VBA]

I'm afraid it's not terribly elegant, either, but my attempts at pulling from a word list weren't successful.

The only other things I wish it would do would be to print the page number where the sentence was found after each sentence, and to add hard page breaks between the results for term 1 and term 2, etc.

I appreciate your time, Paul! Wish I'd seen this sooner; I would have totally used your solution if I had. Thanks again!