El 14 de agosto de 2014, 10:39, Antonio Daniel Giráldez Benítez <
adgiral...@gmail.com> escribió:

>  El 14/08/2014 15:43, Orlando Nuñez escribió:
>
>  Saludos a todos
>
>
>  Me dieron una hoja hecha en Calc que contiene 60 reportes (Reporte de
> expedientes.ods), para llenar informacion sobre algunos expedientes, en
> fisico son 500 expedientes, asi que debo entregar:
>
>  * Reporte de Expedientes1.ods (Del 1 al 60)
>  * Reporte de Expedientes2.ods (Del 61 al 120)
>  * Reporte de Expedientes3.ods (Del 121 al 180)
> .
> .
> .
> .
>  * Reporte de ExpedientesX.ods (del X al 500)
>
>  Mi problema es que cada hoja debe seguir un corelativo entre las Hojas,
> en el Reporte de Expedientes1.ods no tengo problemas porque estan desde la
> "Hoja1" hasta la "Hoja60" asi que los reportes siguientes son una copia de
> el, pero renombra Hoja por Hoja, por ejemplo "Hoja61", "Hoja62",
> "Hoja63"... pierdo mucho tiempo, como puedo renombrar masivamente La las 60
> Hojas del "Hoja1" al "Hoja60" en "Hoja61" en "Hoja120"
>
>
>  Agradeceria su ayuda.
>
>
> --
> TSU Orlando Nuñez
> Teléfono: 04263609858
> Correo alternativo: orlandoenu...@gmail.com
>
>
> Prueba esto.Modificalo a tu gusto
> REM  *****  BASIC  *****
>
> Sub Main
> oDoc = ThisComponent
> oSheet = oDoc.Sheets
> Dim f
> Dim indice
> indice=100
> For f=0 to oDoc.Sheets.Count()-1
> oSheet(f).Name="Hoja" & Str(indice)
> indice=indice+1
> next f
>
> End Sub
>
> --
>
>
>
>
Disculpa amigo pero no tengo ni la menor idea de que hacer con ese codigo,
podrias darme al menos una idea de donde debo colocarlo, un poco mas de
ayuda.





-- 
TSU Orlando Nuñez
Teléfono: 04263609858
Correo alternativo: orlandoenu...@gmail.com

Responder a