Delphi 10.2 добавить абзац после таблицы в слове - - PullRequest
0 голосов
/ 29 июня 2018

1. Я создаю документ Word из Delphi Xe 10.2. Сначала я вставляю таблицу. После таблицы следующий абзац идет внутри ячейки первой таблицы. Как выйти из таблицы и добавить новую строку под таблицей

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;}

1 Ответ

0 голосов
/ 29 июня 2018

(я предполагаю, что вы не читали мой комментарий к вашему запросу ранее в другой q, где я объяснил, как решить это для себя)

Просто добавьте следующий код сразу после вашего:

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

Это EndKey, который на самом деле делает движение из-за стола.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...