View Single Post
 
Old 01-14-2016, 05:43 PM
Jiing Chiang Jiing Chiang is offline Windows 10 Office 2016
Novice
 
Join Date: Jan 2016
Location: Australia
Posts: 11
Jiing Chiang is on a distinguished road
Default

Quote:
Originally Posted by macropod View Post
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!
Reply With Quote