本示例使活动文档中的第三段至第五段保持在同一页上。

For i = 3 To 5
    ActiveDocument.Paragraphs(i).KeepWithNext = True
Next i