chkpagenator

Sub chkpagenator()
'
' chkpagenator Macro
' 見出し１でもないのに、段落前で改ページしている要素を発見する
'
Dim p As Paragraph
Dim s As Style


For Each p In ActiveDocument.Paragraphs
  Set s = p.Style
  If Not s.NameLocal Like "*見出し*" Then
    If p.PageBreakBefore < 0 Then
      MsgBox (p.Range & s.NameLocal & ":" & p.OutlineLevel & ":" & p.PageBreakBefore)
    End If
  End If
Next p
End Sub