Use
Dim myrange As Range
Set myrange = ActiveDocument.Range
myrange.start = myrange.start + InStr(myrange, "abc") - 1
myrange.End = myrange.start + InStr(myrange, "xyz") + 2
myrange.Copy
without the -1 and the +2, what will be copied starts with the b of abc and
ends with the x of xyz. You will need to make an appropriate adjustment to
get exactly what you want.

Signature
Hope this helps.
Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.
Doug Robbins - Word MVP
> Hi!
>
[quoted text clipped - 10 lines]
>
> thanks in advance
FIRSTROUNDKO - 13 Jul 2007 14:39 GMT
HI
all I get is abcxyz, and not th text inbetween
Thanks
Darren
>Use
>
[quoted text clipped - 13 lines]
>>
>> thanks in advance
Doug Robbins - Word MVP - 14 Jul 2007 04:37 GMT
That's not what happens when I run the code.

Signature
Hope this helps.
Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.
Doug Robbins - Word MVP
> HI
>
[quoted text clipped - 23 lines]
>>>
>>> thanks in advance