Splitting Tables containing Merged Cells

bpike · #1 10-27-2020, 01:32 AM

Hi all,

I'm hoping someone can help me with splitting tables that contain merged cells?

My macro works fine in a regular table, however, if there are any merged cells present I receive a Run-time error '-2147024808 (80070057)': Object has been deleted.

My code is as follows:

Code:

Sub SplitTable()

Dim oTbl As Word.Table, oRow As Row, oCell As Cell


For Each oTbl In ThisDocument.Tables
      
    n = 1
        Do While n > 0
        For Each oCell In oTbl.Range.Cells
        If oCell.Range = "Tree Number" & Chr(13) & Chr(7) Then n = oCell.RowIndex
        Next
        If n = 1 Then Exit Do
        oTbl.Split (n)
        n = 1
     
        Loop

Next oTbl

End Sub

Any workaround will be much appreciated.

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Finding Tables with Vertically Merged Cells	T-Belle	Word VBA	10	07-19-2020 07:09 PM
Format tables with vertically merged cells	jeffreybrown	Word VBA	2	01-16-2019 03:23 PM
VBA color of visible gridlines of tables word (with some merged cells in first rows)	Alvaro.passi	Word VBA	0	07-18-2017 09:11 AM
Overcome issues in tables with vertically merged cells	rocky2	Word VBA	12	12-22-2016 03:03 AM
Combining 2 tables into 1 and use Table2's column widths (hoping for workaround dealing merged cells	CodingGuruInTraining	Word VBA	24	10-07-2015 07:48 PM