[Greg Maxey]

I don't see any difference in your two questions.

Try something like:

Sub ExtractHightlight()
Dim oRng As Word.Range
Dim oDoc2 As Word.Document
Dim i As Long
Set oRng = ActiveDocument.Range
Set oDoc2 = Documents.Add
i = 1
With oRng.Find
.Highlight = True
While .Execute
oDoc2.Range.InsertAfter "Extract " & i & ": " & oRng.Text & vbCr
i = i + 1
Wend
End With
oDoc2.Activate
End Sub



Marilyn wrote:
Is there a way to have word Extract highlighted text in a Document and place
it in a new Word Document?

Thanks,