Combining 2 tables into 1 and use Table2's column widths (hoping for workaround dealing merged cells

CodingGuruInTraining · #17 09-27-2015, 12:01 PM

Today the same section is giving me a different error, this time regarding the Selection part:

Code:

          If ((i Mod 5) + 1) = 1 Then
            If .Cells(i + 4).ColumnIndex = 1 Then
              Set Rng = .Cells(i).Range
              Rng.End = .Cells(i + 4).Range.End
              Rng.Select: Selection.Cells.Merge
            End If

I'm using the same document I provided, see attached image. The unmerged sample is at the bottom in the last table.

I got rid of text wrapping by adding the following code near the end, but that seemed to make the columns slightly offset from the first row. I tried fixing this by adjusting the Array widths slightly, some to 1000s of an inch, but that only fixed some. Any idea why this would be?

Code:

      End With
      Tbl.Rows.WrapAroundText = False    
      Tbl.Rows.Alignment = wdAlignRowCenter  
    End With
  Next
End With
Application.ScreenUpdating = True
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Table will not allow sorting because "cells are merged". I can't find the merged cells.	wendyloooo	Word Tables	1	05-26-2015 01:19 PM
Splitting one column into two with two different widths	officeboy09	Excel	6	12-15-2013 09:48 PM
Pasting tables from Excel 2010 into Word 2010 - How to fix column widths?	GracieB	Word	7	10-02-2013 06:24 AM
Adjusting column widths	norwood	Word VBA	0	09-24-2013 06:53 AM
VBA code to fix column widths	molesy	Excel	3	09-16-2013 12:51 PM