検索と置換で、正規表現を有効にして、検索テキストに「^.」、置換テキストに「&」を入れて「すべて置換」でお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 件のコメント:
コメントを投稿