Copy a range from excel to word with wrap text cells

[frostii]

Hi guys,

I'm trying to copy a range of data (B4:C10 as an example) and paste it into word.

Using the following code was working a treat:

Please Login or Register  to view this content.

However, one cell (C8) now has lots of data and requires 'wrap text' to see it all in excel. When I copy this across to word it throws the table out of whack (it shrinks column B and makes it look quite ugly).

Is there a way to carry across the wrap text command so that the table in word maintains the same column sizes as it looks in excel?

Hope that makes sense.

Thanks in advance.

[Trevor_S]

Tables in word usually do wrap if they have to. But your macro states AutoFit, meaning that the column widths will be adjusted to best fit the length of data, minimising the need for wrapping.

If you want to maintain the same column proportions in word as excel (won't necessarily be same width, as word needs to fit on a piece of paper, put this bit of code in your macro at the point where you are copying from excel:

Please Login or Register  to view this content.

Then amend your code extract as follows:

Please Login or Register  to view this content.

The first bit of code calculates the width of each column to the nearest whole percentage of the total width. The amendment in the second bit sets the column widths as these percentages, rather than as AutoFit. Text should then wrap if necessary.

[frostii]

Thanks for the reply Trevor_S. I'm off work for a few days now but when I get back I'll definitely check it out.
Thanks again.