Как определить высоту всей таблицы в документе Word? - VB

Формулировка задачи:

Здравствуйте!
Помогите определить высоту всей таблицы в документе Word.
Я пытался делать вот так:

Dim r As Word.Row
Dim x As Single
  
For Each r In ActiveDocument.Tables(1).Rows
  x = x + r.Height
Next
Debug.Print x

В результате x = 5E+07.
Я понимаю, что в "Свойства таблицы" режим размера строки установлен "Минимум" и это от этого.
Как определить высоту таблицы или диапазона, который занимает таблица, не изменяя режим "Минимум"?

Решение задачи: «Как определить высоту всей таблицы в документе Word?»

textual
                            Листинг программы 
                        
                            Dim x As Word.Range
  
Set x = ActiveDocument.Tables(1).Range
Debug.Print ActiveDocument.Range(x.End).Information(wdVerticalPositionRelativeToPage) - _
            ActiveDocument.Range(x.Start).Information(wdVerticalPositionRelativeToPage)