Copied range from excel to word (but not in table-form)

[empyreum]

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("D1650").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?

 

[Guest]

when you use this:

WordApp.Selection.PasteSpecial
Link:=False, DataType:=wdPasteRTF, Placement:= wdInLine,
DisplayAsIcon:=False


the constant wdPasteRTF and wdInLine both have a value of zero since you are
using late binding. Replace those constants with the values Word actually
uses for them.


WordApp.Selection.PasteSpecial
Link:=False, DataType:=1, Placement:= 0,
DisplayAsIcon:=False

(looks like wdInLine isn't a problem, but wdPasteRTF is)