В функции VBA

expression.AddTextbox(Orientation, Left, Top, Width, Height)

передаются координаты относительно левого верхнего угла документа в point.

Как можно вычислить позицию TOP в конце документа?

Пытался добавлять надпись во временный файл и потом вставлять в основной документ -
вставляет в абсолютных координатах, т.е. в начало документа.

Сделал так


Dim lShape As Shape

Application.Selection.EndKey 6 ' GO TO THE END OF DOCUMENT

ll_end_x = Selection.Information(wdHorizontalPositionRelativeToPage)
ll_end_y = Selection.Information(wdVerticalPositionRelativeToPage)


lShape = ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, ll_end_x, ll_end_y, 200, 150)
lShape.AlternativeText = "Alternative Text "
' Text Box text
lShape.TextFrame.TextRange.Text = "type your text"