delphi 10.2在word表格后添加段落-

1.我正在从delphi Xe 10.2创建word文档。首先，我插入一个表。在表格之后，下一段进入第一个表格的单元格。我如何退出表格并在表格下方添加新行

MSWord.Selection.Font.Size := 11;
MSWord.Selection.Font.name :='Bookman Old Style';
Table := MSWord.ActiveDocument.Tables.Add( Range:= MSWord.Selection.Range, 
NumRows:=1, NumColumns:= 3, DefaultTableBehavior:= wdWord9TableBehavior);
Cell := Table.Cell(1, 1);
Range := Cell.Range;
Range.Select;
MSWord.Selection.ParagraphFormat.Alignment :=wdAlignParagraphCenter;
S :='A. No. VIII/48/94/2018- ';
MSWord.Selection.TypeText(Text := S);

Cell := Table.Cell(1, 3);
Range := Cell.Range;
Range.Select;
MSWord.Selection.ParagraphFormat.Alignment :=wdAlignParagraphCenter;
S :='Dated:';
MSWord.Selection.TypeText(Text := S);

MSWord.Selection.TypeText('PART-A OF THE REPORT ');
Range:= MSWord.Selection.Range;
MSWord.Selection.ParagraphFormat.Alignment := wdAlignParagraphCenter;}

（我想你之前在你的另一个问题上没有读到我对你的问题的评论，我在那里解释了如何为你自己解决这个问题）

只需在您的代码之后立即添加以下代码：

  MSWord.Selection.EndKey( Unit:=wdStory );
  MSWord.Selection.ParagraphFormat.Alignment := wdAlignParagraphJustify;
  MSWord.Selection.TypeText('After table');

---

实际上是

EndKey

在表外移动。

看一看，非常感谢，我是delphi的初学者-当我在段落后插入第二个表时，第二个表的列宽度变化您可以轻松设置表列的宽度，甚至单个单元格的宽度iirc。以谷歌为例。