Hi,
Document contains this text:


1 Now a Green Text 2 Label this in Black
3 Soft Kitty
4 Dog owners are great.
5 Spelling is not my forte
6 Measure Twice
7 Distance Measure


The following code will find 1st instance of the yellow text and Cut/Paste it to a new document. On the second loop it crashes at Selection.Range.Paste with Object empty error.
Not sure what the issue is. Likely that I am quite new to VBA and Word docs. Any help would be appreciated.



Sub FindYellowText()

Dim oResponse As Document

Selection.HomeKey wdStory
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = ""
.MatchWildcards = False
.Forward = True
.Wrap = wdFindStop
.Font.ColorIndex = wdYellow
.Execute

Do Until Not .Found
If Selection.Range.Font.ColorIndex = wdYellow Then
Selection.Range.Cut
Set oResponse = Documents.Add
With oResponse
Selection.Range.Paste
End With
End If
.Execute
Loop

End With
End Sub