Word Table Cell Height

Question

Word VBA. Office 365.

I need to go to a specific table cell and change it's height.

Thanks in advance.

Answer 1

Hi @Maxine Nietz ,

hope thats helps:

Sub ChangeTableCellHeight()

Dim doc As Document

Dim tbl As Table

Dim cell As Cell

' Reference the active document

Set doc = ActiveDocument

' Reference the specific table (1 for the first table in the document)

Set tbl = doc.Tables(1)

' Reference the specific cell (change row and column as needed)

Set cell = tbl.Cell(Row:=2, Column:=3)

' Change the cell height

cell.Height = InchesToPoints(0.5) ' Change to desired height in inches

' Optional: Set height rule

cell.HeightRule = wdRowHeightExactly ' Other options: wdRowHeightAtLeast or wdRowHeightAuto

End Sub

If the answer is helpful, please click "Accept Answer" and kindly upvote it. If you have extra questions about this answer, please click "Comment".

Answer 2

At its simplest:

Sub ChangeTableCellHeight()
With ActiveDocument.Tables(1).Cell(Row:=2, Column:=3) ' change table, row & column refs to suit

.HeightRule = wdRowHeightExactly ' or wdRowHeightAtLeast

.Height = InchesToPoints(0.5) ' or CentimetersToPoints(1.27), using the appropriate value.

End With

End Sub