... obj_Document.Tables.Add ( obj_Range , int_Feat_Count , 5 ) obj_Table = obj_Document.Tables(1) int_Column_Count = obj_Table.Columns.Count int_Row_Count = obj_Table.Rows.Count * obj_Table.Rows.Height = 20 int_Table_Width = 0 FOR int_Column_Index = 1 TO int_Column_Count int_Column_Width = obj_Table.Columns(int_Column_Index).Width int_Table_Width = int_Table_Width + int_Column_Width obj_Table.Columns(int_Column_Index).Cells.VerticalAlignment = 1 ENDFOR obj_Table.Columns(5).Width = .050 * int_Table_Width obj_Table.Columns(4).Width = .050 * int_Table_Width obj_Table.Columns(3).Width = .050 * int_Table_Width obj_Table.Columns(2).Width = .800 * int_Table_Width obj_Table.Columns(1).Width = .075 * int_Table_Width ...