如果活动文档在上次保存后进行了修改,本示例将对其重新分页。

If ActiveDocument.Saved = False Then
     ActiveDocument.Repaginate
End If