Hi again Gordon. You can set your table width with the following code. You can also trial removing the commented code to see what happens. HTH. Dave
With CurrentDoc.PageSetup
TblWdth = .PageWidth - .LeftMargin - .RightMargin - .Gutter
End With
'format table
With CurrentDoc.Tables(1)
'.AutoFormat Format:=16, applyborders:=True
'.AutoFitBehavior (0)
.Columns.Width = TblWdth / .Columns.Count
End With
edit: this will set all of your columns to the same width