2004-03-12から1日間の記事一覧
If 段落 Is Nothing Then 'Nothingです End If こうですね。Is演算子なんか知らないよ……。ぐふう。
On Error Resume Next Set 次段落 = 段落.Next If Err <> 0 Then GoTo 終了 End If On Error GoTo 0 (処理) set 段落 = 段落.Next//もうパラグラフが無い場合、Nothingが入る (上に戻る) "次段落"はダミー。"段落.Next"実行時にエラーが発生するので、それを…