Is it possible to clear several columns with one line of BASIC code?

[Vitaly]

In my spreadsheet, the columns A, B, C contain some text. I use the following code to clear them.

With ThisComponent.Sheets.GetByName(SheetName_Res)
  .Columns(0).ClearContents(com.sun.star.sheet.CellFlags.STRING)
  .Columns(1).ClearContents(com.sun.star.sheet.CellFlags.STRING)
  .Columns(2).ClearContents(com.sun.star.sheet.CellFlags.STRING)
End With

Generaly it’s OK, but seems too long and not optimal. Is it possible to manage it with one line of code? Something analogical to this statement in MS Excel:

With Sheets(SheetName_Res)
  .Range(.Columns(1), .Columns(3)).ClearContents
End With

[Lupp]

(VBA:)
With Sheets(SheetName_Res)
.Range(.Columns(1), .Columns(3)).ClearContents
End With
I counted the lines of code thoroughly and got a result of 3 (three).
If you miss two lines in the code suggested by @JohnSun you may use
(LibO API/BASIC)
For each col In ThisComponent.Sheets.GetByName(SheetName_Res).GetCellRangeByPosition(1-1,0,3-1,0).Columns
col.ClearContents(4)
Next
(Tested with LibO Calc V5.4.2; not recommended.)

[Lupp]

(Explicating my recent edit to the comment above which replaced 2^20-1 by a simple 0)
To get access to some contiguous columns for the purpose it is sufficient to get an arbitrary CellRange object spanning these columns. The whole columns are then accessible one by one via the .Columns property.
However, the .Columns property does not support a service supplying the clearContents method.

[JohnSUN]

If you use .GetByName() for sheet why you din’t use it for columns?

ThisComponent.Sheets.GetByName(SheetName_Res).getCellRangeByName("A:C").ClearContents(com.sun.star.sheet.CellFlags.STRING)

[Vitaly]

Somehow it doesn’t work and raises an exception.
getCellRangeByName(“A1:C100000”) is better, but it’s not completely equivalent…

[JohnSUN]

Which version of office suite? I test this code in 5.3.3.2 (x64)

[mikekaganski]

https://wiki.documentfoundation.org/ReleaseNotes/5.0#A:A_.2F_1:1_entire_column.2Frow_references