2012年10月1日月曜日

LibO Calcで数字の前の'(シングルクオーテーション)を削除

Calcで数字の前に「'」がくっついて文字列になってしまった後、「'」だけを削除する方法。ぐぐったら外人さんが以下の方法書いてました。

検索と置換で、正規表現を有効にして、検索テキストに「^.」、置換テキストに「&」を入れて「すべて置換」でおk

実際に試してみると、たしかに動きます。なんでこれで動くのかさっぱりわかりませんが。。。
イザとなったらマクロでもつくろうかと思ってましたが、マクロで作るにしても置換機能のAPI使ったほうが早そうです。

追記:
↑と同じ動作を行うマクロ

Sub CleanCell
    oSelection = ThisComponent.getCurrentController().getSelection()
    If oSelection.supportsService("com.sun.star.sheet.SheetCellRange") = False Then
        Exit Sub
    End If
   
    oRD = oSelection.createReplaceDescriptor()
    oRD.SearchString = "^."
    oRD.ReplaceString = "&"
    oRD.SearchRegularExpression = True
    oSelection.replaceAll(oRD)
End Sub

0 件のコメント: