=СЦЕПИТЬ("images/"; A1)Dim WB As Workbook
Dim WS As Worksheet
Set WB = Excel.ActiveWorkbook
Set WS = WB.ActiveSheet
' Вместо 5 указать действительное количество строк
For r = 1 To 5
' Вместо 1 указать номер ячейки, в которой нужно провести изменения
WS.Cells(r, 1) = "images/" & WS.Cells(r, 1)
Next rSub Main
Dim inc, row As Integer
Dim rows, col As Integer
Dim x As Object
inc = 60 ' На сколько увеличить число
rows = 20 ' Количество просматриваемых строк
col = 0 ' Номер столбца для увеличения значений
oDoc = ThisComponent
row = 0
Do While (row < rows)
x = oDoc.Sheets(0).getCellByPosition(col, row) ' Первая страница текущего элемента (индекс 0)
' Проверка типа ячейки
Select Case x.Type
' Если число
Case com.sun.star.table.CellContentType.VALUE
oDoc.Sheets(0).getCellByPosition(col, row).setValue(x.Value + inc)
' Если текст
'Case com.sun.star.table.CellContentType.TEXT
' Если пусто
'Case com.sun.star.table.CellContentType.EMPTY
' Если формула
'Case com.sun.star.table.CellContentType.FORMULA
End Select
row = row + 1
Loop
End Sub