openoffice -将文本写下到状态栏的宏

openoffice --将文本写入到状态栏的宏
Sub Main
    StatusText("hello world")
End Sub

Function ProgressBar
    ProgressBar = ThisComponent.CurrentController.StatusIndicator
End Function

REM display text in status bar
    Sub StatusText(sInformation as String)
    Dim iLen As Integer
    Dim iRest as Integer
    iLen = Len(sInformation)
    iRest = 270-iLen
    ProgressBar.start(sInformation+SPACE(iRest),0)
End Sub