[Страдалецъ]

Предполагаю, что примерно так:

Код:

Start := MSWord.Selection.Start;
Finish := MSWord.Selection.Start;
MSWord.ActiveDocument.Range(Start, Finish).InsertBreak;