libreofficeのマクロを使い、calc にヘッダーを入れたい

実現したいこと

Libreoffice calc に basic を用いて、ヘッダー挿入を行いたい。

前提

calc を起動して、表(シート)を作成します。
作成されたシートにマクロを起動してフアィル名、作成(更新)日時、シート名を
ヘッダーとして記入したい。(フアィル名、更新日時、シート名などの取得には
成功しています。)

発生している問題・エラーメッセージ

マクロの杜にあるサンプルプログラムをテストしたところ、実行すると新たなcalc が起動して
そこへ、ヘッダー挿入が行われます。

該当のソースコード

サンプルは以下のURLにありました。
https://openoffice3.web.fc2.com/OOoBasic_General2.html#OOoGSHF1a

マクロの杜にあるサンプルの初めの部分は以下のものです。
Sub oHeader_Footer
Dim oDoc As Object
Dim Dummy()
oDoc = StarDesktop.loadComponentFromURL("private:factory/scalc", "_blank", 0, Dummy())
oPageStyles = oDoc.StyleFamilies.getByName("PageStyles")
oDefault = oPageStyles.getByName("Default")```

実行するとoDoc = ...の行で新たなcalcが起動します。

試したこと

補足情報（FW/ツールのバージョンなど）

writerでは以下のプログラムでヘッダーに書き込むことは成功します。
しかし、これをcalcに適用するとうまく動かない。
Sub execHeader_writer( sText as string )
rem -------------------
Dim oPageStyles as Object
Dim oPageStyle as Object
Dim Htext as Object
On Error Goto ErrorHandler
oPageStyles =oDoc.StyleFamilies.getByName( "PageStyles" )
oPageStyle = oPageStyles.getByName( "Standard" )
'Set Header
wait(100) ' 100ms wait
oPageStyle.HeaderIsOn = true
Htext = oPageStyle.HeaderText
HText.String = sText