Écrire dans word en vb

J'ai un problème, je voudrais sélectionner et copier le texte d'une page word déjà existante et le coller dans un autre document word qui n'existe pas encore, avez vous une idée de comment s'y prendre.

Merci d'avance

tiens tu peux essayer ca

Dim word As Object
Dim word2 As Object
Set word2 = CreateObject("Word.document")
word2.Application.Documents.Open "c:\ouvrir\document.doc", ReadOnly:=True
word2.Application.Selection.WholeStory
word2.Application.Selection.Copy
Set word = CreateObject("Word.document")
word.Application.Selection.Paste
word.Application.ActiveDocument.SaveAs FileName:="c:\sauver\newdoc.doc", FileFormat:=2
word.ActiveWindow.Close
word2.ActiveWindow.Close

voila
sainteo

klll