Hello,

i want to copy some part(means the content between two words namely "word1" AND "word2" in the document )of the word document and to place in other word document using a macro.

Can any body know the code for the macro.

Try this code

Sub SelectRange()
Dim lCharpos1 As Long
Dim lCharpos2 As Long

    ActiveDocument.Bookmarks("\StartOfDoc").Select

    Selection.Find.Execute "word1"
    lCharpos1 = Selection.Range.Start
    Selection.Collapse

    Selection.Find.Execute "word2"


    lCharpos2 = Selection.Range.End

    ActiveDocument.Range(Start:=lCharpos1, End:=lCharpos2).Select
    Selection.Range.Copy

End Sub

v-m

thanks a lot.

it's working.