Hi I have problems when I try to copy paste different columns (ranges)
to a word doc.


This is the code I'm using:

Dim wordapp As Word.Application
Dim WordDoc As Word.Document

Set wordapp = New Word.Application
Set WordDoc = wordapp.Documents.Add

WordDoc.PageSetup.Orientation = wdOrientLandscape

Dim x As Integer
x = max + 1
Sheets("registrations").Range("B1:F" & x & ",I1:I" & x & ",K1:L" &
x & ",N1:N" & x).Copy
WordDoc.Range.PasteSpecial


The problem that I have, is that it doesn't copy the different
columns, it copies all the columns between B and N, so G, H, J, M are
alsow included.

Now I noticed that the same thing occurs when I try to simulate this
with manual actions. If I select 2 columns for example A and C, copy
and past them in a Word doc, column B is also been copied.

What I alsow tried was to delete the unneeded columns afterwards: with
this code:

WordDoc.Tables(1).Columns(12).Delete
WordDoc.Tables(1).Columns(10).Delete
WordDoc.Tables(1).Columns(8).Delete
WordDoc.Tables(1).Columns(7).Delete

But then I receive the following error:

"Cannot access individual columns in this collection because the table
has mixed cell widths."

I alsow tried copy pasting the ranges one after another, ben the I
receive the following error:

"Microsoft excel is waiting for an OLE object to ..."

Somebody knows a solutions for this situation.

Thanks in advance, Nik

It's always a problem: you cannot paste multiple ranges from Excel to any
package other than Excel - the clipboard thinks you've copied everything
between. You best bet (I think) is to create the table you would like to see
in Word in Excel first - either with a macro or - better - worksheet formulae
and then copy that in its entirety.

"pedro" wrote:

Hi I have problems when I try to copy paste different columns (ranges)
to a word doc.


This is the code I'm using:

Dim wordapp As Word.Application
Dim WordDoc As Word.Document

Set wordapp = New Word.Application
Set WordDoc = wordapp.Documents.Add

WordDoc.PageSetup.Orientation = wdOrientLandscape

Dim x As Integer
x = max + 1
Sheets("registrations").Range("B1:F" & x & ",I1:I" & x & ",K1:L" &
x & ",N1:N" & x).Copy
WordDoc.Range.PasteSpecial


The problem that I have, is that it doesn't copy the different
columns, it copies all the columns between B and N, so G, H, J, M are
alsow included.

Now I noticed that the same thing occurs when I try to simulate this
with manual actions. If I select 2 columns for example A and C, copy
and past them in a Word doc, column B is also been copied.

What I alsow tried was to delete the unneeded columns afterwards: with
this code:

WordDoc.Tables(1).Columns(12).Delete
WordDoc.Tables(1).Columns(10).Delete
WordDoc.Tables(1).Columns(8).Delete
WordDoc.Tables(1).Columns(7).Delete

But then I receive the following error:

"Cannot access individual columns in this collection because the table
has mixed cell widths."

I alsow tried copy pasting the ranges one after another, ben the I
receive the following error:

"Microsoft excel is waiting for an OLE object to ..."

Somebody knows a solutions for this situation.

Thanks in advance, Nik

mmm, thought of that to, but was asking my self if there wasn't
another solution avoiding to make extra sheets, but thanks anyway,
have solved it like that.

Grtz, Nik