Macro to copy worksheet into word

Hi again Pete,

Here's a cheap & cheerful way of accommodating the table on a single sheet. The macro routine adjusts the top & bottom margins and the table row height so that all of the information fits on a single sheet.

Just use the following for the "With appWord / End With" chunk of my previous code:

    With appWord
        .Documents.Add
        .Selection.Paste
        .ActiveDocument.PageSetup.BottomMargin = .CentimetersToPoints(2)
        .ActiveDocument.PageSetup.TopMargin = .CentimetersToPoints(2)
        .ActiveDocument.Tables(1).Rows.HeightRule = 2
        .ActiveDocument.Tables(1).Rows.Height = 11.35
        .Visible = True
    End With

I'll see if I can find out why your approach doesn't seem to be working correctly.

Regards,

Greg M


P.S. Oops! I've just realised you want to copy rows 2 to 80, not 20 to 80 as my code does - sorry!