Table row fheight

[Jean-Yves]

Hello,

I tried to make a macro to synchronuse the height of rows of 2 tables being
visible at the same time. eg
Left page : program Right page : remards
________________ _______________
09:00 start book rooms
briefing
_________________ _______________
10:00 coffee brak
_________________ _______________
etc

But I cannot not get the height if the HeightRule is set to
wdRowHeightAtLeast or wdRowHeightAuto.

Any other way ?
Regards

Jean-Yves Tfelt

 

[Jezebel]

It's an annoying shortcoming in Word that there's no easy way to determine
the height of a table row. One option is to use the
Information(wdVerticalPositionRelativeToPage) function -- position the
cursor at the start of the row below and check where you are on the page.

 

[Jean-Yves]

Hi,

Seems to be missing indeed.
I wanted to mirror exactly the two pages ...
Something like
Sub test
Dim x, y
For x = 1 To ActiveDocument.Tables.Count - 1
For y = 1 To ActiveDocument.Tables(x).Rows.Count
ActiveDocument.Tables(x + 1).Rows(y).HeightRule = wdRowHeightExactly
ActiveDocument.Tables(x + 1).Rows(y).Height =
ActiveDocument.Tables(x).Rows(y).Height
Next y
Next x
End Sub
Thank you for the input
Jean-Yves