Results 1 to 1 of 1
2002-03-28, 13:34 #1
- Join Date
- Feb 2001
- Yilgarn region of Toronto, Ontario
- Thanked 0 Times in 0 Posts
vertical Split in Word table (word97SR2)
I recently had reason to split a table vertically.
Place the cursor in any cell of a table, and run the macro. It should preserve borders etc but leave (Print Preview mode) an apparent gap between columns.
I could fine-tune the beast to set the gap-column to be 50% of the narrowest column in the table, etc etc etc.
Selection.Cells.SetWidth ColumnWidth:=CentimetersToPoints(1), RulerStyle:= _
Selection.Rows.SpaceBetweenColumns = CentimetersToPoints(0)
.Borders(wdBorderTop).LineStyle = wdLineStyleNone
.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
.Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone