Macro para ordenar las hojas de un documento de OpenOffice Calc
No es complicado reordenar las hojas de un documento de Calc, si tienes 5 hojas, claro. Si tienes 22, puedes tardar un ratito.
Aún así, ese ratito no es muy grande, pero si no te apetece estar tú ordenando, puedes copiar y pegar esta macro que realizará el trabajo sucio por tí.
Sub OrdenaHojas
Dim oHojas
Dim i As Integer
Dim Seguir As Boolean
oHojas = ThisComponent.Sheets
If oHojas.getCount() > 1 Then ' Si sólo hay una, no hay que ordenar :)
Do
Seguir = False ' Si Seguir se pone a true, repetirá el proceso
For i = 0 to oHojas.getCount()-2
If oHojas.getByIndex(i).Name > oHojas.getByIndex(i+1).Name Then
oHojas.moveByName(oHojas.getByIndex(i+1).Name,i)
Seguir = True ' Ha reordenado una hoja; Seguir = true para volver a empezar
End If
Next
Loop Until Seguir = False
End If
End Sub
Y este es el resultado tras ejecutar la macro.