スプラッシュスクリーン 
com.sun.star.office.SplashScreen を利用します。
非同期にスプラッシュスクリーンを表示しないとその間他のコードは停止してしまいます。
Sub ShowSplash
oASync = CreateUnoService( _
"com.sun.star.awt.AsyncCallback")
oCallback = CreateUnoListener("SplashCallback_", _
"com.sun.star.awt.XCallback" )
oASync.addCallback(oCallback,"")
End Sub
Sub SplashCallback_notify( aData )
oSS = CreateUnoService("com.sun.star.office.SplashScreen")
With oSS
.initialize(Array(True, "OpenOffice.org"))
wait 100
.setValue(1)
for i = 1 to 10 step 1
wait 100
.setValue(i * 10)
next
'.start("", 100)
End With
End Sub
OnLoadFinished イベントに登録すると・・・。なんだかいまいち、読み込み後に開くのが早くてよく分からない。さらに、ドキュメントを開く進行具合が分からないためバーの調整ができない。