Hello,

I've got a macro which copies a selection to Word. But the problem is
that when copying it doesn''t copy the format (including page breaks
etc.). Second problem is that it copies it to word in a table.

I've got this code:

Sub Basis()
Dim Wordapp As Object

Set Wordapp = CreateObject("Word.Application")
Wordapp.Visible = True
doc = Wordapp.documents.Add()

Sheets("Basis reglement").Visible = True

Sheets("Basis reglement").Select
Range("D1:D650").Select
Selection.Copy

Wordapp.Selection.Paste

End Sub


and I tried stuff like this: WordApp.Selection.PasteSpecial
Link:=False, DataType:=wdPasteRTF, Placement:= wdInLine,
DisplayAsIcon:=False

but it pastes the selection as a figure (and a very small one too)..

does anybody have a solution?