Retrieve row height merged cells

Guessed · #2 03-14-2021, 02:18 PM

The workaround would be to iterate through all the table cells. If you only wanted to pick one table cell per row it would be easiest to settle on the first cell in each row. Note that it might be useful to also know the cell height rule since rows that automatically adjust their heights will all return an undefined height (9999999)

Code:

Sub CheckRows()
  Dim aRow As Row, aCell As Cell, aTable As Table
  
  If Selection.Tables.Count > 0 Then
    Set aTable = Selection.Tables(1)
    If aTable.Uniform Then
      For Each aRow In aTable.Rows
        Debug.Print aRow.Height, aRow.HeightRule
      Next aRow
    Else
      Debug.Print "Table has merged cells"
      For Each aCell In aTable.Range.Cells
        If aCell.ColumnIndex = 1 Then Debug.Print aCell.Height, aCell.HeightRule
      Next aCell
    End If
  End If
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Table Row with merged cells	andi_bln	Word VBA	3	10-15-2020 01:22 AM
Converting table to text (and back) with carriage returns in cells, split and merged cells	ndajko	Word	5	11-04-2019 07:53 AM
Borders on merged cells also appearing on unwanted adjacent cells	MrsC	Word Tables	2	08-19-2019 09:14 AM
Problem with merged cells and row height in adjacent two- and three-row columns	rolandoftheeld	Word Tables	3	08-31-2018 03:55 PM
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