LibreOfficeで指定範囲の空白カラムのみ特定文字に変換したい。

Question

LibreOfficeで指定範囲の空白カラムのみAAAに変換したいのですが、いろいろ調べても方法が分かりませんでした。

マクロを使った方法でも構いませんので、どなたかご教示いただけないでしょうか。

一応下記の、空白カラムを選択するという記事を応用できないかと試してみたのですが、
下記の記事のマクロを実行するとエラーが表示されました。

https://inoshishinotakinobori.com/select-blank-cell/

エラー内容

BASIC ランタイムエラー.
'91'
オブジェクト変数は設定できていません。

Answer 1

マイマクロのプログラムとして
以下で選択範囲のブランクをAAAに置換できました。

Sub ChangeBlankToA()
 Dim oSelection As Object
 Dim oSearch As Object
 Dim oFound As Object
 oSelection=ThisComponent.CurrentSelection
 oSearch =oSelection.createSearchDescriptor
 oSearch.SearchString = "" 
 oFound = oSelection.findFirst(oSearch)
 While NOT IsNull(oFound)
 
  oFound.String="AAA"
  oFound = oSelection.findNext(oFound, oSearch)
 Wend
End Sub

ただし、選択範囲であっても使われてないセル範囲には影響がないようです。

尚、リンク先のマクロが動かなかったのは、マイマクロにコードを記載したからではないでしょうか。
私もリンク先のコードをマイマクロに記載するとエラーが発生しました。
しかし、各ファイルに対応するモジュールの箇所に記載すれば、動作しました。

ただ、その場合、ファイルに対するプログラムになるので
使い勝手は良くないかなと感じました。

Comments

[Anon_]

仰る通りマイマクロに記載しておりました。
マイマクロとlibreマクロの内部的な違いがよくわかっていませんが、
とりあえず記述いただいたコードで置換することができました。

ありがとうございます。

[xail2222]

私も違いがよくわかってませんが、マイマクロでは使えない記述がけっこうある感じがしました。