次のパラグラフが存在しないかどうかのチェック

        On Error Resume Next
        Set 次段落 = 段落.Next
        If Err <> 0 Then
            GoTo 終了
        End If
        On Error GoTo 0
        (処理)
        set 段落 = 段落.Next//もうパラグラフが無い場合、Nothingが入る
        (上に戻る)

"次段落"はダミー。"段落.Next"実行時にエラーが発生するので、それを捕捉する

我ながらどうしようも無いコードだと思います＾＾；
Nothingかどうかを判断する手段が無い為こうしているのですが、もしかしてなんかあるのかな……？