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