Wel, if i use this code

loword=CREATEOBJECT("word.application")
odoc=loword.documents.open("c:\test.doc")
loword.Visible=.T.
loword.Application.Activate
orange=odoc.range()
orange.copy()
onew=loword.documents.add()
orange=onew.range()
orange.paste()

it copies perfectly with all the formats.