Libreoffice basic でファイル名を取得したい。

実現したいこと

Libreoffice basic( writer, calc )でファイル名を取得したい。

前提

ヘッダーに最終更新日時を入れたいと考えています。そのため、まず開いている
ファイル名(.odt/.ods)を取得したい。

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

「オブジェクト変数は設定できていない」

### 該当のソースコード dim oDoc as Object oDoc = ThisComponent strFileName = oDoc.Url <= ここでエラーとなる ```ここに言語名を入力 libreoffice basic office のバージョンは 7.6

試したこと

ここに問題に対して試したことを記載してください。

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

マクロの杜にあるサンプルはマクロ内にファイル名を与えているので参考にならない。
あるいは新たなファイルを作るものなので、私が探しているものではないのです。