本示例使活动文档中的第三段至第五段保持在同一页上。
For i = 3 To 5
ActiveDocument.Paragraphs(i).KeepWithNext = True
Next i