Delphi 在word应用程序中，如何将光标移动到表的末尾

我有一个有两页的Word文档，我插入了一个表，该表从第一页开始，一直到第二页的中间（文档中只有一个表）

在Delphi（XE7）和OLE automation（variant和Office 2013）中，如何将光标移动到表后？ （在word文档文件中手动，我已反复按Enter键）

为此，这些代码将不起作用：

Selection.GoTo(wdGoToItem.wdGoToPage, wdGoToDirection.wdGoToLast);

以及：

以及：

---

有各种各样的方法可以做到这一点。我使用的方法是获取表的范围，然后折叠范围。类似这样的内容（VBA，但“翻译”它不会有任何困难）：

---

选择表格，然后向前移动一个字符？@Jandogen，如何选择表格或其他对象？类似于

Selection.Tables[1]。选择；选择。折叠（0）；//wdCollapseEnd

我已将其转换为Pascal代码，执行此操作时，在Set rng=tbl.range处引发异常“Tables is not methodos”。Pascal是否使用关键字Set为对象变量赋值？我知道VB.NET和C#不。。。

Selection.EndKey(wdStory, EmptyParam);

lvParag := ActiveDocument.Paragraphs.First;
Result := Range.Sentences.First.End - 1;

Dim tbl as Word.Table, rng as Word.Range
Set tbl = ActiveDocument.Tables(1)
Set rng = tbl.Range
rng.Collapse wdCollapseEnd 'Word.WdCollapseDirection.wdCollapseEnd
'If you need to show the user the Selection
rng.Select()
'Otherwise, continue to work with the Range object, adding text, for example:
rng.Text = "text following the table"
'and formatting it
rng.Style = "style name"