Copy + Pasting Excel Tables in word have 8pt spacing

macropod · #1 01-14-2016, 01:49 AM

There is no setting to make the tables autofit the pauge. However, you could use a macro like the following and assign it to a keyboard shortcut, then run it on the table you've just inserted:

Code:

Sub FitTable()
With Selection
  If .Information(wdWithInTable) = True Then
    With .Tables(1)
      .AllowAutoFit = False
      .PreferredWidthType = wdPreferredWidthPercent
      .PreferredWidth = 100
    End With
  End If
End With
End Sub

This is more flexible than using a fixed width, as it allow the table to resize to fit whatever margins & page layout you're using (such as when changing between portrait and landscape).

Jiing Chiang · #2 01-14-2016, 05:43 PM

Quote:

Originally Posted by macropod

There is no setting to make the tables autofit the pauge. However, you could use a macro like the following and assign it to a keyboard shortcut, then run it on the table you've just inserted:

Code:

Sub FitTable()
With Selection
  If .Information(wdWithInTable) = True Then
    With .Tables(1)
      .AllowAutoFit = False
      .PreferredWidthType = wdPreferredWidthPercent
      .PreferredWidth = 100
    End With
  End If
End With
End Sub

This is more flexible than using a fixed width, as it allow the table to resize to fit whatever margins & page layout you're using (such as when changing between portrait and landscape).

Thank you so much for you help. It worked perfectly!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Copy tables and transpose them from Word to Excel	Story11	Word VBA	2	01-18-2015 07:28 AM
Pasting tables from Excel 2010 into Word 2010 - How to fix column widths?	GracieB	Word	7	10-02-2013 06:24 AM
copying and pasting Excel tables into Word	derohanes	Word	1	01-24-2013 12:07 AM
how to copy all ms word tables into excel	rehan129	Word	0	01-28-2012 10:17 AM
help Copy from excel and pasting as a metafile in powerpoint	Juiceapple	Office	1	09-15-2009 09:52 AM