Sub ScratchMacro()
Dim arrContent() As String
Dim strTrigger As String
strTrigger = "zzz"
arrContent() = Split(ActiveDocument.Range.Text, "zzz")
Set oDoc = Documents.Add
oDoc.Range.Text = Ubound(arrContent)
End Sub

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/