Removing KeepWithNext Formatting from Nested Tables?

Jfedora · #1 06-05-2017, 04:34 PM

Hello,
I have a document that is one big table with three Columns that has various other Tables within the middle Column. I am trying to remove Keep with next from the row in the larger all encompassing table that is above the smaller table, so that the tables don't split across pages. I used a macro that I found on here for a similar endeavor, just not in a giant table.

Code:

Public Sub KeepRowsTogether()
'Keeps Tables on one page
Dim oTbl As Table, oCel As Cell
'Iterate through all tables in document
For Each oTbl In ActiveDocument.Tables	
    oTbl.Range.Paragraphs.KeepWithNext = True
	With oTbl
	'If there are no merged vertical cells, turn off KeepWithNext on last row
    If .Uniform = True Then
      For Each oCel In .Rows.Last.Range.Cells
        oCel.Range.Paragraphs.Last.KeepWithNext = False
      Next oCel
    Else
	'Find vertically merged cells and turn off KeepWithNext 
      Set oCel = .Range.Cells(.Range.Cells.Count)
      Do While oCel.ColumnIndex > 1
        oCel.Range.Paragraphs.Last.KeepWithNext = False
        Set oCel = oCel.Previous
      Loop
      oCel.Range.Paragraphs.Last.KeepWithNext = False
    End If
  End With
Next oTbl
End Sub

I'm already parsing through all the tables like so:

Code:

'Loops through all tables in large Table
For Each InnerTable In OutterTable.Tables
	InnerTable.PreferredWidthType = wdPreferredWidthPoints
	InnerTable.PreferredWidth = 400

I was wondering if anyone could help me with how to get this formatting changed. Thanks

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Nested tables. Count rows	NevilleT	Word VBA	9	05-10-2017 05:22 AM
Remove Styles in Word 2016 without removing formatting	stm27	Word	5	11-16-2016 12:49 PM
Would like help removing "tables" for boxes from document	Alex MacLean	Word	3	02-22-2015 01:39 PM
Formatting all tables	knightmetal	Word	2	09-10-2012 10:53 PM
Nested vlookup with varable tables!	Dave Jones	Excel	0	08-30-2012 09:15 AM