Hello, I have the below code that will copy a table in Excel and then paste it into Word. However I cannot get it to autofitcontents to the page: Sheet2.Range("F6:L" & (46 - Application.WorksheetFunction.CountBlank(Sheet2.Range("F6:F51"))) + 5).Copy HelpDoc.Parent.ActiveDocument.Bookmarks("TEST").Range.PasteAndFormat (wdFormatOriginalFormatting) I have tried something like: Sheet2.Range("F6:L" & (46 - Application.WorksheetFunction.CountBlank(Sheet2.Range("F6:F51"))) + 5).Copy HelpDoc.Parent.ActiveDocument.Bookmarks("TEST").Range.PasteAndFormat (wdFormatOriginalFormatting) HelpDoc.Parent.ActiveDocument.Bookmarks("TEST").Range.Tables(1).AutoFitBehavior (wdAutoFitContent) I still cannot get it to auto fit to the page. Is anyone able to help please. Thank you, John

If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.

Excel to Word AutofitContent

Thread starter johnbird1988
Start date Aug 10, 2015
Tags

autofit microsoft excel microsoft word

johnbird1988

Board Regular

Aug 10, 2015

Hello,

I have the below code that will copy a table in Excel and then paste it into Word. However I cannot get it to autofitcontents to the page:

Code:

Sheet2.Range("F6:L" & (46 - Application.WorksheetFunction.CountBlank(Sheet2.Range("F6:F51"))) + 5).Copy
HelpDoc.Parent.ActiveDocument.Bookmarks("TEST").Range.PasteAndFormat (wdFormatOriginalFormatting)

I have tried something like:

Code:

Sheet2.Range("F6:L" & (46 - Application.WorksheetFunction.CountBlank(Sheet2.Range("F6:F51"))) + 5).Copy
HelpDoc.Parent.ActiveDocument.Bookmarks("TEST").Range.PasteAndFormat (wdFormatOriginalFormatting)
HelpDoc.Parent.ActiveDocument.Bookmarks("TEST").Range.Tables(1).AutoFitBehavior (wdAutoFitContent)

I still cannot get it to auto fit to the page.

Is anyone able to help please.

Thank you,

John