如果活动文档在上次保存后进行了修改,本示例将对其重新分页。
If ActiveDocument.Saved = False Then
ActiveDocument.Repaginate
End If