Question

我有一个带有表格的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);

Answer 1

试试这个：

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 Word自动化：如何在表后插入文本？

1 个答案: