オープンオフィスベーシック

Sub ParaCount ' ' テキスト ドキュメント内の段落数をカウントします' Dim Doc As Object 、Enum As Object 、TextEl As Object 、Count As Long Doc = ThisComponent ' これはテキスト ドキュメントですか? If Not Doc . SupportsService ( "com.sun.star.text.TextDocument" ) Then MsgBox "このマクロはテキスト ドキュメントから実行する必要があります" 、64 、"エラー" Exit Sub End If Count = 0 ' 各コンポーネント (段落または表) を調べます? Enum = Doc . Text . CreateEnumeration While Enum . HasMoreElements TextEl = Enum . NextElement ' コンポーネントは段落ですか? If TextEl . SupportsService ( "com.sun.star.text.Paragraph" ) Then Count = Count + 1 End If Wend ' 結果を表示しますMsgBox Count 、0 、"段落数" End Sub