View Single Post
 
Old 04-28-2018, 05:59 PM
Guessed's Avatar
Guessed Guessed is offline Windows 10 Office 2016
Expert
 
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 4,161
Guessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant future
Default

Of course you could always use a macro to right these wrongs after adding a column
Code:
Sub ResizeTable()
  Dim aTbl As Table
  For Each aTbl In Selection.Tables
    aTbl.PreferredWidthType = wdPreferredWidthPercent
    aTbl.PreferredWidth = 100
  Next aTbl
End Sub
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote