View Single Post
 
Old 03-10-2015, 10:52 PM
gmayor's Avatar
gmayor gmayor is offline Windows 7 64bit Office 2010 32bit
Expert
 
Join Date: Aug 2014
Posts: 4,137
gmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud of
Default

OK no problem. Locate the two lines
Code:
oRow.Cells(3).Range.ListFormat.RemoveNumbers NumberType:=wdNumberParagraph
and immediately after each add
Code:
        oRow.Cells(1).Width = oTable.Rows(2).Cells(1).Width
        oRow.Cells(2).Width = oTable.Rows(2).Cells(2).Width
        oRow.Cells(3).Width = oTable.Rows(2).Cells(3).Width
This will force the cell widths to match the first section.
__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com
Reply With Quote