セルのクリアはClearContentsを用いる。

sub ksCellClear

dim cell as object
cell = ThisComponent.CurrentSelection
cell.clearContents(511)

end sub

数字にはクリアしたい内容に応じて、下記の値を指定する。

1 : 数値をクリアする場合
2 : 日付や時刻をクリアする場合
4 : 文字列をクリアする場合
8 : セルのコメントをクリアする場合
16 : 関数 (数式) をクリアする場合
32 : セルに直接指定された書式をクリアする場合
64 : セルに間接的に指定された書式をクリアする場合
128 : セルに配置された描画オブジェクトをクリアする場合
256 : セル内の一部のテキストに対してのみ指定された書式をクリア
する場合

全てクリアするには1+2+ … +256 = 511を入れれば良い。