WITH toTable * Set borders .Borders(wdBorderTop).LineWidth = wdLineWidth225pt .Borders(wdBorderLeft).LineWidth = wdLineWidth225pt .Borders(wdBorderBottom).LineWidth = wdLineWidth225pt .Borders(wdBorderRight).LineWidth = wdLineWidth225pt .Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone .Borders(wdBorderVertical).LineStyle = wdLineStyleNone ENDWITHWhere "toTable" is an object reference to a Word table.
With Selection.Tables(1) With .Borders(wdBorderLeft) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = wdColorAutomatic End WithLooks pretty much identical to me. Anybody know what's up here?