Pasting a Range from Excel to Word

[pat-carm]

How do I paste an Excel range into a blank Word document and make it fit
the page?

It seems the only way I can do this is paste/special and select a
bitmap image and this method just seems tedious. There has to be a
better way. I'm using Office XP.

 

[Cindy M -WordMVP-]

Hi Pat-carm,

Most people want to retain as much of the Excel format as possible, so the
column widths tend to match those from Excel. More or less.

I'd say you'd be best served by a macro that:
- pastes the range
- applies Table/AutoFit/Fit to Window

For example
Sub PasteExcelTableAndSize()
Dim rng As Word.Range

Set rng = Selection.Range
rng.PasteExcelTable True, True, False
rng.MoveEnd wdCharacter, 2
rng.Tables(1).AutoFitBehavior wdAutoFitWindow
End Sub

How do I paste an Excel range into a blank Word document and make it fit
the page?

It seems the only way I can do this is paste/special and select a
bitmap image and this method just seems tedious. There has to be a
better way. I'm using Office XP.

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Sep 30 2003)
http://www.mvps.org/word

This reply is posted in the Newsgroup; please post any follow question or
reply in the newsgroup and not by e-mail

 

[mike]

ive always highlighted the range, then copied. go to
word , edit, paste special, choose picture, adn hit ok.
then you can size, etc, the range just like a picture.
drag corners, put behind, in front of text, etc.

mike