delphi - Delphi Word Automation:如何在表格后插入文本？

我有一个带有表的Microsoft Word文档。我的问题是表格后我需要一些文本，但是当我在表格后使用Selection.TypeText(Text)时，文本显示在表格内，而不是在表格后/表格外。
如何在表格后面插入文字？

代码如下所示：

Table := MSWord.ActiveDocument.Tables.Add(MSWord.Selection.Range, 2, 1);
Table.Cell(1, 1).Range.Text := 'GreenDay';
Table.Cell(2, 1).Range.Text := 'Kiss';
MSWord.Selection.TypeText('cdassda');

我的第二个问题是我无法将数据追加到新页面：

MSWord.Selection.Goto(wdGoToPage, wdGoToLast);

最佳答案

试试这个：

Table.Cell(1, 1).Range.Text := 'GreenDay';
Table.Cell(2, 1).Range.Text := 'Kiss';
MSWord.Selection.EndKey( Unit:=wdStory);
MSWord.Selection.TypeParagraph;
MSWord.Selection.TypeText('cdassda');

关于第二点，这对我有用：

//MSWord.Selection.Goto(wdGoToPage, wdGoToLast);

MSWord.Selection.EndKey( Unit:=wdStory );
MSWord.Selection.InsertBreak( Type:=wdPageBreak);

MSWord.Selection.TypeText('next page');

关于delphi - Delphi Word Automation:如何在表格后插入文本？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/34104173/