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

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?

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)

--
Regards,
Tom Ogilvy



"[email protected]" wrote:

> 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?
>
>