NeoOfficeでCalcを最初から起動する方法

一番簡単なのは、以下のサイトにもあるように、テンプレートファイルをデスクトップ等に置いて、そこから起動する方法。テンプレートを作るには、Calcの新規シートを別名で保存するときにテンプレート形式を指定するのが楽。
NeoOffice Launch Shortcuts

もうひとつ、マクロを使う方法が載っていたのでやってみたが、なかなかうまくいかない。もうちょっとでできそうだけど途中経過。

Sub StartWithCalc
	Dim oDoc As Object
	Dim Dummy()
	oDoc = StarDesktop.loadComponentFromUrl("private:factory/scalc", "_blank", 0, Dummy())
End Sub

これをツール→マクロ→マクロの管理→NeoOffice Basicからマイマクロに登録して、ツール→カスタマイズ→イベント→アプリケーションの開始→マクロの割り当てで選択する。保存場所はNeoOfficeにしてOKを押す。

これだと、Writerと両方起動してしまうので、Calcだけにする方法を捜索中。